/* 潤工社 同軸ケーブル 同軸ケーブルの信号伝送特性計算式
と云うサイトの式を、Maxima script で書いてみました。 */
/* 高周波抵抗 ohm/(loop*km) */
disp("resistance ohm/(loop*km)")$
eq_R: R=2*sqrt(f)*(K2*sqrt(rho1)/de+Kb*sqrt(rho2)/De) ;
/* 静電容量 F/m */
C=2*%pi*epsilon0*epsilonr/log(De/de) ;
/* 静電容量 pF/m */
disp("capacitance pF/m")$
eq_C: C=55.63*epsilonr/log(De/de) ;
/* インダクタンス microH/m */
disp("inductance microH/m")$
mu_H;
L=Le+Li ;
eq_Le: Le= 0.2*log(De/de) ;
eq_Li: Li=10/sqrt(f)*(sqrt(rho1*mu1)/de+sqrt(rho2*mu2)/De ) ;
/* 特性インピーダンス ohm */
disp("Characteristic Impedance ohm")$
eq_Zch: Z0ch=60/sqrt(epsilonr)*log(De/de) ;
/* 高次モード周波数（遮断周波数）GHz*/
disp("fc GHz")$
eq_fc: fc=190.8/sqrt(epsilonr)/(De+de) ;
C_5D_2V : ev([eq_R,ohm/(loop*km) ,eq_C, "pF/m",eq_Le,"microH/m" ,eq_Li,eq_Zch,"ohm" ,eq_fc,"GHz" ],De = 5.5,de = 1.4,epsilonr = 2.4,
K2 = 1,Kb = 2,mu1 = 1,mu2 = 1,rho1 = 1.72e-6,rho2 = 1.72e-6,f=1e8 ) ;
C_2D_2V : ev([eq_R ,"ohm/(loop*km) ",eq_C,"pF/m",eq_Le,"microH/m" ,eq_Li,eq_Zch,"ohm" , eq_fc,"GHz" ],De = 3.3 ,de = 0.8 ,epsilonr = 2.4,
K2 = 1,Kb = 2,mu1 = 1,mu2 = 1,rho1 = 1.7e-6,rho2 = 1.7e-6,f=1e8 ) ;
/* コメント
コメント終了 */