elbow.tg

Triangular mesh processing tool, currently very few people use this software, but it allows us to gr

title elbow
para den 2 ;
para xcf [ -4.88 + 5.38/sqrt(2) ] ;
para zcf [ 4.38/sqrt(2) ] ;
sd srf1 1 plane [%xcf] 0 [%zcf] [1/sqrt(2)] 1 [1/sqrt(2)]                       
sd srf2 2 plane [%xcf] 0 [%zcf] [1/sqrt(2)] -1 [1/sqrt(2)]                      
sd srf3 3 ts -4.88 0 0 0 1 0 4.88 0 1.19
sd srf4 5 plane 0 0 -0.5   0 0 1
sd srf5 6 plane 0 0 0      0 0 1
sd srf6 7 cy 0 0 0 0 0 1 1.19
sd srf7 8 cy [%xcf] 0 [%zcf] -1 0 1 1.19
para i2 [  1 + 2*%den]
     i3 [%i2 + 2*%den]
     i4 [%i3 + 2*%den]
     i5 [%i4 + 4*%den]
     j2 [  1 + 2*%den]
     j3 [%j2 + 2*%den]
     j4 [%j3 + 2*%den]
     j5 [%j4 + 4*%den]
     k2 [  1 + 2*%den] ;
block
     1   %i2   %i3 %i4 %i5;     1   %j2   %j3 %j4 %j5; 1  %k2 ;
-1.875 -1.45 -1.17 -.7  0. -1.875 -1.45 -1.17 -.7  0.  -0.5 0.
dei 4 5; 4 5; ;
dei 2 3; 2 3; ;
sfi -2 -3; -2 -3; ; cy -1.31 -1.31 0 0 0 1 .19
sfi -4 5; -4 5;   ; sd 7
sfi -1 2; -1 2;   ; cy -1.31 -1.31 0 0 0 1 .56
sfi ;; -1 ; sd 5
sfi ;; -2 ; sd 6
mb 2 5 1 3 5 2 x -.26 
mb 2 4 1 3 4 2 x -.18
mb 5 2 1 5 3 2 y -.26
mb 4 2 1 4 3 2 y -.18
res 1 3 1 1 5 2 j 1      
res 3 1 1 5 1 2 i 1      
res 5 1 1 5 4 2 j 1      
res 1 5 1 4 5 2 i 1
relaxi ;; -1 ; 15 .001 1
relaxi ;; -2 ; 15 .001 1
lct 3 ryz; rzx; ryz rzx;
lrep 0 1 2 3;
mate 1
endpart
para i2 [  1 + 2*%den]
     i3 [%i2 + 8*%den]
     i4 [%i3 + 2*%den]
     j2 [  1 + 2*%den]
     j3 [%j2 + 8*%den]
     j4 [%j3 + 2*%den]
     k2 [  1 + 2*%den]
     k3 [%k2 +12*%den]
     k4 [%k3 + 2*%den] ;
block
  1 %i2 %i3 %i4 ; 1 %j2 %j3 %j4 ; 1 %k2 %k3 %k4 ;
 -1 -1  1  1  -1 -1  1  1   -0.5 0  2.5 3.0
dei 2 3; 2 3; ;
dei 1 2 0 3 4; 1 2 0 3 4; ;
sfi -1 -4 ; -1 -4 ; 2 3 ; sd 3  c torus for main part of pipe (outside)
sfi -1 -4 ; -1 -4 ; 1 2 ; sd 7  c cylinder for pipe in base (outside)
sfi -1 -4 ; -1 -4 ; 3 4 ; sd 8  c cylinder for pipe in flange (outside)
sfi -2 -3; -2 -3; ; ts -4.88 0 0 0 1 0 4.88 0  .81  c inside
sfi ; ; -3 ; plane  -4.88 0 0 -1 0 1
sfi ; ; -4 ; plane [-4.88-sqrt(2)/2] 0 0 -1 0 1
sfi ; ; -1 ; sd 5
sfi ; ; -2 ; sd 6
pb 1 3 3 1 3 3 xyz -2.0 .83 2.85
pb 2 4 3 2 4 3 xyz -2.0 .83 2.85
sfi -2 ; -1 0 -2 ; -3 0 -4 ; sd 2
sfi -1 ; -2 ; -3 0 -4 ; sd 2
sfi -2 ; -3 0 -4 ; -3 0 -4 ; sd 1
sfi -1 ; -3 ; -3 0 -4 ; sd 1
sfi -3 ; -1 0 -2 ; -3 0 -4 ; sd 1
sfi -4 ; -2 ; -3 0 -4 ; sd 1
sfi -3 ; -3 0 -4 ; -3 0 -4 ; sd 2
sfi -4 ; -3 ; -3 0 -4 ; sd 2
mate 2
endpart
gct 1 ry -45 mx [%xcf] mz [%zcf]; 
lev 1 grep 1;;
pslv 1
para i2 [  1 + 2*%den]
     i3 [%i2 + 1*%den]
     i4 [%i3 + 1*%den]
     j2 [  1 + 1*%den]
     j3 [%j2 + 6*%den]
     j4 [%j3 + 1*%den]
     k2 [  1 + 3*%den] ;
cylinder
  1  %i2 %i3  %i4 ;  1 %j2 %j3 %j4 ; 1 %k2 ;
  1.19 1.5 1.69 1.94 0. 6. 84. 90.  0.5 1.0
dei 2 4 ; 1 2 0 3 4 ; ;
sfi  -2 3 ; 1 -2 ; ; cy 1.69 0 0 0 0 1 .19
sfi  -2 3 ; -3 4 ; ; cy 0 1.69 0 0 0 1 .19
sfi 3 4 ; -2 ; ;  plane 0 .19 0 0 1 0
sfi 3 4 ; -3 ; ;  plane .19 0 0 1 0 0
res 1 1 1 1 4 1 j 1.0
res 1 1 2 1 4 2 j 1.0
relaxi ; ;-1 0 -2;25 0.001 1
lct 3 rz 90; rz 180; rz 270;
lrep  0 1 2 3;
mate 3
interrupt
endpart
pplv
merge
stp .01
rx 25 zf 2 tvv