diff options
Diffstat (limited to '3793/CH3/EX3.4/exp_3_4.sce')
| -rw-r--r-- | 3793/CH3/EX3.4/exp_3_4.sce | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/3793/CH3/EX3.4/exp_3_4.sce b/3793/CH3/EX3.4/exp_3_4.sce new file mode 100644 index 000000000..4bb4f4649 --- /dev/null +++ b/3793/CH3/EX3.4/exp_3_4.sce @@ -0,0 +1,14 @@ +clear;
+clc;
+
+//given parameter
+r=1; //radius
+d=3
+h=300;
+p=500;
+q=(100*sqrt((6^2)+(5^2)));
+l=(2*(10^-7)*log(((2^(1/6))*((d/(.7788*r))^(1/2))*((p/q)^(2/3)))));
+L=l*h*1000*1000;
+Xl= 2*%pi*50*L*(10^-3);
+mprintf(" Inductance = %.3f mH\n",L);
+mprintf(" Rectance = %.3f ohm",Xl);
|