s5.m

Gives all the matlab codes for dynamic simulation of electric machinery by Chee-Mun Ong

		'position',[565,113,735,147])

add_block('built-in/Mux',[sys,'/','pm_motor/d_cct/Mux3'])
set_param([sys,'/','pm_motor/d_cct/Mux3'],...
		'inputs','2',...
		'position',[520,91,545,169])

add_block('built-in/Integrator',[sys,'/','pm_motor/d_cct/psid_'])
set_param([sys,'/','pm_motor/d_cct/psid_'],...
		'Initial','Psido',...
		'position',[390,127,420,153])

add_block('built-in/Fcn',[sys,'/','pm_motor/d_cct/Fcn'])
set_param([sys,'/','pm_motor/d_cct/Fcn'],...
		'Expr','wb*(u[2]+u[3]+(rs/xls)*(u[1]-u[4]))',...
		'position',[180,125,375,155])

add_block('built-in/Inport',[sys,'/','pm_motor/d_cct/In_wrpsiq'])
set_param([sys,'/','pm_motor/d_cct/In_wrpsiq'],...
		'Port','2',...
		'position',[50,160,70,180])

add_block('built-in/Inport',[sys,'/','pm_motor/d_cct/In_vd'])
set_param([sys,'/','pm_motor/d_cct/In_vd'],...
		'position',[50,105,70,125])

add_block('built-in/Mux',[sys,'/','pm_motor/d_cct/Mux'])
set_param([sys,'/','pm_motor/d_cct/Mux'],...
		'position',[135,86,160,189])

add_block('built-in/Inport',[sys,'/','pm_motor/d_cct/In_Ipm'])
set_param([sys,'/','pm_motor/d_cct/In_Ipm'],...
		'Port','3',...
		'position',[50,225,70,245])

add_block('built-in/Mux',[sys,'/','pm_motor/d_cct/Mux4'])
set_param([sys,'/','pm_motor/d_cct/Mux4'],...
		'inputs','2',...
		'position',[520,194,540,261])

add_block('built-in/Fcn',[sys,'/','pm_motor/d_cct/Fcn4'])
set_param([sys,'/','pm_motor/d_cct/Fcn4'],...
		'Expr','(u[1]-u[2])/xls',...
		'position',[570,217,660,243])

add_block('built-in/Outport',[sys,'/','pm_motor/d_cct/Out_id'])
set_param([sys,'/','pm_motor/d_cct/Out_id'],...
		'Port','2',...
		'position',[795,220,815,240])

add_block('built-in/Outport',[sys,'/','pm_motor/d_cct/Out_psimd'])
set_param([sys,'/','pm_motor/d_cct/Out_psimd'],...
		'Port','3',...
		'position',[795,120,815,140])
add_line([sys,'/','pm_motor/d_cct'],[75,170;95,170;95,150;130,150])
add_line([sys,'/','pm_motor/d_cct'],[75,115;95,115;95,125;130,125])
add_line([sys,'/','pm_motor/d_cct'],[165,140;175,140])
add_line([sys,'/','pm_motor/d_cct'],[380,140;385,140])
add_line([sys,'/','pm_motor/d_cct'],[425,140;435,140;435,205;115,205;115,175;130,175])
add_line([sys,'/','pm_motor/d_cct'],[425,140;435,140;435,110;515,110])
add_line([sys,'/','pm_motor/d_cct'],[550,130;560,130])
add_line([sys,'/','pm_motor/d_cct'],[545,230;565,230])
add_line([sys,'/','pm_motor/d_cct'],[425,140;470,140;470,210;515,210])
add_line([sys,'/','pm_motor/d_cct'],[740,130;755,130;755,275;495,275;495,245;515,245])
add_line([sys,'/','pm_motor/d_cct'],[740,130;755,130;755,80;115,80;115,100;130,100])
add_line([sys,'/','pm_motor/d_cct'],[740,130;790,130])
add_line([sys,'/','pm_motor/d_cct'],[665,230;790,230])
add_line([sys,'/','pm_motor/d_cct'],[425,140;435,140;435,55;580,55])
add_line([sys,'/','pm_motor/d_cct'],[75,235;450,235;450,150;515,150])


%     Finished composite block 'pm_motor/d_cct'.

set_param([sys,'/','pm_motor/d_cct'],...
		'position',[150,248,190,322])

add_block('built-in/Note',[sys,'/','pm_motor/id'])
set_param([sys,'/','pm_motor/id'],...
		'position',[205,265,210,270])

