[cstex] vnorene cykly v metapostu

[jan.busa at tuke.sk]

Dobry den,

jednak by som namiesto pi napisal  napr. 3.1416, v zakladnom cykle by som
definoval body cesty a az potom cestu. Navyse priradovanie bodov by som
dal dovnutra vnutorneho cyklu.

beginfig(1);
pair F;
path f;

u:=1mm;
  F:=(-3*3.1416, 0);

k:=0;

for i=-540 step 10 until 540:
    w := 1;
    for j=1 step 1 until 10:
      w := w + j;

     k:=k+1;
     z[k]=2u*(i*3.1416/180,j);
     endfor;

endfor;

f=F for i=1 upto k:
   ..z[k]
endfor;


 draw f;
endfig;

end;


Jano Busa

> dobry den, potreboval bych pomoci s nasledujicim kodem. potrebuji
> prolozit body z promenne f hladkou krivkou, path f konstuuji pomoci
> vnejsiho cyklu (promenna i), pricemz jeho body potrebuji spocitat pres
> vnitrni cyklus (promenna j). nicmene pri prekladu dojde k chybe, log
> prekladu je uveden pod kodem. dovede nekdo znaly poradit, kde je
> chyba? predem dekuji, zdravi LK
>
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>
> pair F;
>   F:=(-3pi, 0);
>
> path f;
>
> f:=F
>   for i=-540 step 10 until 540:
>
>     numeric w;
>     w := 1;
>     for j=1 step 1 until 10:
>       w := w + j;
>     endfor;
>
>     ..(i*pi/180, j)
>
>   endfor;
>
>   draw f;
>
> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
>
> log prekladu:
>
>
> This is MetaPost, Version 0.993 (Web2C 7.5.6) (mem=mpost 2007.6.18)  9
> FEB 2008 08:47
>  **preview.mp
>  (preview.mp
>  ! Extra tokens will be flushed.
>
>                     numeric
>   numeric
>                     .w;w:=1;for.j=1step1until10:w:=w+j;endfor;..
> ((EXPR0)*pi/1...
>  l.44   endfor
>               ;
> _______________________________________________
> csTeX mailing list
> csTeX at cs.felk.cvut.cz
> http://lists.felk.cvut.cz/mailman/listinfo/cstex
>