s5b.m

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

add_block('built-in/Sum',[sys,'/','Sign/Sum'])
set_param([sys,'/','Sign/Sum'],...
		'inputs','+-',...
		'position',[215,64,235,91])

add_block('built-in/Relational Operator',[sys,'/',['Sign/Relational',13,'Operator1']])
set_param([sys,'/',['Sign/Relational',13,'Operator1']],...
		'Operator','<',...
		'position',[140,92,170,123])

add_block('built-in/Constant',[sys,'/','Sign/Constant'])
set_param([sys,'/','Sign/Constant'],...
		'Value','0',...
		'position',[65,105,85,125])
add_line([sys,'/','Sign'],[60,40;135,40])
add_line([sys,'/','Sign'],[95,40;95,100;135,100])
add_line([sys,'/','Sign'],[90,115;135,115])
add_line([sys,'/','Sign'],[110,115;110,55;135,55])
add_line([sys,'/','Sign'],[175,110;185,110;185,85;210,85])
add_line([sys,'/','Sign'],[175,50;185,50;185,70;210,70])
add_line([sys,'/','Sign'],[240,80;260,80])
set_param([sys,'/','Sign'],...
		'Mask Display','plot(-50,-50,50,50,[-50,50],[0,0],[0,0],[-50,50],[-40,0],[-30,-30],[0,40],[30,30])',...
		'Mask Type','Sign',...
		'Mask Dialogue','y = sign(x)')
set_param([sys,'/','Sign'],...
		'Mask Help','Sign Function:\n\t\t\ty = 1 if x > 0\n\t\t\ty = 0 if x = 0\n\t\t\ty = -1 if x < 0')


%     Finished composite block 'Sign'.

set_param([sys,'/','Sign'],...
		'position',[380,127,410,153])


%     Subsystem  'Sign1'.

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

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

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

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

add_block('built-in/Sum',[sys,'/','Sign1/Sum'])
set_param([sys,'/','Sign1/Sum'],...
		'inputs','+-',...
		'position',[215,64,235,91])

add_block('built-in/Relational Operator',[sys,'/',['Sign1/Relational',13,'Operator1']])
set_param([sys,'/',['Sign1/Relational',13,'Operator1']],...
		'Operator','<',...
		'position',[140,92,170,123])

add_block('built-in/Constant',[sys,'/','Sign1/Constant'])
set_param([sys,'/','Sign1/Constant'],...
		'Value','0',...
		'position',[65,105,85,125])
add_line([sys,'/','Sign1'],[60,40;135,40])
add_line([sys,'/','Sign1'],[95,40;95,100;135,100])
add_line([sys,'/','Sign1'],[90,115;135,115])
add_line([sys,'/','Sign1'],[110,115;110,55;135,55])
add_line([sys,'/','Sign1'],[175,110;185,110;185,85;210,85])
add_line([sys,'/','Sign1'],[175,50;185,50;185,70;210,70])
add_line([sys,'/','Sign1'],[240,80;260,80])
set_param([sys,'/','Sign1'],...
		'Mask Display','plot(-50,-50,50,50,[-50,50],[0,0],[0,0],[-50,50],[-40,0],[-30,-30],[0,40],[30,30])',...
		'Mask Type','Sign',...
		'Mask Dialogue','y = sign(x)')
set_param([sys,'/','Sign1'],...
		'Mask Help','Sign Function:\n\t\t\ty = 1 if x > 0\n\t\t\ty = 0 if x = 0\n\t\t\ty = -1 if x < 0')


%     Finished composite block 'Sign1'.

set_param([sys,'/','Sign1'],...
		'position',[380,177,410,203])


%     Subsystem  'Sign2'.

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

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

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

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

add_block('built-in/Sum',[sys,'/','Sign2/Sum'])
set_param([sys,'/','Sign2/Sum'],...
		'inputs','+-',...
		'position',[215,64,235,91])

add_block('built-in/Relational Operator',[sys,'/',['Sign2/Relational',13,'Operator1']])
set_param([sys,'/',['Sign2/Relational',13,'Operator1']],...
		'Operator','<',...
		'position',[140,92,170,123])

add_block('built-in/Constant',[sys,'/','Sign2/Constant'])
set_param([sys,'/','Sign2/Constant'],...
		'Value','0',...
		'position',[65,105,85,125])
add_line([sys,'/','Sign2'],[60,40;135,40])
add_line([sys,'/','Sign2'],[95,40;95,100;135,100])
add_line([sys,'/','Sign2'],[90,115;135,115])
add_line([sys,'/','Sign2'],[110,115;110,55;135,55])
add_line([sys,'/','Sign2'],[175,110;185,110;185,85;210,85])
add_line([sys,'/','Sign2'],[175,50;185,50;185,70;210,70])
add_line([sys,'/','Sign2'],[240,80;260,80])
set_param([sys,'/','Sign2'],...
		'Mask Display','plot(-50,-50,50,50,[-50,50],[0,0],[0,0],[-50,50],[-40,0],[-30,-30],[0,40],[30,30])',...
		'Mask Type','Sign',...
		'Mask Dialogue','y = sign(x)')
set_param([sys,'/','Sign2'],...
		'Mask Help','Sign Function:\n\t\t\ty = 1 if x > 0\n\t\t\ty = 0 if x = 0\n\t\t\ty = -1 if x < 0')


%     Finished composite block 'Sign2'.

