徳城余市総合研究所トップページへ戻る
圧力（Ps,kPa）と温度（Ts,K）を与えてエントロピー（s,J/kg/K）を計算
Octaveスクリプトファイル名：PsTstosRevB.m
-----------------------------------------------------------
# 圧力（Ps,kPa）と温度（Ts,K）を与えてエントロピー（s,J/kg/K）を計算
# ーーー定数ーーー
R=287.06;
k=1.4;
# ーーー入力ーーー
Ps=input("Input:Ps(kPa)=");
Ts=input("Input:Ts(K)=");
# ーーー計算ーーー
s=R*log((Ts/288.15)^(k/(k-1))/(Ps/101.325));
# ーーー出力ーーー
disp("s(J/kg/K)=")
disp(s)
-----------------------------------------------------------
(RevB:MM20121127)(RevA:MM20120907)(MM20120822)