From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001 From: priyanka Date: Wed, 24 Jun 2015 15:03:17 +0530 Subject: initial commit / add all books --- 1730/CH2/EX2.30/Exa2_30.sce | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100755 1730/CH2/EX2.30/Exa2_30.sce (limited to '1730/CH2/EX2.30/Exa2_30.sce') diff --git a/1730/CH2/EX2.30/Exa2_30.sce b/1730/CH2/EX2.30/Exa2_30.sce new file mode 100755 index 000000000..24843b68d --- /dev/null +++ b/1730/CH2/EX2.30/Exa2_30.sce @@ -0,0 +1,24 @@ +//Exa2.30 +clc; +clear; +close; +//given data +p_A=17.34; +q_A=-0.0487; +p_B=1.36; +q_B=+0.0095; +p_AB=p_A-p_B; +q_AB=q_A-q_B; +T2=210;//in degree C +T1=10;// in degree C +E=p_AB*(T2-T1)+q_AB/2*(T2^2-T1^2);//in miu V +E=E*10^-3;//in m V +disp("Thermo-electric emf is : "+string(ceil(E))+" m V"); +Tn=-p_AB/q_AB; +disp("Neutral temperature is : "+string(ceil(Tn))+" degree C"); +Tc=10;// in degree C +Ti=Tn+(Tn-Tc); +disp("Temperature of inversion is : "+string(ceil(Ti))+" degree C"); +E_max=15.98*(275-10)-1/2*0.0582*[275^2-10^2];//in miu V +E_max=E_max*10^-3;// in mV +disp("Maximum possible thermo-electric emf at neutral temperature that is at 275 degree C is : "+string(E_max)+" mV"); \ No newline at end of file -- cgit