s3eig.m

all electric machinery dynamic simulation is realized by this book

add_block('built-in/Inport',[sys,'/','Rotor/-iqr'])
set_param([sys,'/','Rotor/-iqr'],...
		'position',[80,95,100,115])

add_block('built-in/Note',[sys,'/','Rotor/Tem_'])
set_param([sys,'/','Rotor/Tem_'],...
		'position',[220,140,225,145])

add_block('built-in/Product',[sys,'/','Rotor/Prod'])
set_param([sys,'/','Rotor/Prod'],...
		'position',[140,124,155,146])

add_block('built-in/Inport',[sys,'/','Rotor/psiq'])
set_param([sys,'/','Rotor/psiq'],...
		'Port','3',...
		'position',[80,170,100,190])

add_block('built-in/Product',[sys,'/','Rotor/Prod2'])
set_param([sys,'/','Rotor/Prod2'],...
		'position',[140,175,155,195])

add_block('built-in/Sum',[sys,'/','Rotor/Sum12'])
set_param([sys,'/','Rotor/Sum12'],...
		'inputs','-+',...
		'position',[180,111,200,209])

add_block('built-in/Inport',[sys,'/','Rotor/psid '])
set_param([sys,'/','Rotor/psid '],...
		'Port','2',...
		'position',[80,130,100,150])

add_block('built-in/Integrator',[sys,'/','Rotor/slip'])
set_param([sys,'/','Rotor/slip'],...
		'position',[400,125,435,155])

add_block('built-in/Gain',[sys,'/','Rotor/Damping'])
set_param([sys,'/','Rotor/Damping'],...
		'orientation',2,...
		'Gain','Domega',...
		'position',[315,68,405,102])

add_block('built-in/Sum',[sys,'/','Rotor/Tacc'])
set_param([sys,'/','Rotor/Tacc'],...
		'inputs','-++',...
		'position',[270,110,290,170])

add_block('built-in/Constant',[sys,'/','Rotor/we//wb'])
set_param([sys,'/','Rotor/we//wb'],...
		'position',[415,203,445,227])

add_block('built-in/Sum',[sys,'/','Rotor/Sum14'])
set_param([sys,'/','Rotor/Sum14'],...
		'position',[490,183,505,227])

add_block('built-in/Integrator',[sys,'/','Rotor/del'])
set_param([sys,'/','Rotor/del'],...
		'position',[530,125,565,155])

add_block('built-in/Gain',[sys,'/','Rotor/gain4'])
set_param([sys,'/','Rotor/gain4'],...
		'Gain','wb',...
		'position',[475,124,510,156])

add_block('built-in/Gain',[sys,'/','Rotor/1//2H'])
set_param([sys,'/','Rotor/1//2H'],...
		'Gain','1/(2*H)',...
		'position',[310,120,380,160])
add_line([sys,'/','Rotor'],[310,85;250,85;250,120;265,120])
add_line([sys,'/','Rotor'],[205,160;265,160])
add_line([sys,'/','Rotor'],[440,140;470,140])
add_line([sys,'/','Rotor'],[515,140;525,140])
add_line([sys,'/','Rotor'],[160,185;175,185])
add_line([sys,'/','Rotor'],[385,140;395,140])
add_line([sys,'/','Rotor'],[450,215;485,215])
add_line([sys,'/','Rotor'],[295,140;305,140])
add_line([sys,'/','Rotor'],[160,135;175,135])
add_line([sys,'/','Rotor'],[105,105;115,105;115,130;135,130])
add_line([sys,'/','Rotor'],[105,140;135,140])
add_line([sys,'/','Rotor'],[105,180;135,180])
add_line([sys,'/','Rotor'],[105,220;115,220;115,190;135,190])
add_line([sys,'/','Rotor'],[510,205;595,205])
add_line([sys,'/','Rotor'],[205,160;240,160;240,215;260,215])
add_line([sys,'/','Rotor'],[440,140;455,140;455,195;485,195])
add_line([sys,'/','Rotor'],[440,140;455,140;455,85;410,85])
add_line([sys,'/','Rotor'],[105,70;235,70;235,140;265,140])
add_line([sys,'/','Rotor'],[570,140;590,140])
add_line([sys,'/','Rotor'],[440,140;455,140;455,85;590,85])


%     Finished composite block 'Rotor'.

set_param([sys,'/','Rotor'],...
		'Font Number',3,...
		'position',[580,163,625,297])


%     Subsystem  'd_cct'.

new_system([sys,'/','d_cct'])
set_param([sys,'/','d_cct'],'Location',[276,284,1225,801])

add_block('built-in/Outport',[sys,'/','d_cct/Out_psid'])
set_param([sys,'/','d_cct/Out_psid'],...
		'position',[585,45,605,65])

