PC使って便利なことをメモ
l = 2 ;
Point(1) = {0, 0, 0, l};
Point(2) = {1, 0, 0, l} ;
Point(3) = {0, 1, 0, l} ;
Point(4) = {2, 0, 0, l} ;
Point(5) = {0, 2, 0, l} ;
Circle(1001)={2,1,3};
Circle(1002)={5,1,4};
Line(1003)={4,2};
Line(1004)={3,5};
Line Loop(1101)={1001,1004,1002,1003};
Plane Surface(2001)={1101};
Transfinite Line{1001,1002}=11;
Transfinite Line{1003,1004}=3;
Transfinite Surface{2001}={2,3,5,4};
Recombine Surface {2001};
MySurface = 100;
Physical Surface(MySurface) = {3001} ;
PR
Comment
コメントの修正にはpasswordが必要です。任意の英数字を入力して下さい。