home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Explore the World of Soft…e: Engineering & Science
/
Explore_the_World_of_Software_Engineering_and_Science_HRS_Software_1998.iso
/
programs
/
physics
/
buford1.exe
/
RECTIFIR.SIM
< prev
next >
Wrap
Text File
|
1991-01-20
|
629b
|
29 lines
[
This is a model of a single phase half wave rectifier driving a parallel
RC network
]
e=2.7182818; [ the constant e ]
C=1e-4; [ capacitance, in farads ]
R=300; [ resistance, in ohms ]
Is=1e-12; [ diode parameters ]
Vt=.026;
V=sin(_T_*377); [ 60 Hz sine wave source ]
Vs=10*V; [ at 120V ]
Ic=Id-Vc/R;
Vc=inta(Ic/C);
Vd=Vs-Vc;
Id=Is*(e^(Vd/Vt)-1); [ the diode equation Id=Is*(exp(Vd/Vt)-1) ]
print(Vd,Id,Vc,Ic); [ This won't execute, because of the plot statements ]
plot(_T_,Vd):0,.03,-20,1;
plot(_T_,Id,Ic):0,.03,-.1,.6;
plot(_T_,Vc):0,.03,-1,10;
timing .000005,.03;
end;