s5b.m

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

set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/Mux']],...
		'inputs','3',...
		'position',[145,80,170,210])

add_block('built-in/Inport',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/in_vag']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/in_vag']],...
		'position',[80,90,100,110])

add_block('built-in/Inport',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/in_vbg']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/in_vbg']],...
		'Port','2',...
		'position',[80,135,100,155])

add_block('built-in/Inport',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/in_vcg']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/in_vcg']],...
		'Port','3',...
		'position',[80,180,100,200])

add_block('built-in/Fcn',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/Fcn1']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/Fcn1']],...
		'Expr','(u[3]-u[2])/sqrt(3)',...
		'position',[225,132,375,158])

add_block('built-in/Fcn',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/Fcn']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/Fcn']],...
		'Expr','(2/3)*(u[1] - (u[2]+u[3])/2)',...
		'position',[225,81,380,109])

add_block('built-in/Fcn',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/Fcn2']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/Fcn2']],...
		'Expr','(u[1]+u[2]+u[3])/3',...
		'position',[225,177,375,203])

add_block('built-in/Outport',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/out_vsg']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/out_vsg']],...
		'Port','4',...
		'position',[465,245,485,265])

add_block('built-in/Sum',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/Sum1']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/Sum1']],...
		'inputs','+-',...
		'position',[425,85,440,120])

add_block('built-in/Outport',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/out_vqs']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/out_vqs']],...
		'position',[470,95,490,115])

add_block('built-in/Sum',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/Sum']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/Sum']],...
		'inputs','+-',...
		'position',[420,182,435,218])

add_block('built-in/Outport',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/out_v0s']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/out_v0s']],...
		'Port','3',...
		'position',[465,190,485,210])

add_block('built-in/Outport',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/out_vds']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/out_vds']],...
		'Port','2',...
		'position',[475,135,495,155])

add_block('built-in/Gain',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/1//Csg']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/1//Csg']],...
		'Gain','200*Zb',...
		'position',[190,213,270,257])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/abc2qds/vsg']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds/vsg']],...
		'position',[330,215,335,220])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[105,100;140,100])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[105,145;140,145])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[105,190;140,190])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[175,145;220,145])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[175,145;190,145;190,95;220,95])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[380,145;470,145])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[175,145;190,145;190,190;220,190])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[440,200;460,200])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[380,190;415,190])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[105,235;185,235])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[385,95;420,95])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[445,105;465,105])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[275,235;385,235;385,210;415,210])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[275,235;365,235;365,255;460,255])
add_line([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],[275,235;385,235;385,110;420,110])


%     Finished composite block ['induction machine',13,'in stationary qd0/abc2qds'].

set_param([sys,'/',['induction machine',13,'in stationary qd0/abc2qds']],...
		'position',[130,152,175,238])


%     Subsystem  ['induction machine',13,'in stationary qd0/qds2abc'].

new_system([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']],'Location',[228,79,747,289])

add_block('built-in/Inport',[sys,'/',['induction machine',13,'in stationary qd0/qds2abc/in_ids']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc/in_ids']],...
		'Port','2',...
		'position',[45,95,65,115])

add_block('built-in/Mux',[sys,'/',['induction machine',13,'in stationary qd0/qds2abc/Mux']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc/Mux']],...
		'inputs','3',...
		'position',[110,34,135,176])

add_block('built-in/Fcn',[sys,'/',['induction machine',13,'in stationary qd0/qds2abc/Fcn1']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc/Fcn1']],...
		'Expr','-(u[1]+sqrt(3)*u[2])/2 +u[3]',...
		'position',[185,92,370,118])

add_block('built-in/Outport',[sys,'/',['induction machine',13,'in stationary qd0/qds2abc/out_ibs']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc/out_ibs']],...
		'Port','2',...
		'position',[440,95,460,115])

add_block('built-in/Outport',[sys,'/',['induction machine',13,'in stationary qd0/qds2abc/out_ias']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc/out_ias']],...
		'position',[440,40,460,60])

add_block('built-in/Fcn',[sys,'/',['induction machine',13,'in stationary qd0/qds2abc/Fcn2']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc/Fcn2']],...
		'Expr','-(u[1]-sqrt(3)*u[2])/2 + u[3]',...
		'position',[185,147,375,173])

add_block('built-in/Fcn',[sys,'/',['induction machine',13,'in stationary qd0/qds2abc/Fcn']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc/Fcn']],...
		'Expr','u[1] + u[3]',...
		'position',[185,36,375,64])

add_block('built-in/Outport',[sys,'/',['induction machine',13,'in stationary qd0/qds2abc/out_ics']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc/out_ics']],...
		'Port','3',...
		'position',[440,150,460,170])

add_block('built-in/Inport',[sys,'/',['induction machine',13,'in stationary qd0/qds2abc/in_iqs']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc/in_iqs']],...
		'position',[45,50,65,70])

add_block('built-in/Inport',[sys,'/',['induction machine',13,'in stationary qd0/qds2abc/in_i0s']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc/in_i0s']],...
		'Port','3',...
		'position',[45,140,65,160])
add_line([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']],[70,105;105,105])
add_line([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']],[70,60;105,60])
add_line([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']],[70,150;105,150])
add_line([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']],[140,105;180,105])
add_line([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']],[375,105;435,105])
add_line([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']],[380,50;435,50])
add_line([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']],[140,105;155,105;155,50;180,50])
add_line([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']],[140,105;155,105;155,160;180,160])
add_line([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']],[380,160;435,160])


%     Finished composite block ['induction machine',13,'in stationary qd0/qds2abc'].

set_param([sys,'/',['induction machine',13,'in stationary qd0/qds2abc']],...
		'position',[545,155,580,235])

add_block('built-in/Sum',[sys,'/',['induction machine',13,'in stationary qd0/Sum']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/Sum']],...
		'inputs','+++',...
		'position',[625,155,645,235])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/psiqs']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/psiqs']],...
		'position',[290,60,295,65])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/iqs']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/iqs']],...
		'position',[285,75,290,80])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/psiqr']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/psiqr']],...
		'position',[290,105,295,110])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/ibs']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/ibs']],...
		'position',[590,175,595,180])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/ics']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/ics']],...
		'position',[590,200,595,205])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/psids']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/psids']],...
		'position',[295,235,300,240])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/psidr']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/psidr']],...
		'position',[299,280,304,285])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/ias']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/ias']],...
		'position',[600,150,605,155])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/vqs']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/vqs']],...
		'position',[185,145,190,150])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/vds']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/vds']],...
		'position',[185,165,190,170])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/v0s']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/v0s']],...
		'position',[185,185,190,190])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/ids']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/ids']],...
		'position',[290,250,295,255])

