Explicación del código fuente
h = axis('unit', 'normalized', 'position', [0, 0, 1, 1], 'visible', 'off'); % generar identificador de eje h
set(gcf,' currentaxes',H);%Establecer los ejes del gráfico actual
Str='\fontname{official script}curva de respuesta al paso del sistema normalizado de segundo orden';% Generar formal cadenas de script para futuros nombres.
Text(0.12, 0.93, str, 'fontsize', 13 %Escribe la cadena anterior en el gráfico
h_fig=get(H, 'parent'); las características de h y generar la gráfica h.
set(h_fig, 'unit', 'normalization', 'position', [0.1, 0.2, 0.7, 0.4]); % establece la posición y el tamaño del gráfico h.
h_axes = axes('parent',h_fig,...
units', 'normalización', 'posición', [0.1, 0.15, 0.55, 0.7 ],.. .
' xlim ', [0 15], ' ylim ', [0 1.8], ' fontsize ', 8 % generan el eje de coordenadas del gráfico h
h_text); =uicontrol(h_fig, 'estilo', 'texto',...
Unidad', 'normalización', 'posición', [0.67, 0.73, 0.25, 0.14], .. .
Horizontal', 'Left', 'Chord', { 'Coeficiente de relación de amortiguación de entrada', ' zeta = ' } % genera el control de texto en la Figura H y solicita el valor zeta.
h_edit=uicontrol(h_fig, 'estilo', 'editar',...
Unidad', 'normalización', 'posición', [0.67, 0.59, 0.25, 0.14 ],...
Horizontal', 'Izquierda',...
Devolución de llamada', [...
z=str2num(get (gcbo , " cadena ' ');',...
t = 0:0.1:15;',...
Para k=1: longitud (z) ;' ,...
s2=tf(1,[1 2 * z(k)1]);',...
y(:,k)= paso( s2, t);',...
plot(t, y(:,k));',...
if (longitud (z)> 1) , hold on, end, ',...
end;',...
hold, ']); % genera control de edición y lo dibuja según el valor zeta.
h_push1=uicontrol(h_fig,'estilo','push',...
unidad','normalización','posición',[0.67,0.37, 0.12, 0.15 ],...
string ', ' grid on ', ' callback ', ' grid on ' % Genera un control de botón para dibujar una cuadrícula en el gráfico
h_push2 =uicontrol(h_fig,'estilo','push',...
Unidad', 'normalización', 'posición', [0.67, 0.15, 0.12, 0.15], ...
string ', ' grid off ', ' callback ', ' grid off ' %Generar un control de botón para eliminar la grilla en el gráfico