C Felder

Lutz — Fri, 28 Aug 2026 09:08:53 GMT

loop und if

← Nächstältere Version		Version vom 28. August 2026, 09:08 Uhr
(2 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 183:		Zeile 183:
	endloop		endloop

			== loop und if ==
			Was so ein echter Faulpelz ist, der mag nicht viel tippern.

			Dafür gibt es Felder und logische Abfragen.

			Das Beispiel zeigt die Generierung von sln mit Federn, welche diese sln mit einer bereits vorhanden sln elastisch koppeln.

			Die zentrale Idee ist der "Index".

			In einer ersten Schleife werden alle Felder belegt. Dabei wird bereits in den Feldern mnr und bfix der korrekte Wert abgelegt.

			let#grp_f 41 $ Gruppe der Federn

			let#grp_k 21 $ Gruppe der Kontakte

			let#nr_abl_f 1 $ Arbeitslinie Federn

			let#nr_abl_k 2 $ Arbeitslinie Kontakte

			let#index 1

			let#npa(#index) #nr_b+1

			let#npe(#index) #nr_b+2

			let#ref(#index) #nr_w+1

			let#sln(#index) #nr_b+1

			txa 1. Ausgabe - Befüllen der Felder

			loop#1 16

			$ mnr und grp

			if ((#index==1)\|(#index==5)\|(#index==6)\|(#index==10)\|(#index==13)\|(#index==14)) $ Gesamtklammer und == !!!

			let#mnr(#index) 1

			let#grp(#index) 41

			else

			let#mnr(#index) 2

			let#grp(#index) 21

			endif

			$ bfix

			if ((#index==1)\|(#index==2)\|(#index==9)\|(#index==10))

			let#bfix(#index) #t_wabe_6

			else

			let#bfix(#index) #t_wabe_3

			endif

			txa index #(#index,2.0) sln #(#sln(#index),6.0) npa #(#npa(#index),6.0) npe #(#npe(#index),6.0) mnr #(#mnr(#index),1) grp #(#grp(#index),2) bfix #(#bfix(#index),1) ref #(#ref(#index),6.0)

			$ Index, spt, ref und sln

			let#index #index+1

			let#npa(#index) #npa(#index-1)+1

			let#npe(#index) #npe(#index-1)+1

			let#ref(#index) #ref(#index-1)+1

			let#sln(#index) #sln(#index-1)+1

			endloop


			Anschließend werden die Nummern der npa bzw. npe nachträglich geändert. Dann erfolgt in einer zweiten Schleife die eigentliche Generierung.


			$ Überschreiben von npa und npe

			let#npa(11) #nr_b+3

			let#npe(16) #nr_b+9

			let#index 1

			txa 2. Ausgabe

			loop#1 16

			txa index #(#index,2.0) sln #(#sln(#index),6.0) npa #(#npa(#index),6.0) npe #(#npe(#index),6.0) mnr #(#mnr(#index),1) grp #(#grp(#index),2) bfix #(#bfix(#index),1) ref #(#ref(#index),6.0)

			$ Linien und Federn

			sln nr npa npe grp sdiv=#hmin

			#sln(#index) #npa(#index) #npe(#index) #grp_b

			slns grp ref mnr bfix reft='>sln' kr='posx'

			#grp(#index) #ref(#index) #mnr(#index) #bfix(#index)[mm]

			let#index #index+1 $ nur der Index

			endloop

			Über den txa - Befehl kann man das recht gut kontrollieren.

ITP - Letzte Änderungen [de]

C Felder