add_block('built-in/Outport',[sys,'/','pm_motor/iq_motor'])
set_param([sys,'/','pm_motor/iq_motor'],...
		'position',[340,85,360,105])

add_block('built-in/Note',[sys,'/','pm_motor/iq'])
set_param([sys,'/','pm_motor/iq'],...
		'position',[210,75,215,80])

add_block('built-in/Note',[sys,'/','pm_motor/psiq'])
set_param([sys,'/','pm_motor/psiq'],...
		'position',[215,50,220,55])

add_block('built-in/Outport',[sys,'/','pm_motor/Tem'])
set_param([sys,'/','pm_motor/Tem'],...
		'Port','3',...
		'position',[460,245,480,265])

add_block('built-in/Outport',[sys,'/','pm_motor/wr//wb'])
set_param([sys,'/','pm_motor/wr//wb'],...
		'Port','4',...
		'position',[460,295,480,315])

add_block('built-in/Scope',[sys,'/','pm_motor/Scope'])
set_param([sys,'/','pm_motor/Scope'],...
		'Vgain','100.000000',...
		'Hgain','1.000000',...
		'Vmax','100.000000',...
		'Hmax','2.000000',...
		'Window',[184,667,647,821],...
		'position',[440,92,460,118])
add_line([sys,'/','pm_motor'],[320,320;340,320])
add_line([sys,'/','pm_motor'],[195,260;340,260])
add_line([sys,'/','pm_motor'],[195,285;220,285;220,300;340,300])
add_line([sys,'/','pm_motor'],[200,95;290,95;290,240;340,240])
add_line([sys,'/','pm_motor'],[200,70;255,70;255,280;340,280])
add_line([sys,'/','pm_motor'],[200,95;335,95])
add_line([sys,'/','pm_motor'],[195,285;220,285;220,320;235,320])
add_line([sys,'/','pm_motor'],[160,160;120,160;120,115;150,115])
add_line([sys,'/','pm_motor'],[85,75;150,75])
add_line([sys,'/','pm_motor'],[195,260;235,260;235,165;190,165])
add_line([sys,'/','pm_motor'],[200,70;255,70;255,215;190,215])
add_line([sys,'/','pm_motor'],[80,310;145,310])
add_line([sys,'/','pm_motor'],[80,260;145,260])
add_line([sys,'/','pm_motor'],[160,210;120,210;120,285;145,285])
add_line([sys,'/','pm_motor'],[400,305;415,305;415,155;190,155])
add_line([sys,'/','pm_motor'],[400,305;415,305;415,200;190,200])
add_line([sys,'/','pm_motor'],[400,305;455,305])
add_line([sys,'/','pm_motor'],[400,255;455,255])


%     Finished composite block 'pm_motor'.

set_param([sys,'/','pm_motor'],...
		'position',[670,156,710,284])

add_block('built-in/Note',[sys,'/','v0'])
set_param([sys,'/','v0'],...
		'position',[618,214,623,219])

add_block('built-in/Constant',[sys,'/','Ipm'])
set_param([sys,'/','Ipm'],...
		'Value','Ipm',...
		'position',[630,225,655,245])

add_block('built-in/Note',[sys,'/','vd'])
set_param([sys,'/','vd'],...
		'position',[618,184,623,189])


%     Subsystem  'abc2qd0'.

new_system([sys,'/','abc2qd0'])
set_param([sys,'/','abc2qd0'],'Location',[454,254,1125,632])

add_block('built-in/Outport',[sys,'/','abc2qd0/vq'])
set_param([sys,'/','abc2qd0/vq'],...
		'position',[595,70,615,90])

add_block('built-in/Outport',[sys,'/','abc2qd0/vd'])
set_param([sys,'/','abc2qd0/vd'],...
		'Port','2',...
		'position',[590,145,610,165])

add_block('built-in/Outport',[sys,'/','abc2qd0/vd0'])
set_param([sys,'/','abc2qd0/vd0'],...
		'Port','3',...
		'position',[590,225,610,245])

add_block('built-in/Fcn',[sys,'/','abc2qd0/abc2q'])
set_param([sys,'/','abc2qd0/abc2q'],...
		'Expr','(2*u[1]- u[2] - u[3])/3',...
		'position',[150,129,290,151])

add_block('built-in/Fcn',[sys,'/','abc2qd0/abc20'])
set_param([sys,'/','abc2qd0/abc20'],...
		'Expr','(u[1] + u[2]  + u[3])/3',...
		'position',[150,224,290,246])

