Hello,

Use a subroutine by GOSUB.
If the subroutine is in the same script or in the Master script, the array will be accessible (as if it were a global variable).
RETURN is used here to indicate the end of the subroutine, not to return a result.
___________

Verwenden Sie eine Subroutine von GOSUB.
Wenn sich das Subroutine im selben Skript oder im Master-Skript befindet, kann auf das Array zugegriffen werden (als wäre es eine globale Variable).
RETURN wird hier verwendet, um das Ende des Subroutines anzuzeigen und kein Ergebnis zurückzugeben.

Hi Hansruedi,

Your code could be this:

DIM Para0 [ ] , Para1 [ ] [ ] , Para2 [ ] [ ] , Para3 [ ] [ ] 
Para0 [ 1 ] = 100 
Para0 [ 2 ] = 200 
Para0 [ 3 ] = 300 
Para0 [ 4 ] = 400 
 
Para1 [ 1 ] [ 1 ] = 1 
Para1 [ 2 ] [ 1 ] = 2 
Para1 [ 3 ] [ 1 ] = 3 
Para1 [ 4 ] [ 1 ] = 4 
Para1 [ 1 ] [ 2 ] = 10 
Para1 [ 2 ] [ 2 ] = 10 
Para1 [ 3 ] [ 2 ] = 10 
Para1 [ 4 ] [ 2 ] = 10 
 
Para2 [ 1 ] [ 1 ] = 11 
Para2 [ 2 ] [ 1 ] = 12 
Para2 [ 3 ] [ 1 ] = 13 
Para2 [ 4 ] [ 1 ] = 14 
Para2 [ 1 ] [ 2 ] = 20 
Para2 [ 2 ] [ 2 ] = 20 
Para2 [ 3 ] [ 2 ] = 20 
Para2 [ 4 ] [ 2 ] = 20 

Para3 [ 1 ] [ 1 ] = 21 
Para3 [ 2 ] [ 1 ] = 22 
Para3 [ 3 ] [ 1 ] = 23 
Para3 [ 4 ] [ 1 ] = 24 
Para3 [ 1 ] [ 2 ] = 30 
Para3 [ 2 ] [ 2 ] = 30 
Para3 [ 3 ] [ 2 ] = 30 
Para3 [ 4 ] [ 2 ] = 30 

DIM ParaA [ ] , ParaB [ ] [ ] 
DIM Answer1 [ ] , Answer2 [ ] , Answer3 [ ] 
ParaA = Para0 
ParaB = Para1 
GOSUB "DoCalculation" 
Answer1 = Result

ParaB = Para2 
GOSUB "DoCalculation" 
Answer2 = Result

ParaB = Para3 
GOSUB "DoCalculation" 
Answer3 = Result

...

END 

"DoCalculation": 
DIM Result [ ] 
SomeNumbersinBigArray = Some calculations with parameters ParaA and ParaB
Result = SomeNumbersinBigArray
RETURN

Offensichtlich funktioniert die Zuweisung eines Arrays, welches in einer Subroutine deklariert wurde, zu einem anderen Array nicht!
Das wird den Grund haben, dass man unnötige temporäre Arrays und Kopiervorgänge mit Arrays verhindern will.
Im SmartPart-Script sind alle Variablen global! Auch ein scheinbar "temporäres Array" existiert noch nach dem RETURN!

Statt ein temporäres Array zu erzeugen, die Zuweisungen dort zu machen, und dann am Schluss das temporäre Array in das benötigte Array zu kopieren, sollte man gleich die Zuweisung am globalen Array machen!
Ich sehe da kein Problem, sondern eher eine eingebaute "Hilfe", um zu viele temporäre Arrays und deren unnötiges Kopieren zu vermeiden.

Man könnte die Zuweisung der Ergebnisse nach dem RETURN machen:

!Deklaration der Ergebnis-Arrays
DIM paraa [ ] , parab [ ] [ ]

!Berechnen der Werte : Ergebnisse in para0,para1
GOSUB "SetPara" 

!Zuweisung der Ergebnisse
paraa = para0 
parab = para1

END 

"SetPara": 
DIM para0 [ ]
DIM para1 [ ] [ ]
para0 [ 1 ] = 100 
para0 [ 2 ] = 200 
para0 [ 3 ] = 300 
para0 [ 4 ] = 400 

para1 [ 1 ] [ 1 ] = 1 
para1 [ 2 ] [ 1 ] = 2 
para1 [ 3 ] [ 1 ] = 3 
para1 [ 4 ] [ 1 ] = 4 
para1 [ 1 ] [ 2 ] = 10 
para1 [ 2 ] [ 2 ] = 10 
para1 [ 3 ] [ 2 ] = 10 
para1 [ 4 ] [ 2 ] = 10 

RETURN

oder gleich das eigentliche Array zum Setzen der Werte benutzen:

!Deklaration der Ergebnis-Arrays
DIM paraa [ ] , parab [ ] [ ]

!Berechnen der Werte
GOSUB "SetPara" 

END 

"SetPara": 
paraa [ 1 ] = 100 
paraa [ 2 ] = 200 
paraa [ 3 ] = 300 
paraa [ 4 ] = 400 

parab [ 1 ] [ 1 ] = 1 
parab [ 2 ] [ 1 ] = 2 
parab [ 3 ] [ 1 ] = 3 
parab [ 4 ] [ 1 ] = 4 
parab [ 1 ] [ 2 ] = 10 
parab [ 2 ] [ 2 ] = 10 
parab [ 3 ] [ 2 ] = 10 
parab [ 4 ] [ 2 ] = 10 

RETURN

Das produziert ein sehr viel kürzeres Script, und spart zwei Arrays ein!
Die Anzahl der Variablen/Array wirkt sich auch auf das Laufzeitverhalten aus, denn jede Variable muss anhnd ihres Names erst mal im Variablen-Speicher gesucht werden. Das dauert bei steigender Anzahl von Variablen zunehmend länger!

!Deklaration der Arrays
DIM aa [ ] , bb [ ] [ ]

!Deklaration der Sub - Arrays
DIM sub1 [ ]
DIM sub2 [ ] [ ]


!Laden der Sub - Arrays
sub1=aa
sub2=bb

!Berechnen der Werte : Ergebnisse in sub1,sub2
GOSUB "SetPara" 

!Abholen der Ergebnisse
aa = sub1 
bb = sub2



DIM cc [ ] , dd [ ] [ ]

!Laden der Sub - Arrays
sub1=parac
sub2=parad

GOSUB "SetPara" 

!Abholen der Ergebnisse
cc = sub1 
cc = sub2

END 

"SetPara": 

sub1 [ 1 ] = 100 
sub1 [ 2 ] = 200 
sub1 [ 3 ] = 300 
sub1 [ 4 ] = 400 

sub2 [ 1 ] [ 1 ] = 1 
sub2 [ 2 ] [ 1 ] = 2 
sub2 [ 3 ] [ 1 ] = 3 
sub2 [ 4 ] [ 1 ] = 4 
sub2 [ 1 ] [ 2 ] = 10 
sub2 [ 2 ] [ 2 ] = 10 
sub2 [ 3 ] [ 2 ] = 10 
sub2 [ 4 ] [ 2 ] = 10 

RETURN