Forum Eks Grupy…

clc
clear all
disp ('wykreslanie wielokatow'
zakres=input('Podaj zakres osi [xmin xmax ymin ymax]=';
Lb=input('Liczba bokow=';
disp ('wierzcholki zaznacz myszka';
close (gcf)
axis (zakres);
hold on
grid
pkt= ginput(Lb);
xp= pkt(:,1);
yp= pkt (:,2);
fill (xp,yp,[1 1 0]);
Pole=polyarea(xp,yp);

clc
clear all
disp ('wykreslanie wielokatow'
zakres=input('Podaj zakres osi [xmin xmax ymin ymax]=';
Lb=input('Liczba bokow=';
disp ('wierzcholki zaznacz myszka';
close (gcf)
axis (zakres);
hold on
grid
pkt= ginput(Lb);
xp= pkt(:,1);
yp= pkt (:,2);
c=uisetcolor([1 1 0], 'wybierz myszka kolor';
fill (xp,yp,c);
Pole=polyarea(xp,yp);
text(zakres(1)+1, zakres(4)-1, strcat('Pole=', sprintf('%7.2f', Pole)));

clc
clear all
disp ('wykreslanie wielokatow'
zakres=input('Podaj zakres osi [xmin xmax ymin ymax]=';
Lb=input('Liczba bokow=';
disp ('wierzcholki zaznacz myszka';
close (gcf)
axis (zakres);
hold on
grid
pkt= ginput(Lb);
xp= pkt(:,1);
yp= pkt (:,2);
c=uisetcolor([1 1 0], 'wybierz myszka kolor';
fill (xp,yp,c);
Pole=polyarea(xp,yp);
text(zakres(1)+1, zakres(4)-1, strcat('Pole=', sprintf('%7.2f', Pole)));
xpr= [xp xp(1)];
ypr= [yp yp(1)];
dx= diff(xpr);
dy= diff(ypr);
dl= ((dx).^2+(dy).^2).^(0.5)
Obwod= sum(dl)
text(zakres(1)+1, zakres(4)-3, strcat('Obwod=', sprintf('%7.2f', Pole)))



nie dziala obwod

clc
clear all
disp('wykreslanie wielokatow';
zakres=input('podaj zakres osi[xmin xmax ymin ymax]';
Lb=input('liczba bokow';
disp('wierzchlki zaznacz myszka';
close(gcf)
axis(zakres);
hold on
grid
pkt=ginput(Lb);
xp=pkt(:,1)';
yp=pkt(:,2)';
C=uisetcolor([1 1 0],'wybierz myszka kolor'
fill(xp,yp,C);
Pole=polyarea(xp,yp);
text(zakres(1)+1,zakres(4)-1, strcat('Pole=',sprintf('%7.2f',Pole)))
xpr=[xp,xp(1)];
ypr=[yp,yp(1)];
dx=diff(xpr);
dy=diff(ypr);
dl=(dx.^2+dy.^2).^0.5
obw=sum(dl)
text(zakres(1)+1, zakres(4)-3, strcat('obw=', sprintf('%7.2f',obw)));

pozdro dla przemka

yeah

informatyka stała się przyjemniejsza

disp('interpolacja wielomianu';
zakres=input('podaj wektor [xmin xmax ymin ymax]=';
lp=input('podaj liczbe punktow lp=';
x=[zakres(1)zakres(2)-zakres(1))/1000:zakres(2)];
axis(zakres);
hold on
grid
pkt=ginput(lp);
xp=pkt(:,1);
yp=pkt(:,2);
w=polyfit(xp',yp',lp-1);
y=polyval(w,x);
plot(x,y)
grid
hold off
title(strcat('wykres wielomianu:',sprintf('%7.3f',w)));

disp('iterpolacja wielomianami'
zakres=input('podaj wektor[xmin xmax ymin ymax]=';
lp=input('podaj liczbe punktow lp=';
x=[zakres(1)zakres(2)-zakres(1))/1000:zakres(2)];
close(gcf);
axis(zakres);
hold on
grid
pkt=ginput(lp);
xp=pkt(:,1);
yp=pkt(:,2);
w=polyfit(xp',yp',lp-1);
y=polyval(w,x);
plot(x,y)
title (strcat('wykres wielomianu', sprintf('%7.3f',w)));

disp('iterpolacja wielomianami'
zakres=input('podaj wektor[xmin xmax ymin ymax]=';
lp=input('podaj liczbe punktow lp=';
x=[zakres(1)zakres(2)-zakres(1))/1000:zakres(2)];
close(gcf);
axis(zakres);
hold on
grid
pkt=ginput(lp);
xp=pkt(:,1);
yp=pkt(:,2);
w=polyfit(xp',yp',lp-1);
y=polyval(w,x);
plot(x,y)
title (strcat('wykres wielomianu', sprintf('%7.3f',w)));

clc
clear all
close(gcf)
disp('interpolacja wielomianu';
zakres=input('Podaj wektor [xmin xmax ymin ymax]='
lp=input('Podaj liczbe punktow lp='
x=[zakres(1)zakres(2)-zakres(1))/1000:zakres(2)];
axis(zakres);
hold on
grid
pkt=ginput(lp);
xp=pkt(:,1);
yp=pkt(:,2);
w=polyfit(xp',yp',lp-1);
y=polyval(w,x);
plot(x,y)
hold off
title(strcat('Wykres wielomianu:',sprintf('%7.3f',w)));

clc;
clear all;
pkt=0;
disp('Test z tabliczki mnozenia';
Lt=input('Podaj liczbe testow (miniumum 10)=';
while Lt<10
Lt=input('Minimum 10 testow=';
end
rand('state', sum(100*clock));
for t=1:Lt
a= round(10*rand);
b= round(10*rand);
odp=input(strcat(num2str(a),'*',num2str(b),'=');
mn=size(odp);
if mn== [1 1]
if odp==a*b
pkt=pkt+2;
disp(strcat('Dobrze-masz:', num2str(pkt),'pkt));
else
pkt=pkt-1;
disp(strcat('zle' masz:', num2str(pkt),'pkt.');
end
else
disp('otrzymujesz 0 pkt.';
end;'
end;'

tylko gdzies są byki

disp('test z tabliczki mnozenia';
Lt=input('podaj liczbetestow(minimum 10)='
while Lt<10
Lt=input('minimum 10 testow='
end
rand('state',sum(100*clock));
for t=1:Lt
a=round(10*rand);
b=round(10*rand);
odp=input(strcat(num2str(a),'*',num2str(b),'=');
mn=size(odp);
if mn==[1 1]
if odp==a*b
pkt=pkt+2;
disp(strcat('Dobrze -masz:',num2str(pkt),'pkt')
else
pkt=pkt-1;
disp(strcat('zle -masz:',num2str(pkt),'pkt.')
end
else
disp('otrzymujesz 0 pkt.';
end
end

clc
clear all
pkt=0;
disp('Tesr z tabliczki mnozenia';
Lt=input('Podaj liczbe testow(minimum 10)=';
while Lt<10
Lt=input('Minimum 10 testow=';
end
rand('state',sum(100*clock));
for t=1:Lt
a=round(10*rand);
b=round(10*rand);
odp=input(strcat(num2str(a),'*',num2str(b),'=');
mn=size(odp);
if mn==[1 1 ]
if odp==a*b
pkt=pkt+2;
disp(strcat('Dobrze-masz:',num2str(pkt),'pkt');
else
pkt=pkt-1;
disp(strcat('zle masz:',num2str(pkt),'pkt');
end
else
disp('otrzymujesz 0 pkt.';
end;
end;

clc;
clear all;
pkt=0;
disp('Test z tabliczki mnozenia';
Lt=input('Podaj liczbe testow (minimum 10)= ';
while Lt<10
Lt=input('Minimum 10 testow= ';
end
rand('state',sum(100*clock));
for t=1:Lt
a=round(10*rand);
b=round(10*rand);
odp=input(strcat(num2str(a),'*',num2str(b),'=');
mn=size(odp);
if mn==[1 1]
if odp==a*b
pkt=pkt+2;
disp(strcat('Dobrze -masz: ',num2str(pkt),'pkt.');
else
pkt=pkt-1;
disp(strcat('Zle - masz: ',num2str(pkt),'pkt.');
end
else
disp('otrzymujesz 0 pkt.';
end;
end;
disp(strcat('Uzyskano: ',num2str(pkt),' pkt. na',num2str(2*Lt),' mozliwych');
ocena=4*pkt/Lt/2+1;
if ocena<1
ocena=1;
end
if ocena>=3
disp('Test zaliczony';
else
disp('Test niezaliczony';
end
disp(strcat('Ocena koncowa: ',sprintf('%4.1f',ocena)));

clc
clear all
pkt=0;
disp('Test z tabliczki mnozenia';
Lt=input('Podaj liczbe testow(minimum 10)=';
while Lt<10
Lt=input('Minimum 10 testow=';
end
rand('state',sum(100*clock));
for t=1:Lt
a=round(10*rand);
b=round(10*rand);
odp=input(strcat(num2str(a),'*',num2str(b),'=');
mn=size(odp);
if mn==[1 1 ]
if odp==a*b
pkt=pkt+2;
disp(strcat('Dobrze-masz:',num2str(pkt),'pkt');
else
pkt=pkt-1;
disp(strcat('zle masz:',num2str(pkt),'pkt');
end
else
disp('otrzymujesz 0 pkt.';
end;
end;
disp(strcat('Uzyskano: ',num2str(pkt),' pkt. na', num2str(2*Lt), ' mozliwych');
ocena=4*pkt/Lt/2+1;
if ocena<1
ocena=1;
end
if ocena>=3
disp('test zaliczony';
else
disp('Test niezaliczony';
end
disp(strcat('ocena koncowa:', sprintf('%4.1f', ocena)));

clc
clear all
disp('Program TOTO';
p=6; n=6;
disp('podaj 6 liczb z zakreesu 1-49';
B=zeros(1,n);
for j=1:n
por=0;
while B(j)<1 | B(j)>49 | por==1
liw=input(strcat(num2str(j),' liczba: ');1
if size(liw)==[1 1]
B(j)=liw;
end
por=0;
for k=1:j-1
if (B(k)==B(j)) | (liw<1) | (liw>49)
por=1;
end;
end;
end;
end;
B=sort(B);
disp(strcat('podales liczby:',num2str(B)));

clc
clear all
disp('program TOTO';
n=6;
disp('podaj 6 liczb z zakresu 1-49';
B=zeros(1,n);
for j=1:n
por=0;
while B(j)<1 | B(j)>49 | por==1
liw=input(strcat(num2str(j),' liczba: ');
if size(liw)==[1 1]
B(j)=liw;
end
por=0;
for k=1:j-1
if (B(k)==B(j)) | (liw<1) | (liw>49)
por=1;
end;
end;
end;
end;
B=sort(B);
disp(strcat('podales liczby:',num2str(B)));

smierdzisz. moje jest mojsze~~!!

clc
clear all
disp('program toto';
n=6
disp('podaj 6 liczb';
b=zeros(1,n);
for j=1:n
por=0;
while [b(j)<1 | b(j)>49 | por==1]
liw=input(strcat (num2str(j),'liczba:');
if size(liw)==[1 1]
b(j)=liw;
end
por=0;
for k=1:j-1
if (b(k)==b(j)) | (liw<1) | (liw>49)
por=1;
end;
end;
end;
end;
b=sort(b);
disp(strcat('podales liczby:',num2str(b)));

clc
clear all
disp('Program TOTO';
n=6;
disp('podaj 6 liczb z zakreesu 1-49';
B=zeros(1,n);
for j=1:n
por=0;
while B(j)<1 | B(j)>49 | por==1
liw=input(strcat(num2str(j),' liczba: ');
if size(liw)==[1 1]
B(j)=liw;
end
por=0;
for k=1:j-1
if (B(k)==B(j)) | (liw<1) | (liw>49)
por=1;
end;
end;
end;
end;
B=sort(B);
disp(strcat('podales liczby:',num2str(B)));
rand('state', sum(100*clock));
matr=zeros(1,7);
m=input('Na ile losowan: ';
n=6;
for i=1:m
for j=1:n
A(j)=round(rand*48+1);
por=1;
while por==1
por=0;
for k=1:j-1
if A(k)==A(j)
por=1;
end;
end;
if por==1 A(j)=round(rand*48+1);
end;
end;
end;
tra=0;
for o=1:6
for p=1:6
if A(o)==B(p)
tra=tra+1;
end;
end;
end;
matr(tra+1)=matr(tra+1)+1;
end;
disp('liczba trafien'
for i=0:n
disp(strcat(num2str(i),'-',num2str(matr(i+1))));
end;