finish /clear,start radmi=0.0225 !Abmessungen in Meter radmi1=0.0275 radma=0.0305 radma1=0.0505 Qq=418680000 !bei 390 s /prep7 !CoCr et,1,plane55,,,1 mp,kxx,1,11 !Wrmeleitfhigkeit in W/m^-1 K^-1 mp,c,1,430 !spez.Wrmeleitzahl in J/Kg K mp,dens,1,8300 !Dichte in Kg/m^3 keyopt,1,3,1 !PE !et,1,plane55,,,1 !mp,kxx,1,0.36 !Wrmeleitfhigkeit in W/m^-1 K^-1 !mp,c,1,1680 !spez.Wrmeleitzahl in J/Kg K !mp,dens,1,960 !Dichte in Kg/m^3 !keyopt,1,3,1 !PMMA et,2,plane55,,,1 mp,kxx,2,0.19 !W m-1 K-1 mp,c,2,1500 !J K-1 kg-1 mp,dens,2,1190 !kg/m³*1e+3 keyopt,2,3,1 !PU Schaum et,3,plane55,,,1 mp,kxx,3,0.3 mp,c,3,1400 mp,dens,3,600 keyopt,3,3,1 !geometrie pcirc,radmi,radmi1,0.-90 pcirc,radmi,radma,0,-90 pcirc,radmi,radma1,0,-90 aovlap,1,2,3 /pnum,area,1 aplot !_------------------------------------------------- !Pfanne: Flche A1 !Zement: Flche A4 !Knochen: Flche A5 esize,0.001 !Die Netzdichte ist 1mm mshape,0,2d !0=Quadrate mshkey,1 !mapped meshing mat,1 !Materialzuweisung amesh,1 mat,2 amesh,4 mat,3 amesh,5 alls pi=3.14 ! Elemente asel,s,,,4 esla,s,1 *get,nanz,elem,,count *dim,A,array,2,nanz *dim,V,array,2,nanz *dim,Q,array,2,nanz narb=0 Vsum=0 Asum=0 Qsum=0 *do,i,1,nanz !Schleife mit Nanz durchlufen j=i+220 *get,Area,elem,j,area *get,Volu,elem,j,volu A(1,i)=j A(2,i)=Area Asum=Asum+A(2,i) V(1,i)=j V(2,i)=Volu Vsum=Vsum+V(2,i) !Qq normiert auf Elementvolumen Q(1,i)=j Q(2,i)=Qq !*V(2,i) Qsum=Qsum+Q(2,i) *enddo alls /input,'ErgebnisDateiVol','dat','C:\AnsysWorking',, 0 /pnum,line,1 lplot !Lsungsabschnitt /solu ANTYPE,TRANS !Transiente Temperaturanalyse !Lastschritt 1 !stationre Zustand zum Zeitpunkt t=0, transiente Effekte ausgeschaltet TINTP,,,,1 !Zeit-Integrationsparameter (Methode nach Euler Rckwrtseinsetzen) OUTRES,all,all autots,off tunif,23 kbc,1 time,1 nsubst,1 alls solve !Lastschritt 2 !Transiente Effekte einschalten ab t>0 !Wrmequelle eingeben alls !reicht aus um alle !Elemente und Flaechen !auszuwaehlen !Die Last Qq wird auf die Elemente aufgebracht !normiert auf das Volumen jedes Elementes !!! BFE , 221 , HGEN , 1 , Q(2, 1 ) BFE , 222 , HGEN , 1 , Q(2, 2 ) BFE , 223 , HGEN , 1 , Q(2, 3 ) BFE , 224 , HGEN , 1 , Q(2, 4 ) BFE , 225 , HGEN , 1 , Q(2, 5 ) BFE , 226 , HGEN , 1 , Q(2, 6 ) BFE , 227 , HGEN , 1 , Q(2, 7 ) BFE , 228 , HGEN , 1 , Q(2, 8 ) BFE , 229 , HGEN , 1 , Q(2, 9 ) BFE , 230 , HGEN , 1 , Q(2, 10 ) BFE , 231 , HGEN , 1 , Q(2, 11 ) BFE , 232 , HGEN , 1 , Q(2, 12 ) BFE , 233 , HGEN , 1 , Q(2, 13 ) BFE , 234 , HGEN , 1 , Q(2, 14 ) BFE , 235 , HGEN , 1 , Q(2, 15 ) BFE , 236 , HGEN , 1 , Q(2, 16 ) BFE , 237 , HGEN , 1 , Q(2, 17 ) BFE , 238 , HGEN , 1 , Q(2, 18 ) BFE , 239 , HGEN , 1 , Q(2, 19 ) BFE , 240 , HGEN , 1 , Q(2, 20 ) BFE , 241 , HGEN , 1 , Q(2, 21 ) BFE , 242 , HGEN , 1 , Q(2, 22 ) BFE , 243 , HGEN , 1 , Q(2, 23 ) BFE , 244 , HGEN , 1 , Q(2, 24 ) BFE , 245 , HGEN , 1 , Q(2, 25 ) BFE , 246 , HGEN , 1 , Q(2, 26 ) BFE , 247 , HGEN , 1 , Q(2, 27 ) BFE , 248 , HGEN , 1 , Q(2, 28 ) BFE , 249 , HGEN , 1 , Q(2, 29 ) BFE , 250 , HGEN , 1 , Q(2, 30 ) BFE , 251 , HGEN , 1 , Q(2, 31 ) BFE , 252 , HGEN , 1 , Q(2, 32 ) BFE , 253 , HGEN , 1 , Q(2, 33 ) BFE , 254 , HGEN , 1 , Q(2, 34 ) BFE , 255 , HGEN , 1 , Q(2, 35 ) BFE , 256 , HGEN , 1 , Q(2, 36 ) BFE , 257 , HGEN , 1 , Q(2, 37 ) BFE , 258 , HGEN , 1 , Q(2, 38 ) BFE , 259 , HGEN , 1 , Q(2, 39 ) BFE , 260 , HGEN , 1 , Q(2, 40 ) BFE , 261 , HGEN , 1 , Q(2, 41 ) BFE , 262 , HGEN , 1 , Q(2, 42 ) BFE , 263 , HGEN , 1 , Q(2, 43 ) BFE , 264 , HGEN , 1 , Q(2, 44 ) BFE , 265 , HGEN , 1 , Q(2, 45 ) BFE , 266 , HGEN , 1 , Q(2, 46 ) BFE , 267 , HGEN , 1 , Q(2, 47 ) BFE , 268 , HGEN , 1 , Q(2, 48 ) BFE , 269 , HGEN , 1 , Q(2, 49 ) BFE , 270 , HGEN , 1 , Q(2, 50 ) BFE , 271 , HGEN , 1 , Q(2, 51 ) BFE , 272 , HGEN , 1 , Q(2, 52 ) BFE , 273 , HGEN , 1 , Q(2, 53 ) BFE , 274 , HGEN , 1 , Q(2, 54 ) BFE , 275 , HGEN , 1 , Q(2, 55 ) BFE , 276 , HGEN , 1 , Q(2, 56 ) BFE , 277 , HGEN , 1 , Q(2, 57 ) BFE , 278 , HGEN , 1 , Q(2, 58 ) BFE , 279 , HGEN , 1 , Q(2, 59 ) BFE , 280 , HGEN , 1 , Q(2, 60 ) BFE , 281 , HGEN , 1 , Q(2, 61 ) BFE , 282 , HGEN , 1 , Q(2, 62 ) BFE , 283 , HGEN , 1 , Q(2, 63 ) BFE , 284 , HGEN , 1 , Q(2, 64 ) BFE , 285 , HGEN , 1 , Q(2, 65 ) BFE , 286 , HGEN , 1 , Q(2, 66 ) BFE , 287 , HGEN , 1 , Q(2, 67 ) BFE , 288 , HGEN , 1 , Q(2, 68 ) BFE , 289 , HGEN , 1 , Q(2, 69 ) BFE , 290 , HGEN , 1 , Q(2, 70 ) BFE , 291 , HGEN , 1 , Q(2, 71 ) BFE , 292 , HGEN , 1 , Q(2, 72 ) BFE , 293 , HGEN , 1 , Q(2, 73 ) BFE , 294 , HGEN , 1 , Q(2, 74 ) BFE , 295 , HGEN , 1 , Q(2, 75 ) BFE , 296 , HGEN , 1 , Q(2, 76 ) BFE , 297 , HGEN , 1 , Q(2, 77 ) BFE , 298 , HGEN , 1 , Q(2, 78 ) BFE , 299 , HGEN , 1 , Q(2, 79 ) BFE , 300 , HGEN , 1 , Q(2, 80 ) BFE , 301 , HGEN , 1 , Q(2, 81 ) BFE , 302 , HGEN , 1 , Q(2, 82 ) BFE , 303 , HGEN , 1 , Q(2, 83 ) BFE , 304 , HGEN , 1 , Q(2, 84 ) BFE , 305 , HGEN , 1 , Q(2, 85 ) BFE , 306 , HGEN , 1 , Q(2, 86 ) BFE , 307 , HGEN , 1 , Q(2, 87 ) BFE , 308 , HGEN , 1 , Q(2, 88 ) BFE , 309 , HGEN , 1 , Q(2, 89 ) BFE , 310 , HGEN , 1 , Q(2, 90 ) BFE , 311 , HGEN , 1 , Q(2, 91 ) BFE , 312 , HGEN , 1 , Q(2, 92 ) BFE , 313 , HGEN , 1 , Q(2, 93 ) BFE , 314 , HGEN , 1 , Q(2, 94 ) BFE , 315 , HGEN , 1 , Q(2, 95 ) BFE , 316 , HGEN , 1 , Q(2, 96 ) BFE , 317 , HGEN , 1 , Q(2, 97 ) BFE , 318 , HGEN , 1 , Q(2, 98 ) BFE , 319 , HGEN , 1 , Q(2, 99 ) BFE , 320 , HGEN , 1 , Q(2, 100 ) BFE , 321 , HGEN , 1 , Q(2, 101 ) BFE , 322 , HGEN , 1 , Q(2, 102 ) BFE , 323 , HGEN , 1 , Q(2, 103 ) BFE , 324 , HGEN , 1 , Q(2, 104 ) BFE , 325 , HGEN , 1 , Q(2, 105 ) BFE , 326 , HGEN , 1 , Q(2, 106 ) BFE , 327 , HGEN , 1 , Q(2, 107 ) BFE , 328 , HGEN , 1 , Q(2, 108 ) BFE , 329 , HGEN , 1 , Q(2, 109 ) BFE , 330 , HGEN , 1 , Q(2, 110 ) BFE , 331 , HGEN , 1 , Q(2, 111 ) BFE , 332 , HGEN , 1 , Q(2, 112 ) BFE , 333 , HGEN , 1 , Q(2, 113 ) BFE , 334 , HGEN , 1 , Q(2, 114 ) BFE , 335 , HGEN , 1 , Q(2, 115 ) BFE , 336 , HGEN , 1 , Q(2, 116 ) BFE , 337 , HGEN , 1 , Q(2, 117 ) BFE , 338 , HGEN , 1 , Q(2, 118 ) BFE , 339 , HGEN , 1 , Q(2, 119 ) BFE , 340 , HGEN , 1 , Q(2, 120 ) BFE , 341 , HGEN , 1 , Q(2, 121 ) BFE , 342 , HGEN , 1 , Q(2, 122 ) BFE , 343 , HGEN , 1 , Q(2, 123 ) BFE , 344 , HGEN , 1 , Q(2, 124 ) BFE , 345 , HGEN , 1 , Q(2, 125 ) BFE , 346 , HGEN , 1 , Q(2, 126 ) BFE , 347 , HGEN , 1 , Q(2, 127 ) BFE , 348 , HGEN , 1 , Q(2, 128 ) BFE , 349 , HGEN , 1 , Q(2, 129 ) BFE , 350 , HGEN , 1 , Q(2, 130 ) BFE , 351 , HGEN , 1 , Q(2, 131 ) BFE , 352 , HGEN , 1 , Q(2, 132 ) alls !Convection auf Linien aufbringen lsel,s,,,2 lsel,a,,,3 lsel,a,,,9 lsel,a,,,16 lsel,a,,,14 sfl,all,CONV,,,,23 alls sftran ddel,all,temp AUTOTS,ON neqit,50 nsubst,10,200,2 time,2 solve asel,s,,,1 esla,s,1 eplot /post1 PLNSOL, TEMP,, 0