!Punkte werden erstellt 
/prep7  
*DIM,x,ARRAY,240
*SET,x( 1),-13.251225   
*SET,x( 2),-13.132463   
*SET,x( 3),-13.013417   
*SET,x( 4),-12.894650   
*SET,x( 5),-12.776495   
*SET,x( 6),-12.659187   
*SET,x( 7),-12.542897   
*SET,x( 8),-12.427759   
*SET,x( 9),-12.313875   
*SET,x(10),-12.201332   
*SET,x(11),-12.090217   
*SET,x(12),-11.980612   
*SET,x(13),-11.872600   
*SET,x(14),-11.766264   
*SET,x(15),-11.661692   
*SET,x(16),-11.558978   
*SET,x(17),-11.458237   
*SET,x(18),-11.359620   
*SET,x(19),-11.263351   
*SET,x(20),-11.169805   
*SET,x(21),-11.079267   
*SET,x(22),-10.991665   
*SET,x(23),-10.906841   
*SET,x(24),-10.824615   
*SET,x(25),-10.744808   
*SET,x(26),-10.667312   
*SET,x(27),-10.592109   
*SET,x(28),-10.519132   
*SET,x(29),-10.448287   
*SET,x(30),-10.379228   
*SET,x(31),-10.311394   
*SET,x(32),-10.244341   
*SET,x(33),-10.177719   
*SET,x(34),-10.111240   
*SET,x(35),-10.044665   
*SET,x(36),-9.977800
*SET,x(37),-9.910510
*SET,x(38),-9.842689
*SET,x(39),-9.774251
*SET,x(40),-9.705123
*SET,x(41),-9.635241
*SET,x(42),-9.564553
*SET,x(43),-9.493012
*SET,x(44),-9.420579
*SET,x(45),-9.347187
*SET,x(46),-9.272593
*SET,x(47),-9.196618
*SET,x(48),-9.119167
*SET,x(49),-9.040178
*SET,x(50),-8.959610
*SET,x(51),-8.877431
*SET,x(52),-8.793622
*SET,x(53),-8.708167
*SET,x(54),-8.621055
*SET,x(55),-8.532281
*SET,x(56),-8.441840
*SET,x(57),-8.349733
*SET,x(58),-8.255962
*SET,x(59),-8.160531
*SET,x(60),-8.063446
*SET,x(61),-7.964716
*SET,x(62),-7.864349
*SET,x(63),-7.762356
*SET,x(64),-7.658751
*SET,x(65),-7.553547
*SET,x(66),-7.446759
*SET,x(67),-7.338403
*SET,x(68),-7.228497
*SET,x(69),-7.117058
*SET,x(70),-7.004107
*SET,x(71),-6.889663
*SET,x(72),-6.773749
*SET,x(73),-6.656385
*SET,x(74),-6.537595
*SET,x(75),-6.417402
*SET,x(76),-6.295832
*SET,x(77),-6.172909
*SET,x(78),-6.048659
*SET,x(79),-5.923107
*SET,x(80),-5.796276
*SET,x(81),-5.668191
*SET,x(82),-5.538878
*SET,x(83),-5.408361
*SET,x(84),-5.276667
*SET,x(85),-5.143822
*SET,x(86),-5.009855
*SET,x(87),-4.874791
*SET,x(88),-4.738660
*SET,x(89),-4.601489
*SET,x(90),-4.463308
*SET,x(91),-4.324144
*SET,x(92),-4.184029
*SET,x(93),-4.042992
*SET,x(94),-3.901062
*SET,x(95),-3.758270
*SET,x(96),-3.614647
*SET,x(97),-3.470223
*SET,x(98),-3.325029
*SET,x(99),-3.179097
*SET,x(100),-3.032457   
*SET,x(101),-2.885142   
*SET,x(102),-2.737182   
*SET,x(103),-2.588610   
*SET,x(104),-2.439456   
*SET,x(105),-2.289754   
*SET,x(106),-2.139535   
*SET,x(107),-1.988830   
*SET,x(108),-1.837673   
*SET,x(109),-1.686093   
*SET,x(110),-1.534125   
*SET,x(111),-1.381799   
*SET,x(112),-1.229147   
*SET,x(113),-1.076201   
*SET,x(114),-0.922993   
*SET,x(115),-0.769554   
*SET,x(116),-0.615916   
*SET,x(117),-0.462111   
*SET,x(118),-0.308169   
*SET,x(119),-0.154121   
*SET,x(120),0.000000
*SET,x(121),0.154142
*SET,x(122),0.308227
*SET,x(123),0.462223
*SET,x(124),0.616100
*SET,x(125),0.769829
*SET,x(126),0.923379
*SET,x(127),1.076722
*SET,x(128),1.229829
*SET,x(129),1.382672
*SET,x(130),1.535222
*SET,x(131),1.687452
*SET,x(132),1.839335
*SET,x(133),1.990842
*SET,x(134),2.141949
*SET,x(135),2.292628
*SET,x(136),2.442855
*SET,x(137),2.592602
*SET,x(138),2.741846
*SET,x(139),2.890563
*SET,x(140),3.038727
*SET,x(141),3.186315
*SET,x(142),3.333304
*SET,x(143),3.479671
*SET,x(144),3.625394
*SET,x(145),3.770450
*SET,x(146),3.914819
*SET,x(147),4.058479
*SET,x(148),4.201410
*SET,x(149),4.343591
*SET,x(150),4.485003
*SET,x(151),4.625627
*SET,x(152),4.765443
*SET,x(153),4.904433
*SET,x(154),5.042580
*SET,x(155),5.179866
*SET,x(156),5.316274
*SET,x(157),5.451787
*SET,x(158),5.586389
*SET,x(159),5.720065
*SET,x(160),5.852799
*SET,x(161),5.984576
*SET,x(162),6.115382
*SET,x(163),6.245201
*SET,x(164),6.374016
*SET,x(165),6.501810
*SET,x(166),6.628566
*SET,x(167),6.754268
*SET,x(168),6.878899
*SET,x(169),7.002444
*SET,x(170),7.124888
*SET,x(171),7.246216
*SET,x(172),7.366415
*SET,x(173),7.485470
*SET,x(174),7.603369
*SET,x(175),7.720098
*SET,x(176),7.835645
*SET,x(177),7.949999
*SET,x(178),8.063147
*SET,x(179),8.175080
*SET,x(180),8.285787
*SET,x(181),8.395260
*SET,x(182),8.503488
*SET,x(183),8.610464
*SET,x(184),8.716181
*SET,x(185),8.820633
*SET,x(186),8.923814
*SET,x(187),9.025721
*SET,x(188),9.126352
*SET,x(189),9.225705
*SET,x(190),9.323783
*SET,x(191),9.420591
*SET,x(192),9.516137
*SET,x(193),9.610437
*SET,x(194),9.703514
*SET,x(195),9.795405
*SET,x(196),9.886174
*SET,x(197),9.975869
*SET,x(198),10.064507   
*SET,x(199),10.152109   
*SET,x(200),10.238703   
*SET,x(201),10.324330   
*SET,x(202),10.409046   
*SET,x(203),10.492934   
*SET,x(204),10.576123   
*SET,x(205),10.658851   
*SET,x(206),10.741674   
*SET,x(207),10.825142   
*SET,x(208),10.909399   
*SET,x(209),10.994575   
*SET,x(210),11.080806   
*SET,x(211),11.168173   
*SET,x(212),11.256622   
*SET,x(213),11.346058   
*SET,x(214),11.436337   
*SET,x(215),11.527381   
*SET,x(216),11.619279   
*SET,x(217),11.712146   
*SET,x(218),11.806115   
*SET,x(219),11.901339   
*SET,x(220),11.997927   
*SET,x(221),12.095579   
*SET,x(222),12.194009   
*SET,x(223),12.293072   
*SET,x(224),12.392695   
*SET,x(225),12.492837   
*SET,x(226),12.593481   
*SET,x(227),12.694623   
*SET,x(228),12.796267   
*SET,x(229),12.898423   
*SET,x(230),13.001105   
*SET,x(231),13.104327   
*SET,x(232),13.208104   
*SET,x(233),13.312423   
*SET,x(234),13.417241   
*SET,x(235),13.522469   
*SET,x(236),13.627951   
*SET,x(237),13.733411   
*SET,x(238),13.838294   
*SET,x(239),13.940817   
*SET,x(240),14.038001   
*DIM,y,ARRAY,240
*SET,y( 1),9.210425 
*SET,y( 2),9.433287 
*SET,y( 3),9.659093 
*SET,y( 4),9.886977 
*SET,y( 5),10.116435
*SET,y( 6),10.347108
*SET,y( 7),10.578715
*SET,y( 8),10.811019
*SET,y( 9),11.043820
*SET,y(10),11.276916
*SET,y(11),11.510083
*SET,y(12),11.743071
*SET,y(13),11.975600
*SET,y(14),12.207353
*SET,y(15),12.437968
*SET,y(16),12.667022
*SET,y(17),12.894004
*SET,y(18),13.118269
*SET,y(19),13.338940
*SET,y(20),13.554714
*SET,y(21),13.764407
*SET,y(22),13.967637
*SET,y(23),14.164261
*SET,y(24),14.354228
*SET,y(25),14.537538
*SET,y(26),14.714078
*SET,y(27),14.883567
*SET,y(28),15.045884
*SET,y(29),15.201018
*SET,y(30),15.349564
*SET,y(31),15.492625
*SET,y(32),15.631070
*SET,y(33),15.765584
*SET,y(34),15.896716
*SET,y(35),16.024917
*SET,y(36),16.150549
*SET,y(37),16.273850
*SET,y(38),16.395002
*SET,y(39),16.514148
*SET,y(40),16.631408
*SET,y(41),16.746877
*SET,y(42),16.860635
*SET,y(43),16.972748
*SET,y(44),17.083268
*SET,y(45),17.192290
*SET,y(46),17.300158
*SET,y(47),17.407113
*SET,y(48),17.513269
*SET,y(49),17.618685
*SET,y(50),17.723391
*SET,y(51),17.827402
*SET,y(52),17.930718
*SET,y(53),18.033332
*SET,y(54),18.135232
*SET,y(55),18.236399
*SET,y(56),18.336814
*SET,y(57),18.436453
*SET,y(58),18.535289
*SET,y(59),18.633297
*SET,y(60),18.730446
*SET,y(61),18.826709
*SET,y(62),18.922054
*SET,y(63),19.016451
*SET,y(64),19.109868
*SET,y(65),19.202275
*SET,y(66),19.293638
*SET,y(67),19.383928
*SET,y(68),19.473111
*SET,y(69),19.561156
*SET,y(70),19.648032
*SET,y(71),19.733708
*SET,y(72),19.818153
*SET,y(73),19.901335
*SET,y(74),19.983225
*SET,y(75),20.063794
*SET,y(76),20.143011
*SET,y(77),20.220847
*SET,y(78),20.297275
*SET,y(79),20.372268
*SET,y(80),20.445801
*SET,y(81),20.517848
*SET,y(82),20.588385
*SET,y(83),20.657388
*SET,y(84),20.724834
*SET,y(85),20.790700
*SET,y(86),20.854965
*SET,y(87),20.917605
*SET,y(88),20.978601
*SET,y(89),21.037931
*SET,y(90),21.095576
*SET,y(91),21.151516
*SET,y(92),21.205734
*SET,y(93),21.258210
*SET,y(94),21.308928
*SET,y(95),21.357870
*SET,y(96),21.405022
*SET,y(97),21.450366
*SET,y(98),21.493890
*SET,y(99),21.535577
*SET,y(100),21.575415   
*SET,y(101),21.613391   
*SET,y(102),21.649493   
*SET,y(103),21.683709   
*SET,y(104),21.716029   
*SET,y(105),21.746441   
*SET,y(106),21.774937   
*SET,y(107),21.801507   
*SET,y(108),21.826142   
*SET,y(109),21.848837   
*SET,y(110),21.869582   
*SET,y(111),21.888371   
*SET,y(112),21.905199   
*SET,y(113),21.920061   
*SET,y(114),21.932951   
*SET,y(115),21.943865   
*SET,y(116),21.952800   
*SET,y(117),21.959753   
*SET,y(118),21.964721   
*SET,y(119),21.967703   
*SET,y(120),21.968697   
*SET,y(121),21.967703   
*SET,y(122),21.964721   
*SET,y(123),21.959751   
*SET,y(124),21.952796   
*SET,y(125),21.943856   
*SET,y(126),21.932935   
*SET,y(127),21.920035   
*SET,y(128),21.905160   
*SET,y(129),21.888313   
*SET,y(130),21.869498   
*SET,y(131),21.848720   
*SET,y(132),21.825984   
*SET,y(133),21.801295   
*SET,y(134),21.774658   
*SET,y(135),21.746081   
*SET,y(136),21.715569   
*SET,y(137),21.683128   
*SET,y(138),21.648767   
*SET,y(139),21.612491   
*SET,y(140),21.574309   
*SET,y(141),21.534229   
*SET,y(142),21.492257   
*SET,y(143),21.448404   
*SET,y(144),21.402676   
*SET,y(145),21.355084   
*SET,y(146),21.305634   
*SET,y(147),21.254338   
*SET,y(148),21.201202   
*SET,y(149),21.146238   
*SET,y(150),21.089453   
*SET,y(151),21.030858   
*SET,y(152),20.970462   
*SET,y(153),20.908274   
*SET,y(154),20.844304   
*SET,y(155),20.778562   
*SET,y(156),20.711057   
*SET,y(157),20.641799   
*SET,y(158),20.570796   
*SET,y(159),20.498060   
*SET,y(160),20.423599   
*SET,y(161),20.347422   
*SET,y(162),20.269540   
*SET,y(163),20.189961   
*SET,y(164),20.108698   
*SET,y(165),20.025761   
*SET,y(166),19.941163   
*SET,y(167),19.854916   
*SET,y(168),19.767029   
*SET,y(169),19.677515   
*SET,y(170),19.586385   
*SET,y(171),19.493650   
*SET,y(172),19.399321   
*SET,y(173),19.303409   
*SET,y(174),19.205923   
*SET,y(175),19.106875   
*SET,y(176),19.006274   
*SET,y(177),18.904130   
*SET,y(178),18.800452   
*SET,y(179),18.695249   
*SET,y(180),18.588530   
*SET,y(181),18.480301   
*SET,y(182),18.370571   
*SET,y(183),18.259346   
*SET,y(184),18.146631   
*SET,y(185),18.032430   
*SET,y(186),17.916748   
*SET,y(187),17.799585   
*SET,y(188),17.680941   
*SET,y(189),17.560813   
*SET,y(190),17.439196   
*SET,y(191),17.316079   
*SET,y(192),17.191447   
*SET,y(193),17.065274   
*SET,y(194),16.937525   
*SET,y(195),16.808140   
*SET,y(196),16.677026   
*SET,y(197),16.544102   
*SET,y(198),16.409335   
*SET,y(199),16.272685   
*SET,y(200),16.134098   
*SET,y(201),15.993504   
*SET,y(202),15.850800   
*SET,y(203),15.705841   
*SET,y(204),15.558395   
*SET,y(205),15.408034   
*SET,y(206),15.253739   
*SET,y(207),15.094498   
*SET,y(208),14.930059   
*SET,y(209),14.760220   
*SET,y(210),14.584790   
*SET,y(211),14.403714   
*SET,y(212),14.217252   
*SET,y(213),14.025773   
*SET,y(214),13.829778   
*SET,y(215),13.629634   
*SET,y(216),13.425365   
*SET,y(217),13.216962   
*SET,y(218),13.004404   
*SET,y(219),12.787651   
*SET,y(220),12.566795   
*SET,y(221),12.342855   
*SET,y(222),12.116768   
*SET,y(223),11.889103   
*SET,y(224),11.660251   
*SET,y(225),11.430499   
*SET,y(226),11.200069   
*SET,y(227),10.969140   
*SET,y(228),10.737858   
*SET,y(229),10.506349   
*SET,y(230),10.274722   
*SET,y(231),10.043073   
*SET,y(232),9.811493
*SET,y(233),9.580119
*SET,y(234),9.349144
*SET,y(235),9.118837
*SET,y(236),8.889580
*SET,y(237),8.661968
*SET,y(238),8.437119
*SET,y(239),8.218602
*SET,y(240),8.012111
*DO,I,1,240,1   
K,I,x(I),y(I),0 
*ENDDO  
!Linien werden durch jeweils 2 Punkte   
! erstellt  
*DO,E,1,239 
L,E,E+1 
*ENDDO  
!Kreis  
k,250,0,0,0 
circle,250,16.1 
kl,241,0.61865,251  
kl,240,0.32135,252  
L,251,1 
L,252,240   
LSBL, 240, 245,, delete, KEEP   
LSBL, 241, 244,, delete, KEEP   
!Un-/Select Lines   
lsel,U,,,240
lsel,U,,,247
!Fläche erstellen  
al,all  
lSEL,all
!Hohlkreis  
CYL4,0,0,12.25  
!Fläche abziehen   
ASBA,1,2
vext,3,,,,,0.5  
vext,1,,,,,0.5  
vext,252,,,,,0.5
vext,502,,,,,0.5
vext,752,,,,,0.5
vext,1002,,,,,0.5   
vext,1252,,,,,0.5   
vext,1502,,,,,0.5   
vadd,all