1 files changed, 36 insertions, 0 deletions
diff --git a/3640/CH3/EX3.6/Ex3_6.sce b/3640/CH3/EX3.6/Ex3_6.sce
new file mode 100644
index 000000000..e3da8ff85
--- /dev/null
+++ b/3640/CH3/EX3.6/Ex3_6.sce
@@ -0,0 +1,36 @@
+clc
+//extension of Ex3_1
+//uses a userdefined function complexstring
+function s=complexstring(a)
+    
+    
+    if imag(a)>=0 then
+        s=sprintf('%g+%gi',real(a),imag(a))
+    else
+        s=sprintf('%g%gi',real(a),imag(a))
+        
+    end
+    funcprot(0)
+endfunction
+I2=10
+V2=1000
+r2=1
+X11=20 //in ohm
+x1=0.05 //in ohm
+X22=2000 //in ohm
+x2=5 //in ohm
+Xm1=X11-x1
+Xm2=X22-x2
+X12=sqrt(Xm1*Xm2)
+V12=V2+I2*(r2+(%i*(X22-X12)))//ans may vary due to roundof error
+disp('V12='+complexstring(V12)+'V')
+I1=I2+(V12/(%i*X12))//ans may vary due to roundof error
+disp('I1='+complexstring(I1)+'A')
+r1=0.01
+V1=V12+(I1*(r1+(%i*(X11-X12))))//ans may vary due to roundof error
+disp('V1='+complexstring(V1)+'V')
+a=0.1
+Zeq1=r1+(a*a*r2)+(%i*(x1+(a*a*x2)))//ans may vary due to roundof error
+disp('Zeq1='+complexstring(Zeq1)+'Ω')
+V1=(a*V2)+(I2^Zeq1/a)//ans may vary due to roundof error
+disp('V1='+complexstring(V1)+'V')