summaryrefslogtreecommitdiff
path: root/3793/CH3/EX3.4/exp_3_4.sce
diff options
context:
space:
mode:
Diffstat (limited to '3793/CH3/EX3.4/exp_3_4.sce')
-rw-r--r--3793/CH3/EX3.4/exp_3_4.sce14
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);