! TITLE: c552002726_rotor_lam.mac (EMAG) ! !--------------------------------------------------------------------------- ! Rev - 07/06/2000 J. Rinaldi !--------------------------------------------------------------------------- ! ! This macro creates the stator lamination profile, P/N C552002726 ! ! CSrl0: Cartesian Stator Lamination Coordinate System ! CSrl1: Cylindrical Stator Lamination Coordinate System ! ! !******************************* TABLE OF CONTENTS ************************** ! ! ! 1. Parameter List ! 2. Model Coordinate System ! 3. Material and Element Type ! 4. Solid Model ! 4.1 Outer Diameter Area Layout ! 4.2 Flat Surfaces ! 4.3 Mid Diameter Area Layout ! 4.4 Center Hole Layout ! ! !***************************** END Table of Contents ************************ ! ! ! !************************** Model Assembly Preparation ********************** ! /prep7 ! /dev,font,1,charter,bold,r,24,,,,, ! /title,Rotor Lamination C552002726 ! /VIEW, 1 ,,,1 /ANG, 1 ! /units,bin ! British/inch units ! !**************************** End Model Preparation ************************* ! ! ! !<<<<<<<<<<<<<<<<<<<<<<<< 1. Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>> d_outr=0.379 ! lamination outer diameter d_midr=0.310 ! lamination mid-circle diameter d_hole=0.150 ! inner hole diameter w_flat=0.265 ! width of flat surfaces !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! !<<<<<<<<<<<<<<<<<<<< 2. Model Coordinate Systems >>>>>>>>>>>>>>>>>>>> ! acs=0 ! active coordinate system (c.s.) locating model c.s. ! !------------- Specify model c.s. center location -------------- ! xc=0.00 ! x (r) coordinate center yc=0.00 ! y (theta) coordinate center zc=0.00 ! z (z or phi) coordinate center ! !------------- Specify model c.s. orientation ------------------ ! rotxy=20 ! 1st rotation angle (+x to +y) rotyz=0 ! 2nd rotation angle (+y to +z) rotzx=0 ! 3rd rotation angle (+z to +x) ! !--------------------------------------------------------------- ! csn=11 ! csn=csn+1 CSrl0=csn ! cartesian model c.s. number ! csn=csn+1 CSrl1=csn ! cylindrical model c.s. number ! csys,acs clocal,CSrl0,0,xc,yc,zc,rotxy,rotyz,rotzx ! csys,acs clocal,CSrl1,1,xc,yc,zc,rotxy,rotyz,rotzx ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! !<<<<<<<<<<<<<<<<<<<< 3. Material and Element Type >>>>>>>>>>>>>>>>>>> ! ! !---------------------- Material Properties -------------------- ! UIMP,1,EX, , ,10.3E6, ! Material: XXXXX UIMP,1,DENS, , ,.097/386.4, UIMP,1,NUXY, , ,0.33, !UIMP,XX,XXXX ! !--------------------------------------------------------------- ! ! !------------------------- Element Type ------------------------ ! !ET,XX,XXXXX !ET,XX,XXXXX ! !--------------------------------------------------------------- ! ! !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! !<<<<<<<<<<<<<<<<<<<<<<<<<<< 4. Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>> ! ! ! !------------------ 4.1 Outer Diameter Area Layout ------------------- ! csys,CSrl1 ! *do,i,0,270,90 k,,d_outr/2,i,0 *enddo ! *get,km,kp,,num,max ! a,km-3,km-2,km-1,km ! *get,lm,line,,num,max *get,am,area,,num,max lplot ! !------------------------- 4.2 Flat Surfaces ------------------------- ! csys,CSrl0 ! k,,w_flat/2,d_outr/2,0 ! right area k,,w_flat/2,-d_outr/2,0 k,,1.2*(d_outr/2),-d_outr/2,0 k,,1.2*(d_outr/2),d_outr/2,0 ! *get,km,kp,,num,max ! a,km-3,km-2,km-1,km ! *get,lm,line,,num,max *get,am,area,,num,max ! ! ! k,,-w_flat/2,-d_outr/2,0 ! left area k,,-w_flat/2,d_outr/2,0 k,,-1.2*(d_outr/2),d_outr/2,0 k,,-1.2*(d_outr/2),-d_outr/2,0 ! *get,km,kp,,num,max ! a,km-3,km-2,km-1,km ! *get,lm,line,,num,max *get,am,area,,num,max ! lplot ! asel,s,area,,am-1,am,1 cm,aset1,area ! allsel ! asba,am-2,aset1,,delete,delete ! *get,km,kp,,num,max numstr,kp,km ! *get,lm,line,,num,max numstr,line,lm ! *get,am,area,,num,max numstr,area,am ! !-------------------- 4.3 Mid Diameter Area Layout ------------------- ! csys,CSrl1 ! *do,i,0,270,90 k,,d_midr/2,i,0 *enddo ! *get,km,kp,,num,max ! a,km-3,km-2,km-1,km ! *get,lm,line,,num,max *get,am,area,,num,max lplot ! aadd,am-1,am ! *get,km,kp,,num,max numstr,kp,km ! *get,lm,line,,num,max numstr,line,lm ! *get,am,area,,num,max numstr,area,am ! lplot ! !----------------------- 4.4 Center Hole Layout ---------------------- ! csys,CSrl1 ! *do,i,0,270,90 k,,d_hole/2,i,0 *enddo ! *get,km,kp,,num,max ! a,km-3,km-2,km-1,km ! *get,lm,line,,num,max *get,am,area,,num,max lplot ! asba,am-1,am,,delete,delete ! *get,km,kp,,num,max numstr,kp,km ! *get,lm,line,,num,max numstr,line,lm ! *get,am,area,,num,max numstr,area,am ! lplot