s5.m

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

set_param([sys,'/',['Torque ',13,'Command']],...
		'orientation',2,...
		'position',[145,111,185,129])

add_block('built-in/Sum',[sys,'/','Sum1'])
set_param([sys,'/','Sum1'],...
		'inputs','+-',...
		'position',[60,153,75,182])

add_block('built-in/Note',[sys,'/','Tref'])
set_param([sys,'/','Tref'],...
		'position',[45,100,50,105])

add_block('built-in/Rate Limiter',[sys,'/','Rate Limiter'])
set_param([sys,'/','Rate Limiter'],...
		'orientation',2,...
		'Rising Slew Limit','1000',...
		'Falling Slew Limit','-1000',...
		'position',[75,110,100,130])

add_block('built-in/Note',[sys,'/','Tem*'])
set_param([sys,'/','Tem*'],...
		'position',[165,150,170,155])

add_block('built-in/Note',[sys,'/','Vs*'])
set_param([sys,'/','Vs*'],...
		'position',[110,350,115,355])


%     Subsystem  'qdr2abc'.

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

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

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

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

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

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

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

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

add_block('built-in/Note',[sys,'/','qdr2abc/qdr2qds'])
set_param([sys,'/','qdr2abc/qdr2qds'],...
		'position',[255,15,260,20])

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

add_block('built-in/Note',[sys,'/','qdr2abc/iqs'])
set_param([sys,'/','qdr2abc/iqs'],...
		'position',[330,55,335,60])

add_block('built-in/Note',[sys,'/','qdr2abc/ids'])
set_param([sys,'/','qdr2abc/ids'],...
		'position',[330,125,335,130])

add_block('built-in/Mux',[sys,'/','qdr2abc/Mux1'])
set_param([sys,'/','qdr2abc/Mux1'],...
		'inputs','2',...
		'position',[355,38,385,187])

add_block('built-in/Fcn',[sys,'/','qdr2abc/qds2a'])
set_param([sys,'/','qdr2abc/qds2a'],...
		'Expr','u[1] ',...
		'position',[435,44,605,66])

add_block('built-in/Outport',[sys,'/','qdr2abc/ia'])
set_param([sys,'/','qdr2abc/ia'],...
		'position',[645,44,670,66])

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

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

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

add_block('built-in/Outport',[sys,'/','qdr2abc/ic'])
set_param([sys,'/','qdr2abc/ic'],...
		'Port','3',...
		'position',[650,158,675,182])
add_line([sys,'/','qdr2abc'],[85,55;120,55])
add_line([sys,'/','qdr2abc'],[85,95;120,95])
add_line([sys,'/','qdr2abc'],[85,135;120,135])
add_line([sys,'/','qdr2abc'],[85,175;120,175])
add_line([sys,'/','qdr2abc'],[160,115;165,115;165,75;185,75])
add_line([sys,'/','qdr2abc'],[160,115;165,115;165,150;185,150])
add_line([sys,'/','qdr2abc'],[315,75;350,75])
add_line([sys,'/','qdr2abc'],[315,150;350,150])
add_line([sys,'/','qdr2abc'],[390,115;430,115])
add_line([sys,'/','qdr2abc'],[390,115;420,115;430,55])
add_line([sys,'/','qdr2abc'],[610,55;640,55])
add_line([sys,'/','qdr2abc'],[605,115;640,115])
add_line([sys,'/','qdr2abc'],[390,115;420,115;430,170])
add_line([sys,'/','qdr2abc'],[610,170;645,170])


%     Finished composite block 'qdr2abc'.

set_param([sys,'/','qdr2abc'],...
		'Font Number',3,...
		'position',[875,165,915,245])

add_block('built-in/Note',[sys,'/','iq'])
set_param([sys,'/','iq'],...
		'position',[748,154,753,159])

add_block('built-in/Note',[sys,'/','id'])
set_param([sys,'/','id'],...
		'position',[748,184,753,189])

add_block('built-in/Note',[sys,'/','sin (wrt)'])
set_param([sys,'/','sin (wrt)'],...
		'position',[828,254,833,259])

add_block('built-in/Note',[sys,'/','cos (wrt)'])
set_param([sys,'/','cos (wrt)'],...
		'position',[828,234,833,239])

add_block('built-in/Note',[sys,'/','wr//wb'])
set_param([sys,'/','wr//wb'],...
		'position',[743,244,748,249])


