!Anzahl der Substeps auslesen
*get,subst,active,1,solu,ncmls
*do,i,1,subst,1                !Schleife starten
		!Datei erstellen öffnen
*cfopen,C:\Temperatur_Steg_%i%,xls,,
		!Interpolation
nsel,all
		!Ort Interpolationspunkt
x0=0.045375
y0=-0.00145
z0=0.0015
		!Knoten in der Nähe Interpolationspunkt
n1=node(x0,y0,z0)
		!5 Knoten in der Nähe
n2=nnear(n1)
nsel,u,,,n2
n3=nnear(n1)
nsel,u,,,n3
n4=nnear(n1)
nsel,u,,,n4
n5=nnear(n1)
nsel,all
		!Entfernungen Punkt Knoten
e01=sqrt((nx(n1)-x0)**2+(ny(n1)-y0)**2+(nz(n1)-z0)**2)
e02=sqrt((nx(n2)-x0)**2+(ny(n2)-y0)**2+(nz(n2)-z0)**2)
e03=sqrt((nx(n3)-x0)**2+(ny(n3)-y0)**2+(nz(n3)-z0)**2)
e04=sqrt((nx(n4)-x0)**2+(ny(n4)-y0)**2+(nz(n4)-z0)**2)
e05=sqrt((nx(n5)-x0)**2+(ny(n5)-y0)**2+(nz(n5)-z0)**2)
		!Temperaturen an den Knoten
t1=temp(n1)
t2=temp(n2)
t3=temp(n3)
t4=temp(n4)
t5=temp(n5)
		!mittlere Temperatur
tm=(t1+t2+t3+t4+t5)/5

		!entfernungsgewichtete Temperatur
		!Summe aller Entfernungen
se=e01+e02+e03+e04+e05
		!relative reziproke Entfernungen (Wichtung)
e01r=se/e01
e02r=se/e02
e03r=se/e03
e04r=se/e04
e05r=se/e05
ser=e01r+e02r+e03r+e04r+e05r  !Summe

		!entfernungsgewichtete Temperatur
t0=(t1*e01r+t2*e02r+t3*e03r+t4*e04r+t5*e05r)/ser
		!Ausschreiben
*cfwrite,AUSGABE,t0

*enddo
*cfclos
*enddo