Notes

clc
clear
N=input('podaj liczbe = ');

while N~=round(N)
N=input('podaj dobra wartosc=');
end


if N/2==round(N/2)
disp ('liczba parzysta')
disp(['liczba N=',num2str(N)])
else
disp('liczba nieparzysta')
disp(['liczba N=',num2str(N)])

end


save plik.txt -ascii N
clear
N=load('plik.txt','N');




if N/2==round(N/2) && N<=170 && N>0

silnia=1;
for k=1:N

silnia=silnia*k;

end
disp(['silnia "petla for" dla N=',num2str(N),'wynosi silnia=',num2str(silnia)])
disp('instrukcja dla petli for nie jest wykonywana bo liczba N jest parzysta')



elseif N/2~=round(N/2) && N<=170 && N>0

silnia1=1;
p=1;
while p<=N
silnia1=silnia1*p;
p=p+1;
end
disp(['silnia "petla while" dla N=',num2str(N),'wynosi silnia=',num2str(silnia1)])
disp('instrukcja dla petli for nie jest wykonywana bo liczba N jest nieparzysta')
else
disp(['matlab nie policzy silni z podanej wartosci N=',num2str(N)])
end

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
clc
clear

p=input('podaj czy argumenty beda w radianach-1 czy w stopniach-2 =');

while p~=1 && p~=2
p=input('jeszcze raz kurwa');
end



if p==1

disp('wybrales radiany')


a=input('podaj poczatek przedzialu =');

b=input('podaj koniec przedzialu = ');
while b<=a
b=input('podaj poprawny koniec przedzialu = ');
end

x=a:0.1:b;
y=sin(x);
y1=cos(x);
A=input('prosze podac stala a 0<A<=9 A =');

while A<=0 || A>8
A=input('prosze podac stala a 0<=8 A =');
end
y2=A*cos(x);
y3=A*sin(x);


subplot(1,2,1)
plot(x,y,'g', x ,y1,'r')
ylabel('watosci')
xlabel('argument')
title('wykresy funkcji')
legend('sin(x)','cos(x)')
grid
subplot(1,2,2)
plot(x,y2,'k', x ,y3,'b')
ylabel('watosci')
xlabel('argument')
title('wykresy funkcji')
legend('Asin(x)','Acos(x)')
grid
else

disp('wybrales stopnie')


a=input('podaj poczatek przedzialu =');

b=input('podaj koniec przedzialu = ');
while b<=a
b=input('podaj poprawny koniec przedzialu = ');
end

x=a:0.1:b;
y=sind(x);
y1=cosd(x);
A=input('prosze podac stala a 0<A<=9 A =');

while A<=0 || A>8
A=input('prosze podac stala a 0<=8 A =');
end
y2=A*cosd(x);
y3=A*sind(x);

disp('oraz Acos(x) i Asin(x)')
subplot(1,2,1)
plot(x,y,'g', x ,y1,'r')
ylabel('watosci')
xlabel('argument')
title('wykresy funkcji')
legend('sin(x)','cos(x)')
grid
subplot(1,2,2)
plot(x,y2,'k', x ,y3,'b')
ylabel('watosci')
xlabel('argument')
title('wykresy funkcji')
legend('Asin(x)','Acos(x)')
grid
end