%     Subsystem  'osc'.

new_system([sys,'/','osc'])
set_param([sys,'/','osc'],'Location',[280,55,870,299])

add_block('built-in/Gain',[sys,'/','osc/Gain'])
set_param([sys,'/','osc/Gain'],...
		'Gain','-wb',...
		'position',[135,63,180,97])

add_block('built-in/Product',[sys,'/','osc/Product'])
set_param([sys,'/','osc/Product'],...
		'position',[370,43,390,92])

add_block('built-in/Integrator',[sys,'/','osc/cos'])
set_param([sys,'/','osc/cos'],...
		'Initial','1',...
		'position',[215,63,245,97])

add_block('built-in/Inport',[sys,'/','osc/wr//wb'])
set_param([sys,'/','osc/wr//wb'],...
		'position',[30,45,50,65])

add_block('built-in/Integrator',[sys,'/','osc/sin'])
set_param([sys,'/','osc/sin'],...
		'orientation',2,...
		'position',[265,123,295,157])

add_block('built-in/Gain',[sys,'/','osc/Gain1'])
set_param([sys,'/','osc/Gain1'],...
		'orientation',2,...
		'Gain','wb',...
		'position',[340,120,385,160])

add_block('built-in/Product',[sys,'/','osc/Product1'])
set_param([sys,'/','osc/Product1'],...
		'orientation',2,...
		'position',[140,128,160,172])

add_block('built-in/Outport',[sys,'/','osc/cos_thetar'])
set_param([sys,'/','osc/cos_thetar'],...
		'position',[470,105,490,125])

add_block('built-in/Outport',[sys,'/','osc/sin_thetar'])
set_param([sys,'/','osc/sin_thetar'],...
		'Port','2',...
		'position',[470,160,490,180])
add_line([sys,'/','osc'],[260,140;165,140])
add_line([sys,'/','osc'],[250,80;270,80;270,115;465,115])
add_line([sys,'/','osc'],[395,70;415,70;415,140;390,140])
add_line([sys,'/','osc'],[55,55;365,55])
add_line([sys,'/','osc'],[250,80;365,80])
add_line([sys,'/','osc'],[185,80;210,80])
add_line([sys,'/','osc'],[135,150;115,150;115,80;130,80])
add_line([sys,'/','osc'],[335,140;300,140])
add_line([sys,'/','osc'],[55,55;90,55;90,190;200,190;200,160;165,160])
add_line([sys,'/','osc'],[260,140;230,140;230,170;465,170])


%     Finished composite block 'osc'.

set_param([sys,'/','osc'],...
		'position',[775,245,800,285])

add_block('built-in/Mux',[sys,'/','Mux'])
set_param([sys,'/','Mux'],...
		'orientation',3,...
		'inputs','9',...
		'position',[163,65,877,90])

add_block('built-in/Clock',[sys,'/','Clock'])
set_param([sys,'/','Clock'],...
		'orientation',3,...
		'position',[235,125,255,145])

add_block('built-in/Note',[sys,'/','Tem'])
set_param([sys,'/','Tem'],...
		'position',[743,219,748,224])


%     Subsystem  'm5'.

new_system([sys,'/','m5'])
set_param([sys,'/','m5'],'Location',[85,4128819,240,4128906])

add_block('built-in/Note',[sys,'/',['m5/Masked block m5.m to initialize',13,'s5.m in Chapter 10 and to plot results']])
set_param([sys,'/',['m5/Masked block m5.m to initialize',13,'s5.m in Chapter 10 and to plot results']],...
		'position',[120,50,125,55])
set_param([sys,'/','m5'],...
		'Mask Display','Initialize\nand plot',...
		'Mask Type','Masked block of m5.m',...
		'Mask Dialogue','eval(''m5'')',...
		'Mask Help','Uses m5.m to initialize and plot')


%     Finished composite block 'm5'.

set_param([sys,'/','m5'],...
		'Drop Shadow',4,...
		'position',[72,41,145,75])

add_block('built-in/Scope',[sys,'/','Scope'])
set_param([sys,'/','Scope'],...
		'Vgain','1.000000',...
		'Hgain','3.000000',...
		'Vmax','2.000000',...
		'Hmax','6.000000',...
		'Window',[20,497,832,625])
