<P>FINI<BR>/CLE<BR>/FILENAME,'TUNNEL'<BR>/UNIT,SI<BR>/CONFIG,NRES,1E6<BR>!--------------------------------------------------------------------------------------------------------------------!<BR>!*<BR>TM_YS=16*1E9 <BR>MU_YS=0.24 <BR>C_YS=1.80*1E6 <BR>FI_YS=43 <BR>MD_YS=0.027*1E6/10 <BR>!*<BR>!*C20<BR>TM_GXW=26*1E9 <BR>MU_GXW=0.21 <BR>C_GXW=2.4*1E6 <BR>FI_GXW=50 <BR>MD_GXW=0.02235*1E6/10<BR>!*<BR>!* C10*!<BR>TM_HNT=22*1E9 <BR>MU_HNT=0.20 <BR>C_HNT=1.73*1E6 <BR>FI_HNT=49 <BR>MD_HNT=0.024*1E6/10 <BR>!*<BR>TM_MG=TM_YS <BR>MU_MG=MU_YS <BR>MD_MG=MD_YS <BR>NT_MG=90*1E3 <BR>C_MG=C_YS*1.10 <BR>FI_MG=FI_YS+5 <BR>ZH_MG=NT_MG/(1.2*1*1) <BR>!----------------------------------------------------------------------------------------------------------------------!<BR>!*<BR>R_HJ=6.230 <BR>H_ZQ=2.670 <BR>L_ZTZ=40 <BR>L_YTZ=40 <BR>Y_YJMIN=400 <BR>Y_YJMAX=415 <BR>L_YJ=Y_YJMAX-Y_YJMIN <BR>L_MG=3.5 <BR>JJ_MG=5.0 <BR>PJ_MG=5.0 <BR>H_CENDB=1.47 <BR>PD=2/1000 <BR>W_GXW=0.2 <BR>H_JS=831 <BR>DMJL_SD=40 <BR>H_CTOB=1.47 <BR>*DIM,CEN_ZSD,ARRAY,2,1<BR>*DIM,CEN_YSD,ARRAY,2,1<BR>CEN_ZSD(1,1)=-DMJL_SD/2,880 <BR>CEN_YSD(1,1)=DMJL_SD/2,880 !+H_CTOB <BR>H_ZQ=2.67 <BR>FLAG_RD=3 <BR>JL_RD=5 <BR>*DIM,Z_RDCC,ARRAY,3,2 <BR>Z_RDCC(1,1)=3,3,3 <BR>Z_RDCC(1,2)=CEN_ZSD(1,1),CEN_ZSD(2,1)+R_HJ+JL_RD+Z_RDCC(2,1)/2,L_ZTZ+7.5 <BR>*DIM,Y_RDCC,ARRAY,3,2 <BR>Y_RDCC(1,1)=3,3,3 <BR>Y_RDCC(1,2)=CEN_YSD(1,1),CEN_YSD(2,1)+R_HJ+JL_RD+Y_RDCC(2,1)/2,L_ZTZ+7.5 <BR>!*<BR>*DIM,DBKZDX,ARRAY,9,1<BR>*DIM,DBKZDZ,ARRAY,(Y_YJMAX-Y_YJMIN)/PJ_MG+3,1<BR>DBKZDX(1,1)=-150,-64,-38,-20,0,20,42,64,150 <BR>DBKZDZ(1,1)=0,L_ZTZ<BR>DBKZDZ((Y_YJMAX-Y_YJMIN)/PJ_MG+3,1)=L_ZTZ+Y_YJMAX-Y_YJMIN+L_YTZ<BR>*DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG<BR> DBKZDZ(I+2,1)=L_ZTZ+PJ_MG*I<BR>*ENDDO<BR>*DIM,DBKZDGC,ARRAY,9,(Y_YJMAX-Y_YJMIN)/PJ_MG+3 <BR>DBKZDGC(1,1)=929,915,915,920,925,930,937,940,940<BR>DBKZDGC(1,2)=929,915,915,920,925,930,937,940,940<BR>DBKZDGC(1,3)=929,915,915,920,925,930,937,940,940<BR>DBKZDGC(1,4)=929,915,915,920,925,930,937,940,940<BR>DBKZDGC(1,5)=929,915,915,920,925,930,937,940,940<BR>DBKZDGC(1,6)=929,915,915,920,925,930,937,940,940<BR>!*************************************************************************************!<BR>!*<BR>!----------------------------------------------------------------------------------------------------------------------!<BR>/PREP7<BR>ET,1,95 <BR>ET,2,43 <BR>KEYOPT,2,5,2 <BR>R,1,W_GXW </P>
<P>MP,EX,7,TM_YS<BR>MP,PRXY,7,MU_YS<BR>MP,DENS,7,MD_YS<BR>MP,EX,1,TM_YS<BR>MP,PRXY,1,MU_YS<BR>MP,DENS,1,MD_YS<BR>MP,EX,2,TM_GXW<BR>MP,PRXY,2,MU_GXW<BR>MP,DENS,2,MD_GXW<BR>MP,EX,3,TM_MG<BR>MP,PRXY,3,MU_MG<BR>MP,DENS,3,MD_MG<BR>MP,EX,4,TM_HNT<BR>MP,PRXY,4,MU_HNT<BR>MP,DENS,4,MD_HNT<BR>MP,EX,5,TM_YS<BR>MP,PRXY,5,MU_YS<BR>MP,DENS,5,MD_YS<BR>MP,EX,6,TM_YS<BR>MP,PRXY,6,MU_YS<BR>TB,DP,1,,, <BR>TBMODIF,1,1,C_YS <BR>TBMODIF,1,2,FI_YS <BR>TB,DP,2,,, <BR>TBMODIF,1,1,C_GXW <BR>TBMODIF,1,2,FI_GXW <BR>TB,DP,3,,, <BR>TBMODIF,1,1,C_MG <BR>TBMODIF,1,2,FI_MG <BR>TB,DP,4,,, <BR>TBMODIF,1,1,C_HNT <BR>TBMODIF,1,2,FI_HNT <BR>TB,DP,5,,, <BR>TBMODIF,1,1,C_YS <BR>TBMODIF,1,2,FI_YS <BR>TB,DP,6,,, <BR>TBMODIF,1,1,C_YS <BR>TBMODIF,1,2,FI_YS <BR>!**************************************************!<BR>MAT_YS=1 <BR>MAT_GXW=2<BR>MAT_MG=3<BR>MAT_DB=4<BR>MAT_SD=5<BR>MAT_MGKW=6<BR>MAT_TXYS=1 <BR>KBEGIN=0<BR>*DO,I,1,9-1<BR> *DO,J,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1 <BR> K,KBEGIN+1,DBKZDX(I,1),H_JS,DBKZDZ(J,1)<BR> K,KBEGIN+2,DBKZDX(I,1),DBKZDGC(I,J),DBKZDZ(J,1)<BR> K,KBEGIN+3,DBKZDX(I,1),DBKZDGC(I,J+1),DBKZDZ(J+1,1)<BR> K,KBEGIN+4,DBKZDX(I,1),H_JS,DBKZDZ(J+1,1)<BR> <BR> K,KBEGIN+5,DBKZDX(I+1,1),H_JS,DBKZDZ(J,1)<BR> K,KBEGIN+6,DBKZDX(I+1,1),DBKZDGC(I+1,J),DBKZDZ(J,1)<BR> K,KBEGIN+7,DBKZDX(I+1,1),DBKZDGC(I+1,J+1),DBKZDZ(J+1,1)<BR> K,KBEGIN+8,DBKZDX(I+1,1),H_JS,DBKZDZ(J+1,1)<BR> V,KBEGIN+1,KBEGIN+2,KBEGIN+3,KBEGIN+4,KBEGIN+5,KBEGIN+6,KBEGIN+7,KBEGIN+8</P>
<P> KBEGIN=KBEGIN+8<BR> *ENDDO<BR>*ENDDO<BR>ALLS<BR>VGLUE,ALL<BR>NUMCMP,ALL<BR>VATT,MAT_YS <BR>!*<BR>CYL4,CEN_ZSD(1,1),CEN_ZSD(2,1),R_HJ+L_MG,180,,,L_ZTZ+L_YTZ+Y_YJMAX-Y_YJMIN <BR>CYL4,CEN_YSD(1,1),CEN_YSD(2,1),R_HJ+L_MG,180,,,L_ZTZ+L_YTZ+Y_YJMAX-Y_YJMIN <BR>BLOCK,CEN_ZSD(1,1)-R_HJ-L_MG,CEN_ZSD(1,1)+R_HJ+L_MG,CEN_ZSD(2,1)-H_ZQ,CEN_ZSD(2,1),DBKZDZ(1,1),DBKZDZ((Y_YJMAX-Y_YJMIN)/PJ_MG+3,1)<BR>BLOCK,CEN_YSD(1,1)-R_HJ-L_MG,CEN_YSD(1,1)+R_HJ+L_MG,CEN_YSD(2,1)-H_ZQ,CEN_YSD(2,1),DBKZDZ(1,1),DBKZDZ((Y_YJMAX-Y_YJMIN)/PJ_MG+3,1)<BR>!*<BR>VSEL,ALL<BR>VSEL,S,MAT,,MAT_YS<BR>CM,V_BSUB,VOLU <BR>VSEL,INVE <BR>CM,V_SUB,VOLU<BR>ALLS<BR>VSBV,V_BSUB,V_SUB<BR>CMDEL,V_BSUB <BR>CMDEL,V_SUB<BR>ALLS<BR>NUMCMP,ALL<BR>VATT,MAT_YS <BR>!*<BR>*DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1<BR> WPAVE,CEN_ZSD(1,1),CEN_ZSD(2,1),DBKZDZ(I,1)<BR> CYL4,0,0,R_HJ+L_MG,180,R_HJ,,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR> CYL4,0,0,R_HJ,180,,,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR> BLOCK,-R_HJ,R_HJ,-H_CTOB,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR> BLOCK,-R_HJ,R_HJ,-H_ZQ,-H_CTOB,0,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR> BLOCK,-R_HJ-L_MG,-R_HJ,-H_ZQ,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR> BLOCK,R_HJ,R_HJ+L_MG,-H_ZQ,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR> WPAVE,CEN_YSD(1,1),CEN_YSD(2,1),DBKZDZ(I,1)<BR> CYL4,0,0,R_HJ+L_MG,180,R_HJ,,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR> CYL4,0,0,R_HJ,180,,,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR> BLOCK,-R_HJ,R_HJ,-H_CTOB,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR> BLOCK,-R_HJ,R_HJ,-H_ZQ,-H_CTOB,0,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR> BLOCK,-R_HJ-L_MG,-R_HJ,-H_ZQ,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR> BLOCK,R_HJ,R_HJ+L_MG,-H_ZQ,0,0,DBKZDZ(I+1,1)-DBKZDZ(I,1) <BR>*ENDDO</P>
<P>ALLS<BR>VGLUE,ALL <BR>NUMCMP,ALL <BR>CM,ROCK,VOLU</P>
<P>WPAVE,0,0,0<BR>*IF,FLAG_RD,EQ,-1,OR,FLAG_RD,EQ,2,THEN <BR> VSTART=1000<BR> NUMSTR,VOLU,VSTART<BR> BLOCK,Z_RDCC(1,2)-Z_RDCC(1,1)/2,Z_RDCC(1,2)+Z_RDCC(1,1)/2,Z_RDCC(2,2)-Z_RDCC(2,1)/2,Z_RDCC(2,2)+Z_RDCC(2,1)/2,Z_RDCC(3,2)-Z_RDCC(3,1)/2,Z_RDCC(3,2)+Z_RDCC(3,1)/2<BR> VSBV,ROCK,VSTART<BR> NUMCMP,VOLU<BR> ALLS<BR> CMDEL,ROCK<BR> CM,ROCK,VOLU<BR>*ENDIF<BR>*IF,FLAG_RD,EQ,1,OR,FLAG_RD,EQ,2,THEN <BR> VSTART=1000<BR> NUMSTR,VOLU,VSTART<BR> BLOCK,Y_RDCC(1,2)-Y_RDCC(1,1)/2,Y_RDCC(1,2)+Y_RDCC(1,1)/2,Y_RDCC(2,2)-Y_RDCC(2,1)/2,Y_RDCC(2,2)+Y_RDCC(2,1)/2,Y_RDCC(3,2)-Y_RDCC(3,1)/2,Y_RDCC(3,2)+Y_RDCC(3,1)/2<BR> VSBV,ROCK,VSTART<BR> NUMCMP,VOLU<BR> ALLS<BR> CMDEL,ROCK<BR> CM,ROCK,VOLU<BR>*ENDIF<BR>ALLS<BR>NUMCMP,ALL<BR>!*<BR>!----------------------------------------------------------------------------------------------------------------------!<BR>!*<BR>ALLS<BR>VATT,MAT_YS <BR>ALLS<BR>VSEL,S,LOC,X,CEN_ZSD(1,1)-1E-7,CEN_ZSD(1,1)+1E-7 <BR>CM,CM_TEMPV,VOLU<BR>ASLV,R<BR>ASEL,R,LOC,Y,CEN_ZSD(2,1)-H_ZQ-1E-7,CEN_ZSD(2,1)-H_ZQ+1E-7 <BR>VSLA,R<BR>CM,CM_ZDB,VOLU <BR>CMSEL,S,CM_TEMPV<BR>ASLV,S<BR>ASEL,R,LOC,Y,CEN_ZSD(2,1)-1E-7,CEN_ZSD(2,1)+1E-7 <BR>ASEL,U,LOC,X,CEN_ZSD(1,1)-R_HJ,CEN_ZSD(1,1)-R_HJ-L_MG <BR>ASEL,U,LOC,X,CEN_ZSD(1,1)+R_HJ,CEN_ZSD(1,1)+R_HJ+L_MG<BR>VSLA,R<BR>CM,CM_ZSD,VOLU <BR>CMSEL,S,CM_ZSD<BR>CMSEL,A,CM_ZDB<BR>VATT,MAT_SD<BR>CM,CM_ZSDKW,VOLU <BR>ALLS<BR>CMSEL,S,CM_TEMPV<BR>VSEL,U,MAT,,MAT_SD <BR>ASLV,R<BR>ASEL,R,LOC,Y,CEN_ZSD(2,1)<BR>VSEL,ALL<BR>VSLA,R<BR>VATT,MAT_MGKW<BR>CM,CM_ZMG,VOLU <BR>!右隧道<BR>ALLS<BR>VSEL,S,LOC,X,CEN_YSD(1,1)-1E-7,CEN_YSD(1,1)+1E-7 <BR>CM,CM_TEMPV,VOLU<BR>ASLV,R<BR>ASEL,R,LOC,Y,CEN_YSD(2,1)-H_ZQ-1E-7,CEN_YSD(2,1)-H_ZQ+1E-7 <BR>VSLA,R<BR>CM,CM_YDB,VOLU <BR>CMSEL,S,CM_TEMPV<BR>ASLV,S<BR>ASEL,R,LOC,Y,CEN_YSD(2,1)-1E-7,CEN_YSD(2,1)+1E-7 <BR>ASEL,U,LOC,X,CEN_YSD(1,1)-R_HJ,CEN_YSD(1,1)-R_HJ-L_MG <BR>ASEL,U,LOC,X,CEN_YSD(1,1)+R_HJ,CEN_YSD(1,1)+R_HJ+L_MG<BR>VSLA,R<BR>CM,CM_YSD,VOLU <BR>CMSEL,S,CM_YSD<BR>CMSEL,A,CM_YDB<BR>VATT,MAT_SD<BR>CM,CM_YSDKW,VOLU <BR>ALLS<BR>CMSEL,S,CM_TEMPV<BR>VSEL,U,MAT,,MAT_SD <BR>ASLV,R<BR>ASEL,R,LOC,Y,CEN_YSD(2,1)<BR>VSEL,ALL<BR>VSLA,R<BR>VATT,MAT_MGKW<BR>CM,CM_YMG,VOLU </P>
<P>ALLS</P>
<P>CMDEL,CM_TEMPV<BR>ALLS<BR>ASEL,S,LOC,X,DBKZDX(1,1)<BR>ASEL,A,LOC,X,DBKZDX(9,1)<BR>DA,ALL,UX,0 <BR>ALLS<BR>ASEL,S,LOC,Z,DBKZDZ(1,1)<BR>ASEL,A,LOC,Z,DBKZDZ((Y_YJMAX-Y_YJMIN)/PJ_MG+3,1)<BR>DA,ALL,UZ,0 <BR>ALLS<BR>ASEL,S,LOC,Y,H_JS<BR>DA,ALL,ALL <BR>ALLS</P>
<P>LTS_ZD=2<BR>LTS_YD=2<BR>*DIM,ZLT_HFX,ARRAY,LTS_ZD,1 <BR>ZLT_HFX(1,1)=5,3 !4,2<BR>*DIM,YLT_HFX,ARRAY,LTS_YD,1 <BR>YLT_HFX(1,1)=5,3 !4,2<BR>*DIM,LT_HFZ,ARRAY,(Y_YJMAX-Y_YJMIN)/PJ_MG+2 <BR>LT_HFZ(1,1)=4 <BR>*DO,I,2,(Y_YJMAX-Y_YJMIN)/PJ_MG+1 <BR> LT_HFZ(I,1)=2 !PJ_MG<BR>*ENDDO<BR>LT_HFZ((Y_YJMAX-Y_YJMIN)/PJ_MG+2,1)=4 !10 </P>
<P>*DO,J,1,LTS_ZD<BR> *DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1<BR> X_VCEN=(DBKZDX(J,1)+DBKZDX(J+1,1))/2<BR> Z_VCEN=(DBKZDZ(I,1)+DBKZDZ(I+1,1))/2<BR> VSEL,S,LOC,X,X_VCEN-1E-7,X_VCEN+1E-7<BR> VSEL,R,LOC,Z,Z_VCEN-1E-7,Z_VCEN+1E-7<BR> ASLV,R<BR> LSLA,R<BR> CM,CM_HFX,LINE<BR> LSEL,R,LOC,X,X_VCEN <BR> LESIZE,ALL,,,ZLT_HFX(J,1),,1<BR> CMSEL,S,CM_HFX<BR> LSEL,R,LOC,Z,Z_VCEN <BR> LESIZE,ALL,,,LT_HFZ(I,1),,1<BR> CMSEL,S,CM_HFX<BR> LSEL,U,LOC,X,X_VCEN<BR> LSEL,U,LOC,Z,Z_VCEN<BR> LESIZE,ALL,,,9,,1 <BR> CMSEL,S,CM_HFX<BR> MSHAPE,0,3D<BR> MSHKEY,1<BR> VMESH,ALL<BR> ALLS<BR> *ENDDO<BR> !右端<BR> *DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1<BR> X_VCEN=(DBKZDX(9-J+1,1)+DBKZDX(9-J,1))/2<BR> Z_VCEN=(DBKZDZ(I,1)+DBKZDZ(I+1,1))/2<BR> VSEL,S,LOC,X,X_VCEN-1E-7,X_VCEN+1E-7<BR> VSEL,R,LOC,Z,Z_VCEN-1E-7,Z_VCEN+1E-7<BR> ASLV,R<BR> LSLA,R<BR> CM,CM_HFX,LINE<BR> LSEL,R,LOC,X,X_VCEN <BR> LESIZE,ALL,,,YLT_HFX(J,1),,1<BR> CMSEL,S,CM_HFX<BR> LSEL,R,LOC,Z,Z_VCEN <BR> LESIZE,ALL,,,LT_HFZ(I,1),,1<BR> CMSEL,S,CM_HFX<BR> LSEL,U,LOC,X,X_VCEN<BR> LSEL,U,LOC,Z,Z_VCEN<BR> LESIZE,ALL,,,10,,1 <BR> CMSEL,S,CM_HFX<BR> MSHAPE,0,3D<BR> MSHKEY,1<BR> VMESH,ALL<BR> ALLS<BR> *ENDDO</P>
<P>*ENDDO<BR>*DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1<BR> CMSEL,S,CM_ZSDKW<BR> ASLV,R<BR> LSLA,R</P>
<P> X_VCEN=CEN_ZSD(1,1)<BR> Z_VCEN=(DBKZDZ(I,1)+DBKZDZ(I+1,1))/2<BR> VSEL,R,LOC,Z,Z_VCEN-1E-7,Z_VCEN+1E-7<BR> CM,CM_VMESH,VOLU<BR> ASLV,R<BR> LSLA,R<BR> CM,CM_HFX,LINE<BR> ALLS<BR> <BR> CMSEL,S,CM_HFX<BR> LSEL,R,LOC,X,X_VCEN-1E-7,X_VCEN-R_HJ+1E-7 <BR> LESIZE,ALL,,,2,,1 <BR> CMSEL,S,CM_HFX<BR> LSEL,R,LOC,X,X_VCEN+1E-7,X_VCEN+R_HJ-1E-7 <BR> LESIZE,ALL,,,2,,1 <BR> ALLS</P>
<P> CMSEL,S,CM_HFX<BR> LSEL,R,LOC,X,X_VCEN-1E-7,X_VCEN+1E-7 <BR> LSEL,U,LOC,Z,Z_VCEN<BR> LESIZE,ALL,2 <BR> ALLS<BR> <BR> CMSEL,S,CM_HFX<BR> LSEL,R,LOC,Z,Z_VCEN <BR> LESIZE,ALL,,,LT_HFZ(I,1),,1<BR> ALLS</P>
<P> CMSEL,S,CM_HFX<BR> LSEL,U,LOC,X,X_VCEN<BR> LSEL,U,LOC,X,X_VCEN-1E-7,X_VCEN-R_HJ+1E-7<BR> LSEL,U,LOC,X,X_VCEN+1E-7,X_VCEN+R_HJ-1E-7<BR> LSEL,U,LOC,Z,Z_VCEN<BR> LESIZE,ALL,,,1,,1 <BR> ALLS</P>
<P> ALLS<BR> CMSEL,S,CM_VMESH<BR> MSHAPE,0,3D<BR> VSWEEP,ALL<BR> ALLS<BR>*ENDDO</P>
<P><BR>CMSEL,S,CM_ZMG<BR>ESIZE,2 <BR>VSWEEP,ALL<BR>ALLS<BR>*DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1<BR> CMSEL,S,CM_YSDKW<BR> ASLV,R<BR> LSLA,R</P>
<P> X_VCEN=CEN_YSD(1,1)<BR> Z_VCEN=(DBKZDZ(I,1)+DBKZDZ(I+1,1))/2<BR> VSEL,R,LOC,Z,Z_VCEN-1E-7,Z_VCEN+1E-7<BR> CM,CM_VMESH,VOLU<BR> ASLV,R<BR> LSLA,R<BR> CM,CM_HFX,LINE<BR> <BR> CMSEL,S,CM_HFX<BR> LSEL,R,LOC,X,X_VCEN-1E-7,X_VCEN-R_HJ+1E-7 <BR> LESIZE,ALL,,,2,,1 <BR> CMSEL,S,CM_HFX<BR> LSEL,R,LOC,X,X_VCEN+1E-7,X_VCEN+R_HJ-1E-7 <BR> LESIZE,ALL,,,2,,1 </P>
<P> CMSEL,S,CM_HFX<BR> LSEL,R,LOC,X,X_VCEN-1E-7,X_VCEN+1E-7 <BR> LSEL,U,LOC,Z,Z_VCEN<BR> LSEL,U,LOC,Y,CEN_YSD(2,1)-H_CTOB <BR> LESIZE,ALL,2 <BR> <BR> CMSEL,S,CM_HFX<BR> LSEL,R,LOC,Z,Z_VCEN <BR> LESIZE,ALL,,,LT_HFZ(I,1),,1</P>
<P> CMSEL,S,CM_HFX<BR> LSEL,U,LOC,X,X_VCEN<BR> LSEL,U,LOC,X,X_VCEN-1E-7,X_VCEN-R_HJ+1E-7<BR> LSEL,U,LOC,X,X_VCEN+1E-7,X_VCEN+R_HJ-1E-7<BR> LSEL,U,LOC,Z,Z_VCEN<BR> LESIZE,ALL,,,1,,1 <BR> <BR> ALLS<BR> CMSEL,S,CM_VMESH<BR> MSHAPE,0,3D<BR> VSWEEP,ALL<BR> ALLS<BR> </P>
<P> CMSEL,S,CM_YMG<BR> ESIZE,2 <BR> VSEL,R,LOC,Z,Z_VCEN-1E-7,Z_VCEN+1E-7<BR> VSWEEP,ALL<BR> ALLS<BR>*ENDDO</P>
<P>ALLS<BR>VSEL,U,MAT,,MAT_SD<BR>VSEL,U,MAT,,MAT_MGKW<BR>VSEL,R,LOC,X,DBKZDX(LTS_ZD+1,1),DBKZDX(9-LTS_YD,1)<BR>CM,CM_VMESH,VOLU</P>
<P>!*<BR>VSEL,S,,,CM_VMESH<BR>VSEL,R,LOC,X,DBKZDX(LTS_ZD+1,1),DBKZDX(LTS_ZD+2,1) <BR>ASLV,S<BR>LSLA,S<BR>LSEL,R,LOC,X,(DBKZDX(LTS_ZD+1,1)+DBKZDX(LTS_ZD+2,1))/2<BR>LESIZE,ALL,,,5 <BR>!*<BR>VSEL,S,,,CM_VMESH<BR>VSEL,R,LOC,X,DBKZDX(LTS_ZD+2,1),DBKZDX(LTS_ZD+3,1) <BR>ASLV,S<BR>LSLA,S<BR>LSEL,R,LOC,X,(DBKZDX(LTS_ZD+2,1)+DBKZDX(LTS_ZD+3,1))/2<BR>LESIZE,ALL,,,3 <BR>ALLS<BR>!*<BR>VSEL,S,,,CM_VMESH<BR>VSEL,R,LOC,X,DBKZDX(LTS_ZD+3,1),DBKZDX(LTS_ZD+4,1) <BR>ASLV,S<BR>LSLA,S<BR>LSEL,R,LOC,X,(DBKZDX(LTS_ZD+3,1)+DBKZDX(LTS_ZD+4,1))/2<BR>LESIZE,ALL,,,3 <BR>!*<BR>VSEL,S,,,CM_VMESH<BR>VSEL,R,LOC,X,DBKZDX(LTS_ZD+4,1),DBKZDX(LTS_ZD+5,1) <BR>ASLV,S<BR>LSLA,S<BR>LSEL,R,LOC,X,(DBKZDX(LTS_ZD+4,1)+DBKZDX(LTS_ZD+5,1))/2<BR>LESIZE,ALL,,,5 <BR>ALLS<BR>!*<BR>ALLS<BR>*DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1<BR> !CMSEL,S,CM_VMESH<BR> VSEL,S,,,CM_VMESH<BR> VSEL,R,LOC,Z,DBKZDZ(I,1),DBKZDZ(I+1,1)<BR> VSEL,R,LOC,X,DBKZDX(LTS_ZD+1,1),DBKZDX(LTS_ZD+3,1)<BR> CM,CM_NEXTV,VOLU</P>
<P> CMSEL,S,CM_NEXTV<BR> ESIZE,4<BR> VSWEEP,ALL<BR> ALLS<BR>*ENDDO</P>
<P>ALLS<BR>LSEL,S,LOC,X,Y_RDCC(1,2)-Y_RDCC(1,1)/2-1E-7,Y_RDCC(1,2)+Y_RDCC(1,1)/2+1E-7<BR>LSEL,R,LOC,Y,Y_RDCC(2,2)-Y_RDCC(2,1)/2-1E-7,Y_RDCC(2,2)+Y_RDCC(2,1)/2+1E-7<BR>LSEL,R,LOC,Z,Y_RDCC(3,2)-Y_RDCC(3,1)/2-1E-7,Y_RDCC(3,2)+Y_RDCC(3,1)/2+1E-7<BR>LESIZE,ALL,1 <BR>ALLS</P>
<P><BR>*DO,I,1,(Y_YJMAX-Y_YJMIN)/PJ_MG+3-1<BR> VSEL,S,,,CM_VMESH<BR> VSEL,R,LOC,Z,DBKZDZ(I,1),DBKZDZ(I+1,1)<BR> CM,CM_NEXTV,VOLU</P>
<P> CMSEL,S,CM_NEXTV<BR> VSEL,R,LOC,X,DBKZDX(LTS_ZD+3,1),DBKZDX(LTS_ZD+3+2,1)<BR> ESIZE,4<BR> VSWEEP,ALL<BR> ALLS<BR>*ENDDO<BR>ALLS</P>
<P>VSEL,S,,,CM_ZSDKW <BR>ASLV,R<BR>VSEL,S,,,CM_ZMG<BR>ASLV,R<BR>CM,CM_ZGXW,AREA<BR>TYPE,2<BR>MAT,MAT_GXW<BR>AMESH,ALL<BR>ALLS</P>
<P>VSEL,S,,,CM_YSDKW <BR>ASLV,R<BR>VSEL,S,,,CM_YMG<BR>ASLV,R<BR>CM,CM_YGXW,AREA<BR>TYPE,2<BR>MAT,MAT_GXW<BR>AMESH,ALL<BR>ALLS</P>
<P>NUMCMP,ALL<BR>ALLS<BR>MPCHG,MAT_TXYS,ALL <BR>ALLS</P>
<P>SAVE,TNLMESH,DB <BR></P> |