add_block('built-in/Inport',[sys,'/','d_cct/In_Ef'])
set_param([sys,'/','d_cct/In_Ef'],...
		'Port','3',...
		'position',[50,250,70,270])

add_block('built-in/Outport',[sys,'/','d_cct/Out_ipf'])
set_param([sys,'/','d_cct/Out_ipf'],...
		'Port','4',...
		'position',[835,335,855,355])

add_block('built-in/Outport',[sys,'/','d_cct/Out_-id'])
set_param([sys,'/','d_cct/Out_-id'],...
		'Port','2',...
		'position',[830,230,850,250])

add_block('built-in/Outport',[sys,'/','d_cct/Out_psimd'])
set_param([sys,'/','d_cct/Out_psimd'],...
		'Port','3',...
		'position',[835,120,855,140])

add_block('built-in/Fcn',[sys,'/','d_cct/Fcn5'])
set_param([sys,'/','d_cct/Fcn5'],...
		'Expr','(u[1]-u[2])/xplf',...
		'position',[565,332,655,358])

add_block('built-in/Mux',[sys,'/','d_cct/Mux5'])
set_param([sys,'/','d_cct/Mux5'],...
		'inputs','2',...
		'position',[520,309,540,376])

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

add_block('built-in/Fcn',[sys,'/','d_cct/Fcn4'])
set_param([sys,'/','d_cct/Fcn4'],...
		'Expr','-(u[1]-u[2])/xls',...
		'position',[565,227,655,253])

add_block('built-in/Fcn',[sys,'/','d_cct/Fcn3'])
set_param([sys,'/','d_cct/Fcn3'],...
		'Expr','xMD*(u[1]/xls+u[2]/xplf+u[3]/xplkd)',...
		'position',[565,114,775,146])

add_block('built-in/Mux',[sys,'/','d_cct/Mux3'])
set_param([sys,'/','d_cct/Mux3'],...
		'inputs','3',...
		'position',[520,87,545,173])

add_block('built-in/Integrator',[sys,'/','d_cct/psipkd_'])
set_param([sys,'/','d_cct/psipkd_'],...
		'Initial','Psikdo',...
		'position',[390,357,420,383])

add_block('built-in/Fcn',[sys,'/','d_cct/Fcn2'])
set_param([sys,'/','d_cct/Fcn2'],...
		'Expr','wb*rpkd*(u[1]-u[2])/xplkd',...
		'position',[180,356,365,384])

add_block('built-in/Integrator',[sys,'/','d_cct/psipf_'])
set_param([sys,'/','d_cct/psipf_'],...
		'Initial','Psifo',...
		'position',[390,247,420,273])

add_block('built-in/Fcn',[sys,'/','d_cct/Fcn1'])
set_param([sys,'/','d_cct/Fcn1'],...
		'Expr','wb*rpf*(u[2]/xmd+(u[1]-u[3])/xplf)',...
		'position',[175,245,375,275])

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

add_block('built-in/Mux',[sys,'/','d_cct/Mux2'])
set_param([sys,'/','d_cct/Mux2'],...
		'inputs','2',...
		'position',[130,330,155,405])

add_block('built-in/Mux',[sys,'/','d_cct/Mux1'])
set_param([sys,'/','d_cct/Mux1'],...
		'inputs','3',...
		'position',[135,217,160,303])

