1 files changed, 14 insertions, 0 deletions
diff --git a/Working_Examples/215/CH10/EX10.4/ex10_4.sce b/Working_Examples/215/CH10/EX10.4/ex10_4.sce
new file mode 100755
index 0000000..0d091c8
--- /dev/null
+++ b/Working_Examples/215/CH10/EX10.4/ex10_4.sce
@@ -0,0 +1,14 @@
+clc
+//Example 10.4
+//Determine phasor current and time-domain current
+printf("Given")
+disp('Voltage is 8(-50 deg),Frequency is 100rad/s,Inductance is 4H')
+L=4;
+w=100;
+Vamp=8;Vang=-50;
+//Let current be I
+Iamp=Vamp/(w*L)
+Iang=-90+Vang
+printf("I=%3.2f(%d deg) A \n",Iamp,Iang)
+//In time domain
+printf("i(t)=%3.2f *cos(%d*t%d) A",Iamp,w,Iang);
+\ No newline at end of file