blob: e3da8ff85dba8612a3a6fb75875f5cd3e6144ce7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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')
|