open_system([sys,'/','Scope'])
set_param([sys,'/','Scope'],...
		'position',[625,23,645,47])

add_block('built-in/To Workspace',[sys,'/','To Workspace'])
set_param([sys,'/','To Workspace'],...
		'orientation',2,...
		'mat-name','y',...
		'buffer','40000',...
		'position',[410,27,460,43])
add_line(sys,[245,120;245,115;200,115;200,95])
add_line(sys,[520,60;520,35;465,35])
add_line(sys,[430,180;435,180;435,170;470,170])
add_line(sys,[495,200;505,200])
add_line(sys,[500,165;510,165])
add_line(sys,[495,245;505,245])
add_line(sys,[140,120;125,120;125,105;280,95])
add_line(sys,[80,170;90,170])
add_line(sys,[615,205;665,205])
add_line(sys,[615,175;665,175])
add_line(sys,[715,175;870,175])
add_line(sys,[660,235;665,235])
add_line(sys,[655,270;665,265])
add_line(sys,[920,230;920,320;445,320;445,240;465,240])
add_line(sys,[920,205;945,205;945,325;450,325;450,195;465,195])
add_line(sys,[920,180;955,180;955,330;455,330;455,160;470,160])
add_line(sys,[430,205;465,205])
add_line(sys,[430,230;435,230;435,250;465,250])
add_line(sys,[805,275;805,340;555,340;555,245;570,245])
add_line(sys,[920,180;955,180;955,410;465,410])
add_line(sys,[920,205;945,205;945,425;465,425])
add_line(sys,[920,230;920,440;465,440])
add_line(sys,[245,265;250,265])
add_line(sys,[150,385;155,385])
add_line(sys,[105,375;125,375])
add_line(sys,[220,385;215,385;215,325;160,325;160,265;220,265])
add_line(sys,[210,240;220,255])
add_line(sys,[805,275;805,395;465,395])
add_line(sys,[805,275;855,275;855,235;870,235])
add_line(sys,[805,255;845,255;845,215;870,215])
add_line(sys,[805,255;820,255;820,380;465,380])
add_line(sys,[805,275;805,340;375,340;385,225])
add_line(sys,[805,255;820,255;820,365;360,365;360,210;385,210])
add_line(sys,[805,255;820,255;820,365;550,365;550,225;570,225])
add_line(sys,[540,165;570,165])
add_line(sys,[535,200;550,200;550,185;570,185])
add_line(sys,[535,245;545,245;545,205;570,205])
add_line(sys,[395,420;105,420;105,390;125,390])
add_line(sys,[155,170;190,170])
add_line(sys,[215,180;230,180])
add_line(sys,[215,180;215,215;160,215;170,240])
add_line(sys,[395,435;45,435;55,175])
add_line(sys,[395,405;230,405;230,310;180,310;180,275;220,275])
add_line(sys,[395,390;280,390;280,350;155,350;155,185;190,185])
add_line(sys,[520,60;520,35;620,35])
add_line(sys,[920,180;940,180;940,130;840,130;840,95])
add_line(sys,[540,165;550,165;550,125;600,125;600,95])
add_line(sys,[395,420;365,420;365,135;520,135;520,95])
add_line(sys,[280,180;290,180])
add_line(sys,[320,180;385,180])
add_line(sys,[320,180;320,105;360,95])
add_line(sys,[300,265;310,265])
add_line(sys,[340,265;355,265;355,195;385,195])
add_line(sys,[340,265;355,265;355,120;440,120;440,95])
add_line(sys,[140,120;105,120])
add_line(sys,[70,120;35,120;35,375;55,375])
add_line(sys,[70,120;35,120;35,160;55,160])
add_line(sys,[715,205;785,205;785,195;870,195])
add_line(sys,[715,265;770,265])
add_line(sys,[715,235;730,235;730,130;680,130;680,95])
add_line(sys,[715,265;760,265;760,95])

drawnow

% Return any arguments.
if (nargin | nargout)
	% Must use feval here to access system in memory
	if (nargin > 3)
		if (flag == 0)
			eval(['[ret,x0,str,ts,xts]=',sys,'(t,x,u,flag);'])
		else
			eval(['ret =', sys,'(t,x,u,flag);'])
		end
	else
		[ret,x0,str,ts,xts] = feval(sys);
	end
else
	drawnow % Flash up the model and execute load callback
end