徳城余市総合研究所トップページへ戻る
斜め衝撃波上流のエントロピ(s1,J/kg/K)とマッハ数(M1)と偏角（Theta,deg）を与えて衝撃波通過後のエントロピ(s2,J/kg/K)を計算
Octaveスクリプトファイル名：Os1tos2.m
-----------------------------------------------------------
# 斜め衝撃波上流のエントロピ(s1,J/kg/K)とマッハ数(M1)と偏角（Theta,deg）を与えて衝撃波通過後のエントロピ(s2,J/kg/K)を計算
# ーーー定数ーーー
k=1.4;
R=287.05287;
# ーーー入力ーーー
s1=input("Input:s1(J/kg/K)=");
M1=input("Input:M1=");
Theta=input("Input:Theta(deg)=");
# ーーー計算1ーーー
Ti=Theta*pi/180;
j=1.05/M1+0.5*Ti;
Theta=atan((2*cot(j)*((M1*sin(j))^2-1))/(M1^2*(k+cos(2*j))+2));
while abs(Ti-Theta)>0.000001
j=j+0.5*(Ti-Theta);
Theta=atan((2*cot(j)*((M1*sin(j))^2-1))/(M1^2*(k+cos(2*j))+2));
endwhile
Beta=j;
# ーーー計算2ーーー
s2=s1+R*log(((1+2*k/(k+1)*((M1*sin(Beta))^2-1))^(1/(k-1)))*(((k+1)/2*(M1*sin(Beta))^2)/(1+(k-1)/2*(M1*sin(Beta))^2))^(-k/(k-1)));
# ーーー出力ーーー
disp("s2(J/kg/K)=")
disp(s2)
-----------------------------------------------------------
(MM20121127)