add_block('built-in/Fcn',[sys,'/','abc2qd0/abc2d'])
set_param([sys,'/','abc2qd0/abc2d'],...
		'Expr','(u[3] -u[2])/sqrt(3)',...
		'position',[150,174,290,196])

add_block('built-in/Inport',[sys,'/','abc2qd0/vc'])
set_param([sys,'/','abc2qd0/vc'],...
		'Port','3',...
		'position',[40,210,60,230])

add_block('built-in/Inport',[sys,'/','abc2qd0/vb'])
set_param([sys,'/','abc2qd0/vb'],...
		'Port','2',...
		'position',[40,175,60,195])

add_block('built-in/Inport',[sys,'/','abc2qd0/va'])
set_param([sys,'/','abc2qd0/va'],...
		'position',[40,140,60,160])

add_block('built-in/Mux',[sys,'/','abc2qd0/Mux'])
set_param([sys,'/','abc2qd0/Mux'],...
		'inputs','3',...
		'position',[90,129,115,241])

add_block('built-in/Note',[sys,'/','abc2qd0/vds'])
set_param([sys,'/','abc2qd0/vds'],...
		'position',[325,150,330,155])

add_block('built-in/Inport',[sys,'/','abc2qd0/cos_thetar'])
set_param([sys,'/','abc2qd0/cos_thetar'],...
		'Port','4',...
		'position',[40,60,60,80])

add_block('built-in/Mux',[sys,'/','abc2qd0/Mux1'])
set_param([sys,'/','abc2qd0/Mux1'],...
		'position',[375,56,400,189])

add_block('built-in/Inport',[sys,'/','abc2qd0/sin_thetar'])
set_param([sys,'/','abc2qd0/sin_thetar'],...
		'Port','5',...
		'position',[40,95,60,115])

add_block('built-in/Note',[sys,'/','abc2qd0/abc2qd0'])
set_param([sys,'/','abc2qd0/abc2qd0'],...
		'position',[205,275,210,280])

add_block('built-in/Note',[sys,'/','abc2qd0/qds2qdr'])
set_param([sys,'/','abc2qd0/qds2qdr'],...
		'position',[470,275,475,280])

add_block('built-in/Fcn',[sys,'/','abc2qd0/qds2dr'])
set_param([sys,'/','abc2qd0/qds2dr'],...
		'Expr','u[2]*u[3] + u[1]*u[4] ',...
		'position',[425,143,560,167])

add_block('built-in/Fcn',[sys,'/','abc2qd0/qds2qr'])
set_param([sys,'/','abc2qd0/qds2qr'],...
		'Expr','u[1]*u[3] - u[2]*u[4]',...
		'position',[425,68,560,92])

add_block('built-in/Note',[sys,'/','abc2qd0/vqs'])
set_param([sys,'/','abc2qd0/vqs'],...
		'position',[325,118,330,123])
add_line([sys,'/','abc2qd0'],[120,185;125,185;125,140;145,140])
add_line([sys,'/','abc2qd0'],[120,185;145,185])
add_line([sys,'/','abc2qd0'],[405,125;405,80;420,80])
add_line([sys,'/','abc2qd0'],[405,125;405,155;420,155])
add_line([sys,'/','abc2qd0'],[65,150;85,150])
add_line([sys,'/','abc2qd0'],[65,185;85,185])
add_line([sys,'/','abc2qd0'],[65,220;85,220])
add_line([sys,'/','abc2qd0'],[565,80;590,80])
add_line([sys,'/','abc2qd0'],[565,155;585,155])
add_line([sys,'/','abc2qd0'],[120,185;125,185;125,235;145,235])
add_line([sys,'/','abc2qd0'],[65,70;370,70])
add_line([sys,'/','abc2qd0'],[65,105;370,105])
add_line([sys,'/','abc2qd0'],[295,140;370,140])
add_line([sys,'/','abc2qd0'],[295,185;325,185;325,175;370,175])
add_line([sys,'/','abc2qd0'],[295,235;585,235])


%     Finished composite block 'abc2qd0'.

set_param([sys,'/','abc2qd0'],...
		'Font Number',3,...
		'position',[575,156,610,254])


%     Subsystem  'qdr2abc1'.

new_system([sys,'/','qdr2abc1'])
set_param([sys,'/','qdr2abc1'],'Location',[56,346,800,637])

