http://7pl.pl/1 Adriano - web is brutal JoggerPL http://7pl.pl/1#com_nr6 Edit: działa ;)
Zapraszam do komentowania ...]]> http://7pl.pl/1#com_nr6 http://7pl.pl/1#com_nr7 http://7pl.pl/1#com_nr7 http://7pl.pl/1#com_nr8 http://7pl.pl/1#com_nr8 http://7pl.pl/1#com_nr9 http://7pl.pl/1#com_nr9 http://7pl.pl/1#com_nr10 http://7pl.pl/1#com_nr10 http://7pl.pl/1#com_nr11 http://7pl.pl/1#com_nr11 http://7pl.pl/1#com_nr12 http://7pl.pl/1#com_nr12 http://7pl.pl/1#com_nr13 http://7pl.pl/1#com_nr13 http://7pl.pl/1#com_nr14 http://7pl.pl/1#com_nr14 http://7pl.pl/1#com_nr15 http://7pl.pl/1#com_nr15 http://7pl.pl/1#com_nr16 http://7pl.pl/1#com_nr16 http://7pl.pl/1#com_nr17 http://7pl.pl/1#com_nr17 http://7pl.pl/1#com_nr18 http://7pl.pl/1#com_nr18 http://7pl.pl/1#com_nr19
Witam nowe osoby na moim blogu ;)]]> http://7pl.pl/1#com_nr19 http://7pl.pl/1#com_nr20 http://7pl.pl/1#com_nr20 http://7pl.pl/1#com_nr21 http://7pl.pl/1#com_nr21 http://7pl.pl/1#com_nr22 http://7pl.pl/1#com_nr22 http://7pl.pl/1#com_nr23 > local tmp, L, m;
> m:=n;
> while(m>0) do
> tmp:= m mod p;
> m:=(m-tmp)/p;
> L:= [tmp, op(L)];
> end do;
> print(L);
> end proc;




pierwsza:=proc(n::integer)
> local m;
> m:= n;
>
> for i from 2 to (m/2) do
> if(m mod i = 0) then RETURN(0);
> end if;
> end do;
>
> RETURN(1);
>
> end proc;


#nie dziala
sito:=proc(n::integer)
>
> local M, i, t, j;
>
> for i from 2 to n do
> M:=[op(M),i];
> end do;
>
> t:=1;
>
> while ( M[t]<=evalf(sqrt(n)) ) do
> j:=t+1;
> while ( j<=nops(M) ) do
> if( (M[j] mod M[]t)=0 ) then M:=subsop(j=NULL,M); else j:=j+1 fi;
> end do;
>
> t:=t+1;
> end do;
> print(M);
> end proc;




L:=[1,2,3,4];
> W:= [3,17,49,105];
> w:=z->x^3+3*x^2-2*x+1;
>
> aNev:=proc(L::list,W::list,y::float)
>
> local n,w,x,i,t,k,r;
>
> n:=nops(L)-1;
> for i from 0 to n do
> w[i]:=W[i+1];
> x[i]:=L[i+1];
> end do;
>
> for r from 0 to n do
>
> t[r]:=w[r];
> for k from r-1 by -1 to 0 do
> t[k]:=t[k+1]+(t[k+1]-t[k])*(y-x[r])/(x[r]-x[k]);
> end do;
>
> end do;
>
> RETURN(t[0]);
>
> end proc;]]> http://7pl.pl/1#com_nr23