徳城余市総合研究所トップページへ戻る
温度（Tk,K）、温度(Tc,C）、温度(Tf,F）の関係
Octaveスクリプトファイル名：T_conv.m
-----------------------------------------------------------
# 温度（Tk,K）、温度(Tc,C）、温度(Tf,F）の関係
output_precision(5);
# ーーー入力ーーー
disp("1:Tk->Tc,2:Tc->Tk,3:Tc->Tf,4:Tf->Tc,5:Tf->Tk,6:Tk->Tf")
N=input("Input N:1 to 6,N=");
Tin=input("Tin=");
# ーーー計算ーーー
if(N==1)
Tout=Tin-273.15;
elseif(N==2)
Tout=Tin+273.15;
elseif(N==3)
Tout=Tin*1.8+32;
elseif(N==4)
Tout=(Tin-32)/1.8;
elseif(N==5)
Tout=(Tin-32)/1.8+273.15;
elseif(N==6)
Tout=(Tin-273.15)*1.8+32;
endif
# ーーー出力ーーー
disp("Output:Tout=")
disp(Tout)
-----------------------------------------------------------
(MM20120802)