*dim,coeff_,table,,11 !Table mit z.B. 10 Zeilen erstellen
coeff_(0,1)=1 	!In die Nullte Zeile die Zeit eintragen
coeff_(0,2)=6 	!Zeit 6s
coeff_(0,3)=10 	!Zeit 10s
*vfill,coeff_(1,0),Data,0.01,0.02,0.03,0.04,0.1,0.16,7,8,9,10 !x läuft z.B. von 1 bis 10
*vfill,coeff_(1,1),Data,0.8,1.4,2.6,2.7,5.8,3.9,3.95,4,1.05,1.1 !zu x und t=1s gehörige Wärmeübergangskoeffizienten (Achtung Einheiten beachten!)
*vfill,coeff_(1,2),Data,0.8,1.4,2.6,2.7,5.8,3.9,3.95,4,1.05,1.1 
*vfill,coeff_(1,3),Data,0.8,1.4,2.6,2.7,5.8,3.9,3.95,4,1.05,1.1 
coeff_(0,0)=1 !Nötig?
*do,j,1,10 		!Zeit läuft von 1 bis 10s

time=j 

nsel,s,loc,x,0,0.20 ! Alle Knoten auswählen, auf die die Konvektion aufgebracht werden soll
sfdele,all,all !Alle möglicherweise vorhandenen Oberflächenlasten auf diesen Knoten löschen 
*get,nnum,node,,count !Anzahl der ausgewählten Knoten
numtemp=0 ! Zähler auf 0 setzen
ambient=100 !Umgebungstemperatur festsetzen, gegen die konvektiert werden soll 

*do,i,1,nnum

numtemp=ndnext(numtemp) !Zähler auf die jeweils kleinste vorhandene Knotennummer setzen
nx_=nx(numtemp) !xKoordinate des Knotens
sf,all,conv,coeff_(nx_,time),ambient !Wärmeübergangskoeffizient wird aus der Tabelle für die zugehörige x-Position und Zeit interpoliert 
nsel,u,numtemp !Knoten deselektieren für den nächsten Schleifendurchlauf

*enddo !i