www.gusucode.com > smith圆图matlab源码程序 > smith/mmm.m

    clf reset
H=axes( 'unit' , 'normalized' , 'position' ,[0,0,1,1], 'visible' , 'off' );
set(gcf, 'currentaxes' ,H);
str1= '\fontname{ 隶书 }  史密斯圆图的应用' ;
str2= '\fontname{ 隶书 }  请输入归一化电阻' ;
str3= '\fontname{ 隶书 }  请输入归一化电抗' ;
str4= '\fontname{ 隶书 }  请输入距离l' ;
text(0.2,0.92,str1, 'fontsize' ,20);
text(0.72,0.88,str2, 'fontsize' ,14);
text(0.72,0.73,str3, 'fontsize' ,14);
text(0.75,0.58,str4, 'fontsize' ,14);
h_fig=get(H, 'parent' );
set(h_fig, 'unit' , 'normalized' , 'position' ,[0.1,0.1,0.8,0.8]);
h_axes=axes( 'parent' ,h_fig, ...
'unit' , 'normalized' , 'position' ,[0.1,0.15,0.55,0.7], ...
'xlim' ,[-1 1], 'ylim' ,[-1 1], 'fontsize' ,8);
h_edit1=uicontrol(h_fig, 'style' , 'edit' , ...
'unit' , 'normalized' , 'position' ,[0.75,0.78,0.15,0.06], ...
'horizontal' , 'left');
h_edit2=uicontrol(h_fig, 'style' , 'edit' , ...
'unit' , 'normalized' , 'position' ,[0.75,0.63,0.15,0.06], ...
'horizontal' , 'left');
h_edit3=uicontrol(h_fig, 'style' , 'edit' , ...
'unit' , 'normalized' , 'position' ,[0.75,0.48,0.15,0.06], ...
'horizontal' , 'left');
h_push1=uicontrol(h_fig, 'style' , 'push' , ...
'unit' , 'normalized' , 'position' ,[0.70,0.36,0.10,0.06], ...
'string' , 'S1');
h_push2=uicontrol(h_fig, 'style' , 'push' , ...
'unit' , 'normalized' , 'position' ,[0.84,0.36,0.10,0.06], ...
'string' , 'S2');
h_push3=uicontrol(h_fig, 'style' , 'push' , ...
'unit' , 'normalized' , 'position' ,[0.70,0.24,0.10,0.06], ...
'string' , 'S3');
h_push4=uicontrol(h_fig, 'style' , 'push' , ...
'unit' , 'normalized' , 'position' ,[0.84,0.24,0.10,0.06], ...
'string' , 'S4');
h_push5=uicontrol(h_fig, 'style' , 'push' , ...
'unit' , 'normalized' , 'position' ,[0.77,0.12,0.10,0.06], ...
'string' , 'clear');
set(h_push1,'callback','calledit1');
set(h_push2,'callback','calledit2(h_edit1,h_edit2)');
set(h_push3,'callback','calledit3(h_edit1,h_edit2)');
set(h_push4,'callback','calledit4(h_edit1,h_edit2,h_edit3)');
set(h_push5,'callback','calledit5');