set_param([sys,'/','Sign2'],...
		'position',[380,227,410,253])

add_block('built-in/Integrator',[sys,'/','Integrator'])
set_param([sys,'/','Integrator'],...
		'position',[120,117,155,163])

add_block('built-in/Fcn',[sys,'/','vcg'])
set_param([sys,'/','vcg'],...
		'Expr','Vm*cos(u[1]+2*pi/3)',...
		'position',[200,227,335,253])

add_block('built-in/Fcn',[sys,'/','vbg'])
set_param([sys,'/','vbg'],...
		'Expr','Vm*cos(u[1]-2*pi/3)',...
		'position',[200,177,335,203])

add_block('built-in/Fcn',[sys,'/','vag'])
set_param([sys,'/','vag'],...
		'Expr','Vm*cos(u[1])',...
		'position',[200,128,335,152])

add_block('built-in/Constant',[sys,'/','Tmech'])
set_param([sys,'/','Tmech'],...
		'Value','-Tb',...
		'position',[450,275,490,295])

add_block('built-in/Fcn',[sys,'/','V//Hz & form factor'])
set_param([sys,'/','V//Hz & form factor'],...
		'Expr','u[1]*(Vm/wb)*(pi/4)',...
		'position',[195,276,335,314])

add_block('built-in/Constant',[sys,'/','we'])
set_param([sys,'/','we'],...
		'Value','wb',...
		'position',[55,127,85,153])

add_block('built-in/To Workspace',[sys,'/','To Workspace'])
set_param([sys,'/','To Workspace'],...
		'mat-name','y',...
		'buffer','50000',...
		'position',[725,181,765,199])

add_block('built-in/Scope',[sys,'/','Scope'])
set_param([sys,'/','Scope'],...
		'Vgain','20.000000',...
		'Hgain','1.000000',...
		'Vmax','40.000000',...
		'Hmax','2.000000',...
		'Window',[0,417,812,600])
open_system([sys,'/','Scope'])
set_param([sys,'/','Scope'],...
		'position',[730,126,760,154])

add_block('built-in/Scope',[sys,'/','Scope1'])
set_param([sys,'/','Scope1'],...
		'Vgain','10.000000',...
		'Hgain','1.000000',...
		'Vmax','10.000000',...
		'Hmax','1.886792',...
		'Window',[138,705,967,833],...
		'position',[725,66,755,94])

add_block('built-in/Note',[sys,'/','ias'])
set_param([sys,'/','ias'],...
		'position',[620,125,625,130])

add_block('built-in/Note',[sys,'/','vsg'])
set_param([sys,'/','vsg'],...
		'position',[625,245,630,250])

add_block('built-in/Note',[sys,'/','Tem'])
set_param([sys,'/','Tem'],...
		'position',[620,200,625,205])

add_block('built-in/Note',[sys,'/','wr//wb'])
set_param([sys,'/','wr//wb'],...
		'position',[625,160,630,165])

add_block('built-in/Note',[sys,'/',['Six-Step Voltage Supply to Induction Machine ',13,'in Stationary Reference Frame']])
set_param([sys,'/',['Six-Step Voltage Supply to Induction Machine ',13,'in Stationary Reference Frame']],...
		'position',[365,65,370,70])


%     Subsystem  'm5'.

new_system([sys,'/','m5'])
set_param([sys,'/','m5'],'Location',[15,8061056,250,8061150])

add_block('built-in/Note',[sys,'/',['m5/Uses m5.m to initIalize simulation ',13,'and plot results']])
set_param([sys,'/',['m5/Uses m5.m to initIalize simulation ',13,'and plot results']],...
		'position',[155,43,160,48])
set_param([sys,'/','m5'],...
		'Mask Display','Initialize\nand plot',...
		'Mask Type','Masked block of m5.m',...
		'Mask Dialogue','eval(''m5'')',...
		'Mask Help','Uses m5.5 to initialize and plot')


%     Finished composite block 'm5'.

set_param([sys,'/','m5'],...
		'Drop Shadow',4,...
		'position',[77,55,142,87])
add_line(sys,[700,165;705,165;705,190;720,190])
add_line(sys,[700,165;705,165;705,140;725,140])
add_line(sys,[595,65;660,65])
add_line(sys,[160,140;170,140;170,240;195,240])
add_line(sys,[170,140;195,140])
add_line(sys,[90,140;115,140])
add_line(sys,[170,140;185,140;195,190])
add_line(sys,[495,145;535,145])
add_line(sys,[495,195;510,195;510,185;535,185])
add_line(sys,[495,245;510,245;510,225;535,225])
add_line(sys,[415,140;455,140])
add_line(sys,[415,190;455,190])
add_line(sys,[415,240;455,240])
add_line(sys,[340,295;430,295;430,150;455,150])
add_line(sys,[430,200;455,200])
add_line(sys,[430,250;455,250])
add_line(sys,[340,140;375,140])
add_line(sys,[340,190;375,190])
add_line(sys,[340,240;375,240])
add_line(sys,[495,145;510,145;510,105;660,105])
add_line(sys,[90,140;95,140;95,295;190,295])
add_line(sys,[495,285;510,285;510,265;535,265])
add_line(sys,[605,145;660,145])
add_line(sys,[605,185;660,185])
add_line(sys,[605,225;660,225])
add_line(sys,[605,265;660,265])

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