było koło ogolnie to zadania powtarzały sie z tymi co sa tutaj w temacie "scilab" tylko jedno zadanko bylo inne tzn. utworzyc macierz 4x4
A=|1 2 3 4|
|5 6 7 8|
|12 11 10 9|
|13 14 15 16|
(korzystajac z petli for)

Moze ktos to rozwiazac??

Kod napisał:

a=1; n=4; for i=1:4; for j=1:4; A(i,j)=a; a=a+1; end end B=A; l=4; for k=1:4; B(3,k)=A(3,l); l=l-1; end; disp(B)

Wykonaj 100 rzutów kostką do gry, zlicz ile razy została wyrzucona szóstka, liczbę szóstek podstaw pod
zmienną szostki.

szostka=0
for i=1:100
rzut=round(1+5*rand())
if rzut==6 then
szostka=szostka+1
end
end
disp(szostka)

ZADANKA Z POPRAWY W ZESZŁYM ROKU

III. zdefiniowac funkcje o nazwie czwartek obliczajaca iloczyn elementow macierzy E z pierwszych k (liczba od 10 do 20 ) kolumn i wierszy. Dane wejsciowe to wektor E, liczba k, a wynik to iloczyn. Przetestowac dla i= 13, 16, 20.

================================================

narysuj wykress funkcji kul(r,s) majac dane :
guma(s)=cos(s-r)*|s+r|
kula(r,s)=r+sin^5(r)*guma(s)/12
przyjmujac D={(r,s)
5,50]x[-50,-5]}

================================================


IV zapisz za pomocainstrukcji warunkowej:
jeżeli liczba w jest ujemna podnies ja do czwartej potegi,
a w przeciwnym wypadku podziel liczba przez 100.


===================================================


