diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /695/CH2/EX2.38 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '695/CH2/EX2.38')
| -rwxr-xr-x | 695/CH2/EX2.38/Ex2_38.sce | 25 | ||||
| -rwxr-xr-x | 695/CH2/EX2.38/Ex2_38.txt | 25 | ||||
| -rwxr-xr-x | 695/CH2/EX2.38/R2_38.txt | 7 |
3 files changed, 57 insertions, 0 deletions
diff --git a/695/CH2/EX2.38/Ex2_38.sce b/695/CH2/EX2.38/Ex2_38.sce new file mode 100755 index 000000000..315c9cea1 --- /dev/null +++ b/695/CH2/EX2.38/Ex2_38.sce @@ -0,0 +1,25 @@ +//Caption:Determine the efficiency and power input
+//Exa:2.38
+clc;
+clear;
+close;
+P_out=20000;//in watts
+P_in=23000;//in watts
+V=250;//in volts
+R_f=125;//in ohms
+R_a=0.2;//in ohms
+I_L=P_in/V;//in amperes
+I_f=V/R_f;//in amperes
+I_a1=I_L-I_f;//in amperes
+P_cu=(I_a1^2)*R_a;
+P_fcu=V*I_f;
+P_tcu=P_cu+P_fcu;
+P_fric=P_in-P_out-P_tcu;
+P_o=12000;//in watts
+P_m=P_o+P_fric
+I_a2=53.85;
+P_tcu2=((I_a2^2)*R_a)+250;
+P_in_2=P_m+P_tcu2;
+disp(P_in_2,'Power input (in watts)=');
+Eff=P_o*100/P_in_2;
+disp(Eff,'Efficiency (in %)=')
\ No newline at end of file diff --git a/695/CH2/EX2.38/Ex2_38.txt b/695/CH2/EX2.38/Ex2_38.txt new file mode 100755 index 000000000..315c9cea1 --- /dev/null +++ b/695/CH2/EX2.38/Ex2_38.txt @@ -0,0 +1,25 @@ +//Caption:Determine the efficiency and power input
+//Exa:2.38
+clc;
+clear;
+close;
+P_out=20000;//in watts
+P_in=23000;//in watts
+V=250;//in volts
+R_f=125;//in ohms
+R_a=0.2;//in ohms
+I_L=P_in/V;//in amperes
+I_f=V/R_f;//in amperes
+I_a1=I_L-I_f;//in amperes
+P_cu=(I_a1^2)*R_a;
+P_fcu=V*I_f;
+P_tcu=P_cu+P_fcu;
+P_fric=P_in-P_out-P_tcu;
+P_o=12000;//in watts
+P_m=P_o+P_fric
+I_a2=53.85;
+P_tcu2=((I_a2^2)*R_a)+250;
+P_in_2=P_m+P_tcu2;
+disp(P_in_2,'Power input (in watts)=');
+Eff=P_o*100/P_in_2;
+disp(Eff,'Efficiency (in %)=')
\ No newline at end of file diff --git a/695/CH2/EX2.38/R2_38.txt b/695/CH2/EX2.38/R2_38.txt new file mode 100755 index 000000000..2ff15995a --- /dev/null +++ b/695/CH2/EX2.38/R2_38.txt @@ -0,0 +1,7 @@ + Power input (in watts)=
+
+ 13709.965
+
+ Efficiency (in %)=
+
+ 87.527579
\ No newline at end of file |