add_block('built-in/Fcn',[sys,'/','d_cct/Fcn'])
set_param([sys,'/','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,'/','d_cct/In_wrpsiq'])
set_param([sys,'/','d_cct/In_wrpsiq'],...
		'Port','2',...
		'position',[50,160,70,180])

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

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

add_block('built-in/Scope',[sys,'/','d_cct/daxis_Scope'])
set_param([sys,'/','d_cct/daxis_Scope'],...
		'Vgain','3.000000',...
		'Hgain','0.050000',...
		'Vmax','6.000000',...
		'Hmax','2.000000',...
		'Window',[451,130,627,387],...
		'position',[835,402,855,428])
add_line([sys,'/','d_cct'],[75,170;95,170;95,150;130,150])
add_line([sys,'/','d_cct'],[75,115;95,115;95,125;130,125])
add_line([sys,'/','d_cct'],[165,140;175,140])
add_line([sys,'/','d_cct'],[380,140;385,140])
add_line([sys,'/','d_cct'],[425,140;435,140;435,205;115,205;115,175;130,175])
add_line([sys,'/','d_cct'],[165,260;170,260])
add_line([sys,'/','d_cct'],[380,260;385,260])
add_line([sys,'/','d_cct'],[425,260;450,260;450,320;115,320;115,290;130,290])
add_line([sys,'/','d_cct'],[75,260;130,260])
add_line([sys,'/','d_cct'],[160,370;175,370])
add_line([sys,'/','d_cct'],[370,370;385,370])
add_line([sys,'/','d_cct'],[425,370;460,370;460,430;110,430;110,385;125,385])
add_line([sys,'/','d_cct'],[425,140;435,140;435,100;515,100])
add_line([sys,'/','d_cct'],[425,260;450,260;450,130;515,130])
add_line([sys,'/','d_cct'],[425,370;460,370;460,160;515,160])
add_line([sys,'/','d_cct'],[550,130;560,130])
add_line([sys,'/','d_cct'],[545,240;560,240])
add_line([sys,'/','d_cct'],[425,140;470,140;470,220;515,220])
add_line([sys,'/','d_cct'],[545,345;560,345])
add_line([sys,'/','d_cct'],[425,260;485,260;485,325;515,325])
add_line([sys,'/','d_cct'],[780,130;790,130;790,445;495,445;495,360;515,360])
add_line([sys,'/','d_cct'],[780,130;790,130;790,305;495,305;495,255;515,255])
add_line([sys,'/','d_cct'],[780,130;790,130;790,445;90,445;90,350;125,350])
add_line([sys,'/','d_cct'],[780,130;790,130;790,445;90,445;90,230;130,230])
add_line([sys,'/','d_cct'],[780,130;790,130;790,80;115,80;115,100;130,100])
add_line([sys,'/','d_cct'],[780,130;830,130])
add_line([sys,'/','d_cct'],[660,240;825,240])
add_line([sys,'/','d_cct'],[660,345;830,345])
add_line([sys,'/','d_cct'],[425,140;435,140;435,55;580,55])


%     Finished composite block 'd_cct'.

set_param([sys,'/','d_cct'],...
		'position',[410,234,445,291])

add_block('built-in/Product',[sys,'/','prod1'])
set_param([sys,'/','prod1'],...
		'orientation',2,...
		'Font Number',3,...
		'position',[420,109,435,136])

add_block('built-in/Note',[sys,'/','-idr'])
set_param([sys,'/','-idr'],...
		'position',[483,256,488,261])

add_block('built-in/Note',[sys,'/','psiq'])
set_param([sys,'/','psiq'],...
		'position',[468,146,473,151])

add_block('built-in/Note',[sys,'/','psid'])
set_param([sys,'/','psid'],...
		'position',[468,231,473,236])

add_block('built-in/Note',[sys,'/','-iqr'])
set_param([sys,'/','-iqr'],...
		'position',[468,176,473,181])

add_block('built-in/Mux',[sys,'/','Mux1'])
set_param([sys,'/','Mux1'],...
		'inputs','3',...
		'position',[115,148,140,272])

add_block('built-in/Fcn',[sys,'/','Fcn'])
set_param([sys,'/','Fcn'],...
		'Expr','u[2]*cos(u[1])-u[3]*sin(u[1])',...
		'position',[170,179,335,211])

add_block('built-in/Fcn',[sys,'/','Fcn1'])
set_param([sys,'/','Fcn1'],...
		'Expr','u[2]*sin(u[1])+u[3]*cos(u[1])',...
		'position',[170,229,335,261])
add_line(sys,[450,165;453,165;453,315;440,315])
add_line(sys,[450,240;493,240;493,115;440,115])
add_line(sys,[630,215;643,215;643,130;440,130])
add_line(sys,[630,215;643,215;643,330;440,330])
add_line(sys,[450,165;533,165;533,230;575,230])
add_line(sys,[450,180;575,180])
add_line(sys,[450,255;575,255])
add_line(sys,[450,240;548,240;548,205;575,205])
add_line(sys,[415,325;378,325;378,265;405,265])
add_line(sys,[630,180;700,180])
add_line(sys,[630,250;700,250])
add_line(sys,[360,285;405,285])
add_line(sys,[630,285;700,285])
add_line(sys,[560,280;575,280])
add_line(sys,[80,210;110,210])
add_line(sys,[80,250;110,250])
add_line(sys,[630,180;633,180;633,104;93,104;93,170;110,170])
add_line(sys,[340,195;373,195;373,170;405,170])
add_line(sys,[145,210;148,210;148,195;165,195])
add_line(sys,[340,245;405,245])
add_line(sys,[145,210;148,210;148,245;165,245])
add_line(sys,[450,180;503,180;503,50;540,50])
add_line(sys,[450,255;518,255;518,80;540,80])
add_line(sys,[340,195;373,195;373,35;540,35])
add_line(sys,[340,245;343,245;343,65;540,65])
add_line(sys,[585,65;700,65])
add_line(sys,[585,80;660,80])
add_line(sys,[415,125;388,125;388,195;405,195])

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