MEGATRON
Grünschnabel

Registration Date: 09.11.2007
Posts: 6
Level: 11 [?]
Experience: 1,717
Next Level: 2,074
 |
|
| RE: fortlaufende programierung ? |
 |
Das kannst du mit Offset lösen.
1 DEF berechnung( )
2
3 decl e6pos ablagepos [4,4]
4 decl e6pos vorpos [4,4]
5 decl int reihe,spalte
6 decl real dx,dy,dz
7
8 INI
9
10 dx=80.0
11 dy=80.0
12 dz=100.0
13
14 ;*******berechnung ablageposition*********
15
16 for reihe=1 to 4
17 for spalte=1 to 4
18 ablagepos[reihe,spalte]=xgrundpos
19 ablagepos[reihe,spalte].x=ablagepos[reihe,spalte].x+(spalte-1)*dx
20 ablagepos[reihe,spalte].y=ablagepos[reihe,spalte].y+(reihe-1)*dy
21 endfor
22 endfor
23
24 ;*******berechnung vorposition***********
25
26 for reihe=1 to 4
27 for spalte=1 to 4
28 vorpos[reihe,spalte]=ablagepos[reihe,spalte]
29 vorpos[reihe,spalte].z=vorpos[reihe,spalte].z+dz
30 endfor
31 endfor
|
|