Створення програми для рішення обчислювальних задач. Програма перегляду графіків математичних функцій, страница 2

c=input('c=')

%Створення початкового графіка функції%

x=-10:0.1:10;

y=1*x.^2+1*x+0;

subplot(3,4,1:3)

plot(x,y)

grid

title('quadratic function y=ax^2+bx+c')

%Створення даних в текстовому полі графічного вікна%

tm=fix(clock); Tv=tm(4:6);

h1=text(11,200,['Program ' sprogram],'Fontsize',10);

h1=text(11,150,'-------------------------------------','FontSize',10);

h1=text(11,120,['Rozrahunky proviv:'],'FontSize',10);

h1=text(11,80,[sname],'FontSize',10);

h1=text(11,20,[sprintf(' %g:', Tv),'   ' date ],'FontSize',10);

h1=text(11,0,'-------------------------------------','FontSize',10);

%Створення поточного графіка функції%

x1=-10:0.1:10;

y1=a*x.^2+b*x+c;

subplot(3,4,5:7)

plot(x1,y1)

grid

gtext('Initial value:','FontSize',10);

gtext(sprintf('a = %g',a),'FontSize',10);

gtext(sprintf('b = %g',b),'FontSize',10);

gtext(sprintf('c = %g',c),'FontSize',10);

c=menu('Ввести нові значення?','Ввести','Залишити')

switch c

case 1

disp('Введіть параметр а')

a=input('a=')

disp('Введіть параметр b')

b=input('b=')

disp('Введіть параметр c')

c=input('c=')

%Створення зміненого графіка функції%

x2=-10:0.1:10;

y2=a*x.^2+b*x+c;

subplot(3,4,9:11)

plot(x2,y2)

grid

%Створення запису нових даних%

gtext('Changed values:','FontSize',10);

gtext(sprintf('a = %g',a),'FontSize',10);

gtext(sprintf('b = %g',b),'FontSize',10);

gtext(sprintf('c = %g',c),'FontSize',10);

case 2

end   

case 4

disp('Введіть параметр p')

p=input('p=')

%Створення початкового графіка функції%

x=-10:0.1:10;

y=x.^3;

subplot(3,4,1:3)

plot(x,y)

grid

title('power function y=x^p')

%Створення даних в текстовому полі графічного вікна%

tm=fix(clock); Tv=tm(4:6);

h1=text(11,1000,['Program ' sprogram],'Fontsize',10);

h1=text(11,700,'-------------------------------------','FontSize',10);

h1=text(11,500,['Rozrahunky proviv:'],'FontSize',10);

h1=text(11,100,[sname],'FontSize',10);

h1=text(11,-300,[sprintf(' %g:', Tv),'   ' date ],'FontSize',10);

h1=text(11,-500,'-------------------------------------','FontSize',10);

%Створення поточного графіка функції%

x1=-10:0.1:10;

y1=x.^p

subplot(3,4,5:7)

plot(x1,y1)

grid

gtext('Initial value:','FontSize',10);

gtext(sprintf('p = %g',p),'FontSize',10);

c=menu('Ввести нові значення?','Ввести','Залишити')

switch c

case 1

disp('Введіть параметр p')

p=input('p=')

%Створення зміненого графіка функції%

x2=-10:0.1:10;

y2=x.^p;

subplot(3,4,9:11)

plot(x2,y2)

grid

%Створення запису нових даних%

gtext('Changed values:','FontSize',10);

gtext(sprintf('p = %g',p),'FontSize',10);

case 2

end

case 5

disp('Введіть параметр а')

a=input('a=')

%Створення початкового графіка функції%

x=-10:0.1:10;

y=2.^x;

subplot(3,4,1:3)

plot(x,y)

grid

title('indicative function y=a^x')

%Створення даних в текстовому полі графічного вікна%

tm=fix(clock); Tv=tm(4:6);

h1=text(11,1500,['Program ' sprogram],'Fontsize',10);

h1=text(11,1300,'-------------------------------------','FontSize',10);

h1=text(11,1100,['Rozrahunky proviv:'],'FontSize',10);

h1=text(11,800,[sname],'FontSize',10);

h1=text(11,500,[sprintf(' %g:', Tv),'   ' date ],'FontSize',10);

h1=text(11,400,'-------------------------------------','FontSize',10);

%Створення поточного графіка функції%

x1=-10:0.1:10;

y1=a.^x;

subplot(3,4,5:7)

plot(x1,y1)

grid

gtext('Initial value:','FontSize',10);

gtext(sprintf('a = %g',a),'FontSize',10);

c=menu('Ввести нові значення?','Ввести','Залишити')

switch c

case 1

disp('Введіть параметр а')

a=input('a=')

%Створення зміненого графіка функції%

x2=-10:0.1:10;

y2=a.^x;

subplot(3,4,9:11)

plot(x2,y2)

grid

%Створення запису нових даних%

gtext('Changed values:','FontSize',10);

gtext(sprintf('a = %g',a),'FontSize',10);

case 2

end   

case 6

%Створення початкового графіка натурального логарифма від x%

x=0:0.1:10;

y=log(x);

subplot(3,4,1:3)

plot(x,y)

grid

title('Logarithmic function')

%Створення даних в текстовому полі графічного вікна%

tm=fix(clock); Tv=tm(4:6);

h1=text(10.5,12,['Program ' sprogram],'Fontsize',10);

h1=text(10.5,8,'-------------------------------------','FontSize',10);

h1=text(10.5,5,['Rozrahunky proviv:'],'FontSize',10);

h1=text(10.5,2,[sname],'FontSize',10);

h1=text(10.5,-1,[sprintf(' %g:', Tv),'   ' date ],'FontSize',10);

h1=text(10.5,-4,'-------------------------------------','FontSize',10);

%Створення графіка функції натурального логарифму від x%

x1=0:0.1:10;

y1=log(x);

subplot(3,4,5:7)

plot(x1,y1)

grid

gtext('Grafik funkzyi nat. log:','FontSize',10);

gtext('y=ln(x)','FontSize',10);

%Створення графіка функції десяткового логарифму від x%

x2=0:0.1:10;

y2=log10(x);

subplot(3,4,9:11)

plot(x2,y2)

grid

gtext('Grafik funkzyi des. log:','FontSize',10);

gtext('y=lg(x)','FontSize',10);

end