%
O7104(SUPERELLIPSE)
(SE OGSAA O7105) 
(T20= ENDEFRAESER) 
#15=10.(FRAESERS RADIUS) 
#16=35000(SKALERING) 
#1=1.(X STARTVAERDI) 
#5=1.(A) 
#6=0.819(B)
#10=[#6/#5]
#8=[#10*#10*#10*#10*#10] 
#4=[#15/[#16/1000]]
G80G40G49G21 
G91G28Z0T20M6
G54G90S1800.M3 
G00G43X0Y0Z10.H20M8
G01Z0F100(FRAESEDYBDE) 
G51P[#16]
G01X[#1-#4]
P7105M98 
G68X0Y0R180.(ROTATION) 
G01X[#1-#4]
P7105M98 
G51.1X0(SPEJLING I X AKSEN)
G01X[#1-#4]
P7105M98 
G69(ROTATION CANCEL) 
G01X[#1-#4]
P7105M98 
G50.1(SPEJLING CANCEL) 
G50(SKALERING CANCEL)
G90G00Z10.M9 
G91G28X0Y0Z0 
M30

O7105#3=0.001(F0RSTE STEP) 
#14=0.005(STEP FOR0GELSE)
N10#1=#1-#3
IF[#1LE0]GOTO200 
#7=1-[SQRT[#1]*[#1*#1]]/[SQRT[#5]*[#5*#5]] 
#2=EXP[LN[#6]+0.4*LN[#7]]
#9=[#1/#2] 
#11=#1-[#4*SQRT[#9]*[#9]*SQRT[#8]]/[SQRT[1+#9*#9*#9*#8]] 
#12=#2-#4/[SQRT[1+#9*#9*#9*#8]]
G01X[#11]Y[#12]
#3=[#3+#14]
GOTO10 
N200G01X0
G01X0Y0
#1=1.
M99
%