QUOTE (amadeu @ 16.09.2023, 18:55 Uhr)
So, hab mit das Programm noch einmal angesehen, sehe aber leider keine Möglichkeit das Programm umzuschreiben, da man glaube ich im Zyklus Konturzug nicht positiv zustellen kann. Für eine kleine Hilfe wäre ich natürlich sehr dankbar.
Hier mal ein Ansatz:
57 Q61 = 0 ;Z Beginn
58 LBL 1
59 Q60 = Q52 / ( TAN Q50 ) ;Z Gesamttiefe
60 Q61 = Q61 + Q51 ;Z-Koordinate der neuen Hoehenlinie berechnen
Q60 = Q52 / ( TAN Q50 ) ;Z Gesamttiefe
Q61 = Q60 ;Z Beginn
LBL 1
Q61 = Q61 - Q51 ;Z-Koordinate der neuen Hoehenlinie berechnen
61 FN 11: IF +Q61 GT +Q60 GOTO LBL "ENDE1" ;Pruefen ob neue Tiefe groesser Gesamttiefe
62 FN 9: IF +Q61 EQU +Q60 GOTO LBL "ENDE1" ;Pruefen ob neue Tiefe gleich Gesamttiefe
FN 12: IF +Q61 LT +0 GOTO LBL "ENDE1" ;Pruefen ob neue Tiefe höher 0
FN 9: IF +Q61 EQU +0 GOTO LBL "ENDE1" ;Pruefen ob neue Tiefe gleich 0
QUOTE
...Zyklus Konturzug nicht positiv zustellen kann
Es wird jede Tiefenzustellung neu berechnet, daher auch pos. Zustellung möglich.
Viel Erfolg beim Probieren!
Gruß Jens