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');