! TITLE: impulse.mac (PARKER) ! !--------------------------------------------------------------------------- ! Rev - 5/12/2000 D. Edwards !--------------------------------------------------------------------------- ! ! Static pressure and steady state pressure thermal analysis for ! Parker Transformaer Assembly, P/N CU09696076 ! ! 2D quarter symmetery cross section at mid length of the transformer assy. ! !******************************* TABLE OF CONTENTS ************************** ! ! Model Assembly Preparation ! ! 1. Parameter List ! 2. Model Coordinate System ! 2. Material and Element Type ! 4. Solid Model ! ! !***************************** END Table of Contents ************************ ! ! !************************** Model Assembly Preparation ********************** ! mod_assemb_prep ! prepare database for assembly ! /dev,font,1,charter,bold,r,26,,,,, ! /title,Thermal (%Ttest% deg F) & Pressure (%Pmx% psi) Loading ! /view,1,1,1,1 /auto,1 /replot ! /units,bin ! English units /prep7 ! !**************************** End Model Preparation ************************* ! ! ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> Troom=70 ! [deg F] Room temperature (zero thermal stress) Ttest=240 ! [deg F] Test ambient temperature Pmx=100 ! [psi] Maximum impulse pressure !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate Systems >>>>>>>>>>>>>>>>>>>> ! csys,1 ! 0 for global cartesian, 1 for global cylindrical ! ! and 2 for global spherical ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! !<<<<<<<<<<<<<<<<<<<< 3. Material and Element Type >>>>>>>>>>>>>>>>>>> ! cres321=1 copper=2 tape=3 hymu80=4 potting=5 UIMP,cres321,EX, , ,10.3E6, ! Material: 321 CRES UIMP,cres321,DENS, , ,.097/386.4, UIMP,cres321,NUXY, , ,0.33, UIMP,copper,EX, , ,10.3E6, ! Material: UIMP,copper,DENS, , ,.097/386.4, UIMP,copper,NUXY, , ,0.33, UIMP,tape,EX, , ,10.3E6, ! Material: UIMP,tape,DENS, , ,.097/386.4, UIMP,tape,NUXY, , ,0.33, UIMP,hymu80,EX, , ,10.3E6, ! Material: UIMP,hymu80,DENS, , ,.097/386.4, UIMP,hymu80,NUXY, , ,0.33, UIMP,potting,EX, , ,10.3E6, ! Material: UIMP,potting,DENS, , ,.097/386.4, UIMP,potting,NUXY, , ,0.33, ! !--------------------------------------------------------------- ! ! !------------------------- Element Type ------------------------ ! ET,1,plane82,,,0 ! !--------------------------------------------------------------- ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 4. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! radius,7,.1675,.1875,.285,.3,.31,.38,.415 *do,j,1,6 k,,rad(j,1),0 k,,rad(j+1,1),0 k,,rad(j+1,1),90 k,,rad(j,1,1),90 init_entity_num a,km-3,km-2,km-1,km init_entity_num *enddo nummrg,kp max_enty_dim,'l' k,,0,0 k,,1.5*max_leng,20 init_entity_num lstr,km-1,km init_entity_num asbl,am-2,lm,,delete,delete init_entity_num adele,am-1,,,1 init_entity_num max_enty_dim,'l' numcmp,all init_entity_num *dim,mtl_lst,array,6 *set,mtl_lst(1,1),1,2,3,5,1,4 /eof *do,j,1,6 asel,s,area,,am-j+1 ! MSH_ALGORITHM, perflsz, perfmsh, etpa, etpv, elmnl, elmxl, mtrl, rl, ecs MSH_ALGORITHM,1,1,1,,.01,.01,mtl_lst(am-j+1,1) *enddo