add_block('built-in/Mux',[sys,'/','qdr2abc1/Mux'])
set_param([sys,'/','qdr2abc1/Mux'],...
		'position',[125,34,155,196])

add_block('built-in/Inport',[sys,'/','qdr2abc1/id'])
set_param([sys,'/','qdr2abc1/id'],...
		'Port','2',...
		'position',[60,165,80,185])

add_block('built-in/Inport',[sys,'/','qdr2abc1/iq'])
set_param([sys,'/','qdr2abc1/iq'],...
		'position',[60,125,80,145])

add_block('built-in/Inport',[sys,'/','qdr2abc1/sin(thetar)'])
set_param([sys,'/','qdr2abc1/sin(thetar)'],...
		'Port','4',...
		'position',[60,85,80,105])

add_block('built-in/Inport',[sys,'/','qdr2abc1/cos(thetar)'])
set_param([sys,'/','qdr2abc1/cos(thetar)'],...
		'Port','3',...
		'position',[60,45,80,65])

add_block('built-in/Fcn',[sys,'/','qdr2abc1/qdr2qs'])
set_param([sys,'/','qdr2abc1/qdr2qs'],...
		'Expr','u[1]*u[3] + u[2]*u[4]',...
		'position',[190,64,310,86])

add_block('built-in/Fcn',[sys,'/','qdr2abc1/qdr2ds'])
set_param([sys,'/','qdr2abc1/qdr2ds'],...
		'Expr','u[1]*u[4] - u[2]*u[3]',...
		'position',[190,140,310,160])

add_block('built-in/Note',[sys,'/','qdr2abc1/qds2abc'])
set_param([sys,'/','qdr2abc1/qds2abc'],...
		'position',[530,20,535,25])

add_block('built-in/Mux',[sys,'/','qdr2abc1/Mux1'])
set_param([sys,'/','qdr2abc1/Mux1'],...
		'inputs','2',...
		'position',[350,38,380,187])

add_block('built-in/Fcn',[sys,'/','qdr2abc1/qds2a'])
set_param([sys,'/','qdr2abc1/qds2a'],...
		'Expr','u[1] ',...
		'position',[440,49,610,71])

add_block('built-in/Outport',[sys,'/','qdr2abc1/ia'])
set_param([sys,'/','qdr2abc1/ia'],...
		'position',[640,49,665,71])

add_block('built-in/Outport',[sys,'/','qdr2abc1/ib'])
set_param([sys,'/','qdr2abc1/ib'],...
		'Port','2',...
		'position',[645,104,670,126])

add_block('built-in/Fcn',[sys,'/','qdr2abc1/qds2b'])
set_param([sys,'/','qdr2abc1/qds2b'],...
		'Expr','-u[1]/2 -sqrt(3)*u[2]/2',...
		'position',[435,104,600,126])

add_block('built-in/Outport',[sys,'/','qdr2abc1/ic'])
set_param([sys,'/','qdr2abc1/ic'],...
		'Port','3',...
		'position',[645,158,670,182])

add_block('built-in/Fcn',[sys,'/','qdr2abc1/qds2c'])
set_param([sys,'/','qdr2abc1/qds2c'],...
		'Expr','-u[1]/2 +sqrt(3)*u[2]/2 ',...
		'position',[435,159,605,181])

add_block('built-in/Note',[sys,'/','qdr2abc1/qdr2qds'])
set_param([sys,'/','qdr2abc1/qdr2qds'],...
		'position',[250,20,255,25])
add_line([sys,'/','qdr2abc1'],[85,55;120,55])
add_line([sys,'/','qdr2abc1'],[85,95;120,95])
add_line([sys,'/','qdr2abc1'],[85,135;120,135])
add_line([sys,'/','qdr2abc1'],[85,175;120,175])
add_line([sys,'/','qdr2abc1'],[160,115;165,115;165,75;185,75])
add_line([sys,'/','qdr2abc1'],[160,115;165,115;165,150;185,150])
add_line([sys,'/','qdr2abc1'],[315,75;345,75])
add_line([sys,'/','qdr2abc1'],[315,150;345,150])
add_line([sys,'/','qdr2abc1'],[385,115;430,115])
add_line([sys,'/','qdr2abc1'],[385,115;400,115;400,60;435,60])
add_line([sys,'/','qdr2abc1'],[615,60;635,60])
add_line([sys,'/','qdr2abc1'],[605,115;640,115])
add_line([sys,'/','qdr2abc1'],[385,115;400,115;400,170;430,170])