i=0																					
for x=0 to 1 step 0.1																		
i=i+1																				
Strx = CStr(x)
Strx = Replace(Strx,",",".")
Punktemachen oVRad,oHBody3,0,0,0,"Conturpoint"& i												
Set oPunktZ = oNabenfeatures.Item("Conturpoint"& i)

Set oFPunktX = oRelationen.CreateFormula ("Verknuepfung X-Koordinate","Berechnung der X-Koordinate der Konturpunkte",oPunktZ.X,"((" & StrRadius & "-InnererRadius)*" & Strx & "+InnererRadius)/1000")

strFString = "((((Innendicke-Aussendicke)/(log(" & StrRadius & "-InnererRadius+1+1)/log(2.712828)))*(log(x-Wert- InnererRadius+1)/log(2.712828)))-Innendicke)/1000"
	
Set oFPunktZ = oRelationen.CreateFormula ("Verknuepfung Z-Koordinate","Berechnung der Z-Koordinate der Konturpunkte",oPunktZ.Z,strFString)
oFPunktZ.Hidden  = True
oFPunktX.Hidden  = True

next