! Command file for synchronous machine


set calplt = .f.
set strplt = .t.   ! use a strip plot
set devplt = 1     ! plot to screen


proced st(ts = timelimit)

! procedure to start simulation, simply type st time-to-stop
! for example st 1.0 will run simulation to 1 sec

 prepar/clear
 prepar t, sm_1synch_1te, sm_1synch_1iqsr, sm_1synch_1idsr, sm_1rotor_1deltad
 s timelimit = &ts
 s nrwitg=.f.
 spare
 start
 spare
 d t
end



proced co(ts = timelimit)

! procedure to continue simulation that was started by st
! co time-limit 

 s timelimit = &ts
 s nrwitg=.t.
 spare
 contin
 spare
 d t
end


proced faultsim(fltm, clrt, fint)
! Fault simulation procedure 
! at command line type faultsim time-of-fault, time-of-clearing, total-run-time
! for example for a fault at 2.0 sec, clear at 2.1 sec and run time to 5.0 sec
! one would enter faultsim 2.0 2.1 5.0
!
! These parameters of 835 MVA generator, the stator voltage and input
! torque can be changed, along with any machine parameters to simulate
! fault of any machine

prepare/clear
prepar t, sm_1synch_1iqsr, sm_1synch_1idsr, sm_1synch_1te, sm_1rotor_1deltad
s sm_1SYNCH_1SIKQ1Ric = -8755.52000  
s sm_1SYNCH_1SIKQ2Ric = -8209.65000
s sm_1SYNCH_1SIKDRic =  22264.9000 
s sm_1SYNCH_1SIFDRic = 43448.0000 
s sm_1rotor_1deltaic = .41
s sm_1rotor_1thetaric = .41
s timelimit = &fltm
s con_1o1 = 1.11e6 !input torque 50% loaded
s vs = 21228.9   !26 kv*sqrt(2)/sqrt(3)
s nrwitg=.f.
spare 
start
s timelimit = &clrt
s vs = 0.0
s nrwitg = .t.
cont
s timelimit = &fint
s vs = 21228.9
cont
s nrwitg = .f.
plot sm_1synch_1iqsr, sm_1synch_1idsr, sm_1synch_1te, sm_1rotor_1deltad
end