clc
// Variable Initialization 
Vm=230//Supply Voltage in Volts
Ra=0.75//Combined Field and Armature circuit resistance in Ohm
N=1300 //Motor speed in Rpm
V=210//Rated voltage of motor in Volts
a=45//firing angle in Degree
Kaf=0.03 //Constant in N-m/A^2
Kres=0.075 //Constant in V-s/Rad

//Solution
//For semi-converter controlled Dc Drive
W=(2*%pi*N)/60 //angular speed in Rad/sec
Ia=(((Vm*1.414)/%pi)*(1+cosd(a))-(Kres*W))*(1/(Ra+Kaf*W))//Armature current in Amp
T=Kaf*(Ia)^2//Torque in N-m
I=(T/Kaf)^(1/2)//motor current in Amp
Va=(Vm*1.414)*(1+cosd(a))*(1/%pi)//Average voltage in Volts
//Input Power if losses are neglected
Ps=Va*I //Power loss in Watt
Pi=Vm*I*(5/6)^0.5 //power input in watt
Pf=(Ps/Pi)//Power Factor in Lag

//Results
printf('\n\n The motor Torque =%0.1f N-m \n\n',T)
printf('\n\n The motor Current =%0.1f Amp \n\n',I)
printf('\n\n The Supply Power Factor =%0.1f Lag \n\n',Pf)