In article <brshk2$2q
...@bagan.srce.hr>, kobila suzy wrote:
>Natjerati mathematicu da crta ListPlot tako da ja inkrementiram x, a
>y=Sin[x]
>Pokusavam sa for petljom ali mi svaku tocku crta na posebni graf.
>Dakle, trebam 256 x-y parova na isti graf, ali da ih ne moram upisivati nego
>da inkrementiram varijablu u petlji.
>Hvala puno.
IMHO, proceduralno programiranje (for-petlja &stuff) je daleko
ispod Mma-nivoa.
Ono sto tebi vjerojatno treba je
Plot[Sin@x,{x,0,2Pi},PlotPoints->256,PlotDivision->1]
Ako si bas zapeo za ListPlot,
Table[{x,Sin@x},{x,0,2Pi,2Pi/255}]
ce ti dati tvoju listu parova... koju onda nacrtas s
ListPlot@%
Ako si bas, bas zapeo za for-petlju, yeah, moze Mma i to...
l={};
For[x=0,x<=2Pi,x+=2Pi/255,
AppendTo[l,{x,Sin@x}]
];
ListPlot@l
Naravno, mozes se spustiti koliko god nisko zelis...
Program["BIZARNO.BAS"
;Label@5;Rem@"Tribute to BASIC"
;Label@10;Dim[l=Table[0.,{256},{2}]]
;Label@15;Let[Const,pi=4*ArcTan@1.]
;Label@17;Print@"Ovaj program trpa vrijednosti sinusa u tablicu"
;Label@22;Let[i=1]
;Label@25;Let[x=0.]
;Label@30;Let[y=Sin[x]]
;Label@50;Let[l[[i,1]]=x]
;Label@60;Let[l[[i,2]]=y]
;Label@62;Print["x=",x," => y=",y]
;Label@65;Let[x=x+2*pi/255]
;Label@67;Let[i=i+1]
;Label@70;If[x<=2*pi,Goto@30]
;Label@80;Gosub@ListPlot@l
;Label@90;End];
((-: Ima pitanja;-?
--
Veky ... be with you ...
