Modeling and Analysis with Induction Generators, 3rd Edition

414 Appendix B: C Statements for theSimulation

double fiqr(double m1,double ids1,double iqs1,double

idr1,double iqr1,double vlq1,double vqs1,double vqr1,double

k1,double ls1,double lr1)

{

double diqr;

diqr = k1*(-(wr1*m1*ls1*ids1)-(rs1*m1*iqs1)-(wr1*ls1*lr1*

idr1)+(rr1*ls1*iqr1)-(m1*vlq1)+(m1*vqs1)-(ls1*vqr1));

return diqr;

}

double fvld(double ids1,double ild1)

{

double dvld;

dvld = (ids1/c1)-(ild1/c1);

return dvld;

}

double fvlq(double iqs1,double ilq1)

{

double dvlq;

dvlq = (iqs1/c1)-(ilq1/c1);

return dvlq;

}

double fild(double vld1,double ild1,double r1,double l1)

{

double dild;

dild = (vld1/l1)-r1*(ild1/l1);

return dild;

}

double filq(double vlq1,double ilq1,double r1,double l1)

{

double dilq;

dilq = (vlq1/l1)-r1*(ilq1/l1);

return dilq;

}