grupa b
1.narysuj wykres funkcji z(x,y) mając dane:
p(x)=/x/*sin(-x)
z(x,y)=x+cos[do potęgi 5](x)*sin3(y)-p(x)
przyjmując dziedzinę jako D={(z,y)
-10,10]X[-5,5]}.
2.zapisać instrukcje gehnerujące macierze M, zawierające 75 wierszy i 75 kolumn,
okreslając elementy M(k,l)=2+3k-l[do kwadratu] ,nastepnie utworzyć wektor
kolumnowy K podstawiając pod niego 70 kolumnę macierzy M, oraz dokonać mnożenia e
lementami macierzy M i K postaiwając wyniki pod zmienna N.
3.zdeefiniować funkcję o nazwie 'wtorek' obliczającą sumę elementów macierzy M
z pierwszych i (liba od 1 do 10) kolumn i wierszy.dane wejściowe to wektor M,
liczba i, a wynik to suma. Przeetestować działanie funkcji dla o=3,6,10.
4.zapisz za pomocą instrukcji warunkowej:
jeżeli liczba X jest większa lub równa 27 pomniejsz X o 12,
a w przeciwnym wypadku pomnóż liczbę X przez połowę jej wartości.

====================================================


3.zdeefiniować funkcję o nazwie 'wtorek' obliczającą sumę elementów macierzy M
z pierwszych i (liba od 1 do 10) kolumn i wierszy.dane wejściowe to wektor M,
liczba i, a wynik to suma. Przeetestować działanie funkcji dla o=3,6,10.

======================================================

2.zapisać instrukcje gehnerujące macierze M, zawierające 75 wierszy i 75 kolumn,
okreslając elementy M(k,l)=2+3k-l[do kwadratu] ,nastepnie utworzyć wektor
kolumnowy K podstawiając pod niego 70 kolumnę macierzy M, oraz dokonać mnożenia e
lementami macierzy M i K postaiwając wyniki pod zmienna N.

Wysłany: Sob 14:50, 22 Gru 2007    Temat postu:
Witam :) Zadaniaz grupy B4 i B5 Zadanie 1 Masz podana macierz A utworz z niej nowa macierz ktora bedzie sie składac z pierwszych 7 parzystych kolumn i wierszy macierzy A. Zrób transpozycje nowej macierzy Zadanie 2 Masz podana macierz B, oblicz sume jej elementów bez wiersza 36 i kolumny 39. Zadanie 3 Zapisz skrypt służący do symulacji rzutu monetą wykorzystując funkcję rand(). Skrypt ma obliczać ile rzutów jest potrzebnych do wyrzucenia 20 razy orła. Zadanie 4 Wykonaj 100 rzutów kostką do gry, zlicz ile razy została wyrzucona szóstka, liczbę szóstek podstaw pod zmienną szostki. Zadanie 5 Narysuj wykres funkcji z=sin x + cosh y ( załóżmy że taka była podana) dla dziedziny [-2*pi,2*pi] x [-2*pi,2*pi] Zadanie 6 Napisz funkcje która mnoży pierwszą liczbę podanego wektora razy sinus sumy reszty liczb danego wektora..

Zadanie 1

Kod:

// Masz podana macierz A utworz z niej nowa macierz ktora bedzie sie składac // z pierwszych 7 parzystych kolumn i  wierszy macierzy A // Zrób transpozycje nowej macierzy. A=int(rand(100,100)*11); B=A([2:2:14],[2:2:14]); // tak ja rozumiem to zadanie // dla 7dmiu nieparzystych byłoby tak: B=A([1:2:13],[1:2:13]); B=B';

Zadanie 2

Kod:

//Masz podana macierz B, oblicz sume jej elementów bez wiersza 36 i kolumny 39. B=int(rand(100,100)*11); suma=sum(B([1:35,37:100],[1:38,40:100]))

Zadanie 3

Kod:

// Zapisz skrypt służący do symulacji rzutu monetą wykorzystując funkcję rand(). // Skrypt ma obliczać ile rzutów jest potrzebnych do wyrzucenia 20 razy orła. orly=0; rzuty=0; while orly<20,   if round(rand())==0 then,     orly=orly+1;   end;   rzuty=rzuty+1; end; disp(rzuty)

Zadanie 4

Kod:

// Wykonaj 100 rzutów kostką do gry, zlicz ile razy została wyrzucona szóstka, // liczbę szóstek podstaw pod zmienną szostki. szostki=0; for i=1:100   if int(rand()*6)+1==6 then,     szostki=szostki+1;   end; end; disp(szostki)

Zadanie 5

Kod:

// Narysuj wykres funkcji z=sin x + cosh y ( załóżmy że taka była podana) // dla dziedziny [-2*pi,2*pi] x [-2*pi,2*pi] x=linspace(-2*%pi,2*%pi,50); y=linspace(-2*%pi,2*%pi,50); function w=f(x,y),  w=sin(x) + cosh(y); endfunction fplot3d(x,y,f)

Zadanie 6

Kod:

//Napisz funkcje która mnoży pierwszą liczbę podanego wektora razy sinus sumy reszty liczb danego wektora.. function w=f(x),  w=x(1)*sin(sum(x(2:$))) endfunction

Wysłany: Nie 15:23, 06 Sty 2008    Temat postu:
Przedstawiam rozwiązanie zadań podanych w poście wyżej Oferuję także projekty i korepetycje z scilaba. info: www.scilab.ovh.org Zadanie 1 Napisz funkcje która dla podanej liczby całkowitej m zwraca kwadratowa macierz A o strukturze podanej do struktury macierzy B. | 1 2 3 4 | | 5 6 7 8 | | 9 10 11 12 | |13 14 15 16 |4x4 Kod: function M=f(m)  n=0  for i=1:m   for j=1:m    n=n+1    M(i,j)=n   end  end endfunction Zadanie 2 Napisz polecenia niezbędne do wykonania wykresu następującej powierzchni: z(x,y)=tanxcos(sinh y) D={(x,y) należy do (-%pi/3, %pi/3) a y należy do (-%pi/3,%pi/3)}. Kod: //metoda z fplot (uniwersalna, polecam) x=linspace(-%pi/3,%pi/3,20) y=x; function z=f(x,y)  z=tan(x)*cos(sinh(y)) endfunction fplot3d(x,y,f) //metoda z transpozycja (dla iloczynow x i y) x=linspace(-%pi/3,%pi/3,20) y=x; z=tan(x)'*cos(sinh(y)) plot3d(x,y,z) //metoda z for (uniwersalna, uwaga na 'indexowanie') x=linspace(-%pi/3,%pi/3,20) y=x; for i=1:20  for j=1:20   z(i,j)=tan(x(i))*cos(sinh(y(j)))  end end plot3d(x,y,z) Zadanie 3. Wczytaj z binarnego zbioru znajdującego się w /pub/test-2/tablice-4 trzy tablice liczb i przypisz je do zmiennych A B C. Oblicz iloczyn elementów pierwszej i ostatniej kolumny macierzy A. Wynik zapisz do zmiennej d ,a następnie zmienna d zapisz do pliku tekstowego d.txt Kod: load('/pub/test-2/tablice-4','A','B','C') d=prod(A(:,[1,$]) u=file('open','~/d.txt','new')  write(u,d) file('close',u) Zadanie 4. Oblicz iloczyn wyznacznika macierzy powstałej po wykreśleniu z macierzy A 30 wiersza i 61 kolumny. Wynik zapisz do zmiennej e (w przypadku gdy zad3 ie zostało wykonane utwórz macierz jedynkowa A o wymiarach 100x100). Kod: [w,k]=size(A) e=prod(det(A([1:29,31:w],[1:60,62:k]))) // u mnie znak $ nie działa, scilab zwraca błąd, w pdfach jest jednak używany.. // można więc spróbować tak: e=prod(det(A([1:29,31:$],[1:60,62:$]))) Zadanie 5. Napisz funkcje wektor_c ktorej argumentem będą 2 wektory x=(x1,x2,x3) y(y1,y2,y3) a wynikiem będzie wektor stałych logicznych, którego współrzędne są rezultatem porównania xi i 2*yi dla i=1,2,3. Przetestuj działanie funkcji dla wektorów [2 -4 1] [1 1 1]. Kod: function por=wektor_c(x,y)  for i=1:3   por(i)= x(i)==2*y(i)  end endfunction disp(wektor_c([2 -4 1],[1 1 1])) Zadanie 6 Napisz skrypt służący do obliczenia sumy odwrotności kwadratów 100 pierwszych wyrazów ciągu, którego n-ty element przedstawia się wzorem a(n)=20*n^2-n/18+1. Kod: n=1:100; a=20*n^2-n/18+1; sum(1/(a^2))

Wysłany: Sob 14:03, 12 Sty 2008    Temat postu:
Może wspólnymi siłami. ;-) Moje rozwiązania od 1 do 10, bez zadania 6 i 7. --- 1. Zapisz ciąg instrukcji symulujący rzut kostką do gry, wynik podstaw pod zmienna rzut, oraz zapisz do niesformatowanego pliku tekstowego "rzut_kosci" (zastosuj funkcję rand() ). Kod: //zad1 rzut=round(rand()*5)+1 u=file('open','rzut_kosci.txt','new') write(u,rzut) file('close',u) 2. Zapisz, stosując funkcje rand(), oraz round(), ciąg instrukcji symulujący rzut monetą (dopuszczalne wartości = 0,1). Po wykonaniu losowania wypisz na ekranie "orzeł" (gdy "ẅylosowano" 0), oraz "reszka" (gdy "ẅylosowano" 1) Kod: x=round(rand()) if x==0 then  disp('reszka') else  disp('orzel') end 3. Wykonaj 10 rzutów kostką do gry, zsumuj liczbę wszystkich wyrzuconych oczek, podstawiając pod zmienną kosci. Kod: //zad3 for i=1:10  x(i)=round(rand()*5)+1 end kosci=sum(x) disp(kosci) 4. Wykonaj 100 rzutów kostką do gry, zlicz ile razy została wyrzucona szóstka, liczbę szóstek podstaw pod zmienną szostki. Kod: szostki=0 for i=1:100  if int(rand()*6)+1==6 then   szostki=szostki+1  end end disp(szostki) 5. Zapisz ciąg instrukcji symulujący rzuty kostką do gry, tak aby rzucanie kostka odbywało się tak długo aż zostanie wyrzucona piątka. Zlicz ile wykonano rzutów, wynik podstaw pod zmienną oczka. Kod: //zad5 rzut=0 oczka=0 while rzut<>5 rzut=round(rand()*5)+1 oczka=oczka+1 end disp(oczka) 6. Zapisz ciąg instrukcji symulujący rzuty kostką do gry, tak aby rzucanie kostka odbywało się tak długo aż zostanie wyrzuconych sześć czwórek. Zlicz ile wykonano rzutów, wynik podstaw pod zmienną gra. 7. Wykonaj 100 rzutów kostką do gry, rezultaty kolejnych rzutów zapisz do macierzy Bm (10x10), oblicz wyznacznik z macierzy Cm, powstałej z macierzy Bm, z wszystkich parzystych wierszy i kolumn. Zsumuj elementy dolnego trójkąta (pod przekątna główną) macierzy Bm. W macierzy Bm, zamień wszystkie cyfry mniejsze od liczby 3 zerami. 8. Narysuj wykres funkcji z(x,y) = sin(x) * sin(y) dla dziedziny [ -2, 2] x [-2, 2] Kod: x=-2:0.1:2 y=-2:0.1:2 function [z]=f(x,y)  z=sin(x)*sin(y) endfunction z=feval(x,y,f) plot3d(x,y,z) 9. Narysuj wykres funkcji z(x,y) = sin(x) * sin(y) + sin(x) + sin(y) dla dziedziny [ -2, 2] x [-2, 2] Kod: x=-2:0.1:2 y=-2:0.1:2 function [z]=f(x,y)  z=sin(x)*sin(y)+sin(x)+sin(y) endfunction z=feval(x,y,f) plot3d(x,y,z) 10.Zdefiniuj funkcję wektorki(), której argumentami są dwa wektory tej samej długości x (tablica liczb), y (tablica stałych logicznych), zwracaną wartością suma współrzędnych wektora x o tych indeksach dla których współrzędne wektora y są prawdziwe. Sprawdź działanie funkcji dla wektorów x = [1, 2, 3, 4, 5, 6], y = [F T T F F T]. (wynik = 11). Kod: function[t]=wektorki(x,y) if length(x) == length(y)  m=length(x)  for i=1:m   if y(i)==%T    t(i)=x(i)   end  end  disp('suma=')  disp(sum(t)) else  disp('wektory nie maja rownych dlugosci') end endfunction x=[1,2,3,4,5,6] y=[%F %T %T %F %F %T] [t]=wektorki(x,y)

Przedstawiam rozwiązanie zadań podanych przez "gdziebu"
a nie rozwiązanych przez przedmówcę :)

Oferuję także projekty i korepetycje z scilaba.
info: www.scilab.ovh.org

Zadanie 6

Kod:

// Zapisz ciąg instrukcji symulujący rzuty kostką do gry, // tak aby rzucanie kostka odbywało się tak długo aż zostanie // wyrzuconych sześć czwórek. Zlicz ile wykonano rzutów, // wynik podstaw pod zmienną gra. gra=0; czworki=0; while czworki<6  if int(rand()*6)+1==4 then,   czworki=czworki+1;  end;  gra=gra+1 end; disp(gra)

Zadanie 7

Kod:

// Wykonaj 100 rzutów kostką do gry, rezultaty kolejnych // rzutów zapisz do macierzy Bm (10x10), oblicz wyznacznik // z macierzy Cm, powstałej z macierzy Bm, z wszystkich parzystych // wierszy i kolumn. Zsumuj elementy dolnego trójkąta // (pod przekątna główną) macierzy Bm. W macierzy Bm, zamień // wszystkie cyfry mniejsze od liczby 3 zerami. //tworzenie macierzy Bm Bm=int(rand(10,10)*6)+1 //alternatywnie------------------------- for i=1:100,  rzut(i,1)=int(rand()*6)+1; end; ind=0; for i=1:10,  for j=1:10,   ind=ind+1;   Bm(i,j)=rzut(ind);  end; end; //------------------------------------------- //wyznacznik Cm Cm=Bm([2:2:10],[2:2:10]); wyznacznik=det(Cm); disp(Cm,wyznacznik) //suma elementow pod przekatna suma=0; for i=1:10  for j=1:10   if i>j then    suma=suma+Bm(i,j);   end  end end // zamiana w macierzy Bm wszystkiech cyfry // mniejszych od liczby 3 zeram for i=1:10,  for j=1:10,   if Bm(i,j)<3 then,    Bm(i,j)=0;   end;  end; end;

to są zadania jakie były w tamtym roku na kole

---