072

72 Rozdział 6

'Style',’text',    ...

¹ Tag' , 'StaticText2');

uicontrol('Parent' , hO,    ...

'Units¹,'points',    ...

'BackgroundColor¹,[0 0.7 0.7],    ...

'Position',[0 320 560 30],    ...

'String','0    - uruchom program, 1    - suwakiem wybierz wartość

pojemności Cs [F] ,    2 - nacisnij OBLICZENIA, 3    - powtarzaj krok

1,2 az do uzyskania rezonansu¹,    ...

¹ Style', 'text',    ...

'Tag ¹ , ¹StaticText2¹) ;

C=0.01;

vslider=uicontrol('style’,'slider¹,...

'units','normalized',...

'position' , [.05, .084, .035,0.75] , . . .

'min',0.0015,'max',1.5,...

'value',C,...

'callback',¹rlcrys(2)'); vedit=uicontrol(¹ style', 'edit', ...

'units','normalized',...

'position',[.01 .01 .10 .05],...

'string' , [ ' Cs= ' ,num2str(C)]) ;

hl = uicontrol(¹Parent',hO,    ...

'Units','points',    ...

'Callback','rlcrys(1)',    ...

'Position',[50 300 250 20],    ...

'String','Uruchomienie programu',    ...

’Style','pushbutton',    ...

'Tag','Pushbuttonl');

rys = uicontrol('Parent',hO,    ...

'Units','points',    ...

'Callback','rlcrys(3)',    ...

'Position',[50 280 250 20],    ...

'String','OBLICZENIA ',    ...

'Enable', 'of f', .. .

'Style','pushbutton',    ...

'Tag','Pushbuttonl'); return

function rlcrys(k);

% Symulacja rezonansu dla wybranej suwakiem pojemności Cs global Cs C vslider vedit rys j=sqrt(-l); w=2*pi*50;

R=0.02; XL=0.03; E=231*exp(j*pi/6) ; if k==l Cs = 0.01;