add_block('built-in/Note',[sys,'/',['induction machine',13,'in stationary qd0/vbg']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/vbg']],...
		'position',[77,165,82,170])

add_block('built-in/Inport',[sys,'/',['induction machine',13,'in stationary qd0/in_Tmech']])
set_param([sys,'/',['induction machine',13,'in stationary qd0/in_Tmech']],...
		'orientation',2,...
		'Port','4',...
		'position',[450,200,470,220])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[650,195;660,195;660,360;115,360;125,225])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[400,315;530,315;540,220])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[585,220;620,220])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[585,195;620,195])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[585,170;620,170])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[180,205;195,205;195,315;355,315])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[285,300;325,300;325,210;300,210])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[280,125;320,125;320,150;300,150])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[380,200;300,200])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[380,200;335,200;335,160;300,160])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[285,255;490,255;490,150;430,150])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[270,155;225,155;225,290;240,290])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[280,95;515,95;515,170;540,170])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[515,160;515,165;430,165])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[180,165;205,165;205,90;235,90])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[180,185;205,185;205,265;240,265])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[280,80;495,80;495,180;430,180])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[270,205;215,205;215,115;235,115])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[285,270;515,270;515,195;540,195])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[515,213;515,195;430,195])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[70,135;90,135;90,165;125,165])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[380,165;375,165;365,115])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[585,170;590,170;590,120;605,120])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[70,185;125,185])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[380,200;370,225])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[70,235;90,235;90,205;125,205])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[445,210;430,210])
add_line([sys,'/',['induction machine',13,'in stationary qd0']],[180,225;185,225;195,330])


%     Finished composite block ['induction machine',13,'in stationary qd0'].

set_param([sys,'/',['induction machine',13,'in stationary qd0']],...
		'position',[540,128,600,282])

add_block('built-in/Product',[sys,'/','Product1'])
set_param([sys,'/','Product1'],...
		'position',[460,183,490,207])

add_block('built-in/Product',[sys,'/','Product'])
set_param([sys,'/','Product'],...
		'position',[460,133,490,157])

add_block('built-in/Product',[sys,'/','Product2'])
set_param([sys,'/','Product2'],...
		'position',[460,233,490,257])


%     Subsystem  'Sign'.

new_system([sys,'/','Sign'])
set_param([sys,'/','Sign'],'Location',[159,417,467,586])

add_block('built-in/Outport',[sys,'/','Sign/out_1'])
set_param([sys,'/','Sign/out_1'],...
		'position',[265,70,285,90])

add_block('built-in/Inport',[sys,'/','Sign/in_1'])
set_param([sys,'/','Sign/in_1'],...
		'position',[35,30,55,50])

add_block('built-in/Relational Operator',[sys,'/',['Sign/Relational',13,'Operator']])
set_param([sys,'/',['Sign/Relational',13,'Operator']],...
		'Operator','>',...
		'position',[140,32,170,63])