Les programmes de papydall

Sujet: Re: Les programmes de papydall Jeu 19 Nov 2020 - 16:57

Merci Jean pour le beau travail que tu fais!
Voici une autre adaptation

Code:: rem ===============================================================================
rem Croco_Noise.bas
rem Papydall le 18 / 11 / 2020
rem Adaptation de fb-noise.bas utilisant fb_noise.bi
rem rem ===========================================================================

dim perm(511) : ' Tableau de 512 permutations
   ' (les permutations 256 à 511 sont identiques à celles de 0 à 255
dim grad2(11,1) : ' Tableau des gradients
dim w,h : ' Dimensions de la fenêtre d'affichage

w = 512 : h = 512

mode 3,"Croco_Noise",w,h

Init_Permutations : ' Initialiser le tableau des permutations
Init_Gradient : ' Initialiser le tableau des gradients
Generate_Texture : ' Demo

repeat : until len(inkey()) : ' Attente d'une touche

end : ' Fin du boulot

rem ================================================================================

SUB Generate_Texture()

   dim x,y,c%, n
   for y = 0 to h - 1
   for x = 0 to w - 1
   ' ------------------------ Basic patterns --------------------------------------
   ' Essayer une à une les lignes n = ...

   n = blobbyPattern( x, y, w, 20.0f, 20.0f,0,0 )
   ' n = circularSinePattern(x, y, w, 10.0f, w * 0.5f, w * 0.5f,0 )
   ' n = sinePattern(x, y, w * 0.5f, 10.0f, 10.0f )
   ' n = remap_overload(sinePattern(x, y, w * 0.5f, 10.0f, 10.0f ))
   ' n = checkerPattern( x, y, 16.0f, 16.0f )

   ' ----------------------- Basic noise functions ------------------------------

   ' n = worley(cint(x), cint(y), cint(w), 32,0 )
   ' n = remap_overload( turbulence( x, y, 32 ) )
   ' n = remap_overload( simplex( x / w * 6.5f, y / w * 6.5f ) )

   ' ----------------------- Try composing some! --------------------------------

   ' n = remap_overload(sinePattern(x, y, w * 0.5f, 10.0f, 10.0f ) + turbulence( x, y, 16 ) * 2.0f )
   ' n = circularSinePattern(x, y, w, 20.0f, w * 0.5f, w * 0.5f, turbulence( x, y, 8 ) * 0.03f )
   ' n = blobbyPattern(x, y, w, 20.0f, 20.0f,turbulence( x, y, 16.0f ) * 0.05f,turbulence( y, x, 16.0f ) * 0.05f )
   ' n = worley(cint(x + turbulence( x, y, 16.0 ) * 15.0f), cint(y + turbulence( y, x, 16.0 ) * 5.0f), cint(w),15, w * 0.2f )

   ' ------------------------- Remap the values to grayscale ---------------------
   c = n * 255
   plot x,h-y , rgba( c, c, c, 255 )
   next
   next
END_SUB
rem ============================================================================
SUB Init_Permutations()
   dim i%
   for i = 0 to 255
   read perm(i) : perm(i+256) = perm(i)
   next i
END_SUB
rem ============================================================================
SUB Init_Gradient()
   grad2(00,0) = 1 : grad2(00,1) = 1
   grad2(01,0) = -1 : grad2(01,1) = 1
   grad2(02,0) = 1 : grad2(02,1) = -1
   grad2(03,0) = -1 : grad2(03,1) = -1

   grad2(04,0) = 1 : grad2(04,1) = 0
   grad2(05,0) = -1 : grad2(05,1) = 0
   grad2(06,0) = 1 : grad2(06,1) = 0
   grad2(07,0) = -1 : grad2(07,1) = 0

   grad2(08,0) = 0 : grad2(08,1) = 1
   grad2(09,0) = 0 : grad2(09,1) = -1
   grad2(10,0) = 0 : grad2(10,1) = 1
   grad2(11,0) = 0 : grad2(11,1) = -1

END_SUB
rem ============================================================================
' ------------------------------------------------------------------------------
' Les 256 premières permutations
data 151,160,137, 91, 90, 15,131, 13,201, 95, 96, 53,194,233, 7,225
data 140, 36,103, 30, 69,142, 8, 99, 37,240, 21, 10, 23,190, 6,148
data 247,120,234, 75, 0, 26,197, 62, 94,252,219,203,117, 35, 11, 32
data 57,177, 33, 88,237,149, 56, 87,174, 20,125,136,171,168, 68,175
data 74,165, 71,134,139, 48, 27,166, 77,146,158,231, 83,111,229,122
data 60,211,133,230,220,105, 92, 41, 55, 46,245, 40,244,102,143, 54
data 65, 25, 63,161, 1,216, 80, 73,209, 76,132,187,208, 89, 18,169
data 200,196,135,130,116,188,159, 86,164,100,109,198,173,186, 3, 64
data 52,217,226,250,124,123, 5,202, 38,147,118,126,255, 82, 85,212
data 207,206, 59,227, 47, 16, 58, 17,182,189, 28, 42,223,183,170,213
data 119,248,152, 2, 44,154,163, 70,221,153,101,155,167, 43,172, 9
data 129, 22, 39,253, 19, 98,108,110, 79,113,224,232,178,185,112,104
data 218,246, 97,228,251, 34,242,193,238,210,144, 12,191,179,162,241
data 81, 51,145,235,249, 14,239,107, 49,192,214, 31,181,199,106,157
data 184, 84,204,176,115,121, 50, 45,127, 4,150,254,138,236,205, 93
data 222,114, 67, 29, 24, 72,243,141,128,195, 78, 66,215, 61,156,180
' ------------------------------------------------------------------------------
rem ============================================================================
' -1 .. 1
FUNCTION noise1(x%)
   x = ( x shl 13 ) xor x
   return ( ( 1.0f - ( ( x * ( x * x * 15731 + 789221) + _
   1376312589) and &h7fffffff) / 1073741824.0f ) )
END_FUNCTION
rem ============================================================================
' 0 .. 1 range
function noise1n(x% )
   return ( ( noise1( x ) * 0.5f ) + 0.5f )
end_function
rem ============================================================================
' -1 .. 1 range
function noise2(x%, y%)
   dim n%
   n = x + y * 57
   n = ( n shl 13 ) xor n
   return ( ( 1.0f - ( ( n * ( n * n * 15731 + 789221 ) + _
   1376312589 ) and &h7fffffff ) / 1073741824.0f ) )
end_function
rem ============================================================================
' 0 .. 1 range
function noise2n(x%,y%)
   return ( ( noise2( x, y ) * 0.5f ) + 0.5f )
end_function
rem ============================================================================
' Floating-point modulus
function fMod(n,d)
   return( n - int( n / d ) * d )
end_function
rem ============================================================================
' Select the minimum of two values
function fMin(a , b)
   if a < b then return a else return b
end_function
rem ============================================================================
' Select the maximum of two values
function fMax(a,b)
   if a > b then return a else return b
end_function
rem ============================================================================
' Clamps a value 'v' between two limits, 'a' and 'b'
function fClamp(v,a,b)
   dim temp
   if v < b then temp = v else temp = b
   if a > v then return a else return temp
end_function
rem ============================================================================
' Wraps a value 'v' between two values, 'a' and 'b'
function fWrap(v,a,b)
   dim range
   range = b - a
   return( fMod( ( fMod( v - a, range ) + range ), range + a ) )
end_function
rem ============================================================================
' Remaps a function in the -1 .. 1 range to the 0 .. 1 range.
function remap_overload(v)
   return ( fClamp( v * 0.5f + 0.5f, 0.0f, 1.0f ) )
end_function
rem ============================================================================
' Remaps a value from one range into another
function remap(x, start1, end1, start2, end2)
   return( ( x - start1 ) * ( end2 - start2 ) / ( end1 - start1 ) + start2 )
end_function
rem ============================================================================
' Bilinear interpolated smoothed noise -1 .. 1 range
function smoothedNoise(x,y)
   dim fractX,fractY
   fractX = x - int( x )
   fractY = y - int( y )

   dim x1%,y1%,x2%,y2%
   x1 = int( x )
   y1 = int( y )
   x2 = int( x - 1.0f )
   y2 = int( y - 1.0f )

   dim a1,a2,a3,a4
   a1 = fractX * fractY * noise2( x1, y1 )
   a2 = fractX * ( 1.0f - fractY ) * noise2( x1, y2 )
   a3 = ( 1.0f - fractX ) * fractY * noise2( x2, y1 )
   a4 = ( 1.0f - fractX ) * ( 1.0f - fractY ) * noise2( x2, y2 )

   return a1 + a2 + a3 + a4

end_function
rem ============================================================================
' Creates a turbulence texture (aka Value Noise). -1 .. 1 range
function turbulence(x,y, size)
   dim value,initialSize
   value = 0.0f
   initialSize = size

   while( size >= 1.0f )
   value = value + smoothedNoise( x / size, y / size ) * size
   size = size / 2.0f
   wend

   value = value / initialSize

   return fClamp( value, -1.0, 1.0 )
end_function
rem ============================================================================
' Worley noise euclidean distance function
function wn_dist_euclidean(x1,y1,x2,y2)
   return sqr( ( x1 - x2 ) ^ 2 + ( y1 - y2 ) ^ 2 )
end_function
rem ============================================================================
' Worley noise Manhattan distance function
function wn_dist_manhattan(x1,y1,x2,y2)
   return abs( x1 - x2 ) + abs( y1 - y2 )
end_function
rem ============================================================================
' Worley noise squared distance function
function wn_dist_squared(x1,y1,x2,y2)
   return fMax( abs( ( x1 - x2 ) ), abs( ( y1 - y2 ) ) )
end_function
rem ============================================================================
' Worley noise result combinator functions
function wn_result_1(F,S,T, correction)
   return ( F ^ 2 ) / ( S * T )
end_function
rem ============================================================================
function wn_result_2(F,S,T,correction)
   return F / correction
end_function
rem ============================================================================
function wn_result_3(F,S,T,correction)
   return S / correction
end_function
rem ============================================================================
function wn_result_4(F,S,T,correction)
   return T / correction
end_function
rem ============================================================================
function wn_result_5(F,S,T,correction)
   return 2.0f * F / ( S + T )
end_function
rem ============================================================================
function wn_result_6(F,S,T,correction)
   return F / S
end_function
rem ===========================================================================
function wn_result_7(F,S,T,correction)
   return ( S - F ) / correction
end_function
rem ===========================================================================
function wn_result_8(F,S,T,correction)
   return ( T - F ) / correction
end_function
rem ===========================================================================
function wn_result_9(F,S,T,correction)
   return ( T - S ) / correction
end_function
rem ============================================================================
' Worley noise (aka 'Cellular noise') 0 .. 1 range
' ?
function worley(x%,y%,size%,cellSize,correction )
   dim firstPoint,secondPoint,thirdPoint,dist,xp,yp
   firstPoint = 2 * cellSize
   secondPoint = 2 * cellSize
   thirdPoint = 2 * cellSize

   dim numCells%,cellX%,cellY%,cell%,cellPoint%
   numCells = int( size% / cellSize ) + 1
   cellX = int( x% / cellSize )
   cellY = int( y% / cellSize )
   cell = numCells * cellY + cellX

   dim i%,j%
   for i% = -1 to 1
   for j% = -1 to 1
   cellPoint = cell + i% + j% * numCells
   xp = ( cellX + i% ) * cellSize + noise1n(cellPoint) * cellSize
   yp = ( cellY + j% ) * cellSize + noise1n(cellPoint + 10) * cellSize
   dist = wn_dist_euclidean(creal(x), creal(y), creal(xp), creal(yp))

   if firstPoint > dist then
   thirdPoint = secondPoint
   secondPoint = firstPoint
   firstPoint = dist
   elseif secondPoint > dist then
   thirdPoint = secondPoint
   secondPoint = dist
   elseif thirdPoint > dist then
   thirdPoint = dist
   end_if
   next j%
   next i%

   return fClamp(wn_result_1(firstPoint, secondPoint, thirdPoint, correction ), -1, 1 )
end_function
rem ============================================================================
' Simplex noise. -1 .. 1 range

function simplex(x,y)

   const SN_F2 = 0.5f * ( sqr( 3.0f ) - 1.0f )
   const SN_G2 = ( 3.0f - sqr( 3.0f ) ) / 6.0f
   const SN_G22 = SN_G2 + SN_G2

   dim s : s = ( x + y ) * SN_F2
   dim i%,j%
   i = int( x + s )
   j = int( y + s )
   dim t,x0,y0
   t = ( i + j ) * SN_G2
   x0 = x - ( i - t )
   y0 = y - ( j - t )
   dim i1%, j1%

   i = i and 255
   j = j and 255

   if( x0 > y0 ) then
   i1 = 1
   j1 = 0
   else
   i1 = 0
   j1 = 1
   end_if

   dim x1,y1,x2,y2
   x1 = x0 - i1 + SN_G2
   y1 = y0 - j1 + SN_G2
   x2 = x0 - 1.0f + SN_G22
   y2 = y0 - 1.0f + SN_G22
   dim ii%,jj%,ind%
   ii = i
   jj = j

   dim n

   t = 0.5f - x0 * x0 - y0 * y0

   if( t < 0.0f ) then
   n = 0.0f
   else
   ind = perm( i + perm( j ) ) mod 12
   n = t * t * t * t * ( grad2( ind, 0 ) * x0 + _
   grad2( ind, 1 ) * y0 )
   end_if

   t = 0.5f - x1 * x1 - y1 * y1

   if( t >= 0.0f ) then
   ind = perm( i + i1 + perm( j + j1 ) ) mod 12

   n = n + t * t * t * t * ( grad2( ind, 0 ) * x1 + _
   grad2( ind, 1 ) * y1 )
   end_if

   t = 0.5f - x2 * x2 - y2 * y2

   if( t >= 0.0f ) then
   i = i + 1
   j = j + 1
   ind = perm( i + perm( j ) ) mod 12
   n += t * t * t * t * ( grad2( ind, 0 ) * x2 + _
   grad2( ind, 1 ) * y2 )
   end_if

   return 70.0f * n
end_function
rem ============================================================================
' Creates a sinusoidal wave pattern. -1 .. 1 range
function sinePattern(x,y,size,xPeriod,yPeriod )
   return sin( ( x * xPeriod / size + y * yPeriod / size ) )
end_function
rem ============================================================================
' Creates a circular sinusoidal pattern 0 .. 1 range
function circularSinePattern(x,y,size,period,centerX, centerY, bias )
   dim xp,yp,dist
   xp = ( x - centerX ) / size
   yp = ( y - centerY ) / size
   dist = sqr( xp ^ 2 + yp ^ 2 ) + bias

   return abs( sin( 2.0f * period * dist ) )
end_function
rem ===========================================================================
' Creates a blobby-like pattern. 0 .. 1 range
function blobbyPattern(x,y,size,xPeriod,yPeriod,xDisp,yDisp)
   dim a1,a2
   a1 = sin( ( ( x - size * 0.5f ) / size + xDisp ) * xPeriod )
   a2 = sin( ( ( y - size * 0.5f ) / size + yDisp ) * yPeriod )
   return abs((a1 + a2)*0.5f)
end_function
rem ===========================================================================
' Creates a checkerboard pattern 0 .. 1 range (either one or the other)
function checkerPattern(x,y,sizeX,sizeY)
   dim temp
   if ( int( x / sizeX ) + int( y / sizeY ) ) mod 2 = 1 then
   temp = 0.0f
   else
   temp = 1.0f
   end_if
   return temp
end_function
rem ============================================================================
rem &&&&&&&&&&&&&&&&&&&&&&&&&&&&&& FIN &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
rem ============================================================================

Sujet: Re: Les programmes de papydall Jeu 19 Nov 2020 - 17:05

Code:: rem ============================================================================
rem Méridiens de la surface de Werner Boy
rem Par Papydall le 13 / 11 2020
rem ============================================================================

dim p3,p6,p8
dim m,p,a,b,d,e,sa,c2,c3,cm,sm,tc,ts,x1,z1,x,y,t
p3 = pi/3 : p6 = pi/6 : p8 = pi/8

mode 3,"Meridiens de la surface de Werner Boy" ,800,600
paper cl_noir : cls
for m = 0 to 2*pi step .05
   p = p + 1
   d = 34+4.794*sin(6*m-p3)
   e = 6.732*sin(3*m-p6)
   a = d+e
   b = d-e
   sa = sin(p8*sin(3*m))
   c2 = sqr(a*a+b*b)
   c3 = (4*d*e)/c2
   cm = cos(m)
   sm = sin(m)
   for t = 0 to 2*pi step .05
   tc = a*cos(t)
   ts = b*sin(t)
   x1 = c3+tc-ts
   z1 = c2+tc+ts
   x = x1*cm - z1*sa*sm
   y = x1*sm + z1*sa*cm
   plot 400+3*x,300-3*y, rgb(abs(3 * x),abs(3*y), t*40)
   sleep 1 : ' pour suivre le tracé
   next t
next m
repeat : until len(inkey())
rem ============================================================================

Sujet: Re: Les programmes de papydall Jeu 19 Nov 2020 - 17:08

Code:: rem ============================================================================
rem Pour le plaisir des yeux
rem Par Papydall
rem ============================================================================
const deg2rad = pi/180
dim w%,h%,n%
w = 1200 : h = 700

mode 3,"Pour le plaisir des yeux !",w,h
For n = 50 to 400
   pen rgb( abs(n-150),abs(n-200),abs(n-150))
   ellipse(300+n,600-n,150*n,150)
   ellipse(300+n,100+n,300,100*n)
   ellipse(900+n,500-n,100,200*n)
next n
repeat : until len(inkey())
rem ============================================================================
SUB ellipse(x,y,r1,r2)
   dim a%
   move x+r1,y
   for a = 0 to 360
   draw x + r1*cos(a*deg2rad),( y + r2*sin(a*deg2rad))
   next a
sleep 1
END_SUB
rem ============================================================================

Sujet: Re: Les programmes de papydall Jeu 19 Nov 2020 - 17:22

Code:: rem ===========================================================================
rem Plots complex solutions to the generic quadratic equation ax^2 - b*x + .5 = 0
rem ===========================================================================
dim a,b,x,y,k

mode 3,"Plots complex solutions to the generic quadratic equation ax^2 - b*x + .5 = 0",640,400

FOR b = 0 TO 100 STEP .05
   randomize timer
   FOR a = 0 TO 100 STEP .05
   y = 1000 * (b / (2 * a))
   x = 1000 * ((SQR(ABS(b ^ 2 - 4 * a * .5))) / (2 * a))
   IF b MOD 2 THEN k = 10 ELSE k = 15
   plot 320 + x,400 - y, rgb(k*5,k*20 mod 255,k*rnd()*15)
   plot 320 - x,400 - y, rgb(k*5,k*20 mod 255,k*rnd()*15)
   NEXT
NEXT

while inkey() = "" : wend
rem =============================================================================

Sujet: Re: Les programmes de papydall Jeu 19 Nov 2020 - 17:38

Code:: rem ==============================================================================
rem Noise 1D, 2D, 3D
rem Adaptation de Papydall le 14 / 11 / 200
rem Code initial en free basic par D.J.Peters
rem ref : https://www.freebasic.net/forum/viewtopic.php?f=7&t=26151
rem ===============================================================================

const NOIZESIZE% = 15 ' à modifier

const SW% = 800, SH% = 600
dim x%,y%,z%, i%
dim noise(NOIZESIZE,NOIZESIZE,NOIZESIZE)

mode 3,"Noise",sw,sh

init_constructor
for x = 0 to SW - 1
  for y = 0 to SH - 1
   i = int(255 * turbulence2d(x, y, 300))
   ' i = int(255 * turbulence3d(x, y,15, 20))
   plot x, y, rgb(i, i, 255)
  next
next

while inkey() = "" : wend
rem ==============================================================================
sub init_constructor()
  randomize timer
  for x = 0 to NOIZESIZE
   for y = 0 to NOIZESIZE
   for z = 0 to NOIZESIZE
   noise(x,y,z) = rnd()
   next
   next
  next
end_sub
rem ==============================================================================
function smoothNoise1d(x%)
  x = abs(x)
  dim iX1% ,iX2% ,tx ,l,r,v
   iX1% = int(x)
   iX2% = ix1+1
   tx% = x-iX1

  iX1 = iX1 and NOIZESIZE
  iX2 = iX2 and NOIZESIZE
  l = noise(iX1,0,0)
  r = noise(iX2,0,0)
  v = l + (r-l)*tx
  return v
end_function
rem ==============================================================================
function smoothNoise2d(x , y )
  x = abs(x)
  y = abs(y)
  dim iX1% , iY1% , iX2% ,iY2%
  dim tx , ty

  iX1% = int(x)
  iY1% = int(y)
  iX2% = ix1+1
  iY2% = iy1+1
  tx = x-iX1
  ty = y-iY1

  iX1 = iX1 and NOIZESIZE
  iX2 = iX2 and NOIZESIZE
  iY1 = iY1 and NOIZESIZE
  iY2 = iY2 and NOIZESIZE

  dim lt, rt, rb, lb
  dim sxt, sxb
  dim v

   lt = noise(iX1,iY1,0)
   rt = noise(iX2,iY1,0)
   rb = noise(iX2,iY2,0)
   lb = noise(iX1,iY2,0)

   sxt = lt + (rt-lt)*tx
   sxb = lb + (rb-lb)*tx

   v = sxt+(sxb-sxt)*ty

  return v
end_function
rem ==============================================================================
function smoothNoise3d(x, y , z)
  x = abs(x)
  y = abs(y)
  z = abs(z)
  dim iX1% : iX1 = int(x)
  dim iY1% : iY1 = int(y)
  dim iZ1% : iZ1 = int(z)
  dim iX2% : iX2 = ix1+1
  dim iY2% : iY2 = iy1+1
  dim iZ2% : iZ2 = iz1+1
  dim tx : tx = x-iX1
  dim ty : ty = y-iY1
  dim tz : tz = z-iZ1

  iX1 = iX1 and NOIZESIZE
  iX2 = iX2 and NOIZESIZE
  iY1 = iY1 and NOIZESIZE
  iY2 = iY2 and NOIZESIZE
  iZ1 = iZ1 and NOIZESIZE
  iZ2 = iZ2 and NOIZESIZE

  dim ltf : ltf = noise(iX1,iY1,iZ1)
  dim rtf : rtf = noise(iX2,iY1,iZ1)
  dim rbf : rbf = noise(iX2,iY2,iZ1)
  dim lbf : lbf = noise(iX1,iY2,iZ1)
  dim sxtf : sxtf = ltf + (rtf-ltf)*tx
  dim sxbf : sxbf = lbf + (rbf-lbf)*tx

  dim ltb : ltb = noise(iX1,iY1,iZ2)
  dim rtb : rtb = noise(iX2,iY1,iZ2)
  dim rbb : rbb = noise(iX2,iY2,iZ2)
  dim lbb : lbb = noise(iX1,iY2,iZ2)
  dim sxtb : sxtb = ltb + (rtb-ltb)*tx
  dim sxbb : sxbb = lbb + (rbb-lbb)*tx

  dim vf : vf = sxtf+(sxbf-sxtf)*ty
  dim vb : vb = sxtb+(sxbb-sxtb)*ty
  dim v : v = vf + (vb-vf)*tz

  return v
end_function
rem ==============================================================================
function turbulence1d(x , size)
  dim value, initialSize
  if size < 1 then size = 1
  initialSize = size
  while(size >= 1)
   value = value + smoothNoise1d(x / size) * size
   size = size / 2.0
  wend
  value = value * 0.5
  return value/initialSize
end_function
rem ==============================================================================
function turbulence2d(x%, y% , size)
  dim value, initialSize
  if size < 1 then size = 1
  initialSize = size
  while(size >= 1)
   value = value + smoothNoise2d(x / size, y / size) * size
   size = size / 2.0
  wend
  value = value * 0.5
  return value/(initialSize-1)
end_function
rem ================================================================================
function turbulence3d(x% , y% , z%, size)
  dim value, initialSize
  if size < 1 then size = 1
  initialSize = size
  while(size >= 1)
   value = value + smoothNoise3d(x / size, y / size, z/size) * size
   size = size / 2.0
  wend
  value = value * 0.5
  return value/(initialSize-1)
end function
rem ==============================================================================

Sujet: Re: Les programmes de papydall Dim 22 Nov 2020 - 9:55

J'ai mis sur mon WebDav l'adaptation du programme de papydall qui dessine des animaux (dossier FBCroco, fichier animaux.bas)

Le forum refuse le programme au motif qu'il est trop long.

J'ai ajouté une option (touche Z) pour basculer entre le tracé de la silhouette seule et le remplissage, ce dernier ne fonctionnant pas toujours bien (voir l'exemple du lapin ...)

Les programmes de papydall - Page 5 Animau11

Nombre de messages : 2709 Date d'inscription : 13/09/2009

Jolis, les petits dessins !

Les programmes de papydall - Page 5 Animau10

Alors, récapitulons :
- la licorne a 1 corne et le tricératops en a 3 (à moins que ce soit l'inverse)
- le mammouth a 2 défenses, tandis que le cochon n'en a pas vraiment
- le chameau a 2 bosses et la girafe a 2 ailes (à moins que ce soit 2 f)

Les programmes de papydall - Page 5 Girapi10

C'est à ne ne plus s'y retrouver et se faire des nœuds !

Les programmes de papydall - Page 5 Girano10

Sujet: Re: Les programmes de papydall Dim 22 Nov 2020 - 23:43

Rien d'étonnant, il s'agit d'AnimO-Martiens tongue

Sujet: Re: Les programmes de papydall Dim 22 Nov 2020 - 23:46

Code:: rem ============================================================================================
rem Albert Einstein curve
rem ============================================================================================

dim x,y,t,p,w,h
p = pi/2880
w = 800 : h = 600

mode 3,"Albert Einstein Curve",w,h
cls
for t = 0 to 92 * pi step p
   x = ((-38/9 * sin(11/7 - 3 * t) + 156/5 * sin(t + 47/10) + 91/16 * sin(2 * t + 21/13) + 555/2)_
   * Heaviside(91 * pi - t) * Heaviside(t - 87 * pi) + (-12/11 * sin(35/23 - 11 * t) + 4243/12_
   * sin(t + 11/7) + 678/11 * sin(2 * t + 33/7) + 401/6 * sin(3 * t + 47/10) + 59/3 * sin(4 * t + 11/7)_
   + 238/25 * sin(5 * t + 47/10) + 85/11 * sin(6 * t + 51/11) + 57/4 * sin(7 * t + 61/13)_
   + 28/29 * sin(8 * t + 22/5) + 52/9 * sin(9 * t + 14/3) + 286/57 * sin(10 * t + 11/7) _
   + 19/11 * sin(12 * t + 32/7) + 30/11 * sin(13 * t + 60/13) + 95/14 * sin(14 * t + 89/19)_
   + 32/7 * sin(15 * t + 11/7) + 43/10 * sin(16 * t + 65/14) + 19/7 * sin(17 * t + 32/7) _
   + 13/10 * sin(18 * t + 77/17) + 11/9 * sin(19 * t + 85/19) + 1/5 * sin(20 * t + 4) _
   + 3/11 * sin(21 * t + 28/9) + 29/11 * sin(22 * t + 60/13) + 80/27 * sin(23 * t + 50/11)_
   + 19/12 * sin(24 * t + 60/13) + 1/5 * sin(25 * t + 12/5) + 82/13 * sin(26 * t + 51/11) _
   + 3/11 * sin(27 * t + 19/8) + 32/9 * sin(28 * t + 10/7) + 41/7 * sin(29 * t + 22/15) _
   + 9/11 * sin(30 * t + 11/8) + 2881/6) * Heaviside(87 * pi - t) * Heaviside(t - 83 * pi) _
   + (-46/31 * sin(20/13 - 22 * t) - 22/9 * sin(14/9 - 6 * t) - 5/4 * sin(3/2 - 4 * t) _
   + 399/5 * sin(t + 11/7) + 16/9 * sin(2 * t + 3/2) + 116/13 * sin(3 * t + 14/9) _
   + 8/5 * sin(5 * t + 14/9) + 11/7 * sin(7 * t + 8/5) + 9/11 * sin(8 * t + 14/3) _
   + 28/13 * sin(9 * t + 11/7) + 7/8 * sin(10 * t + 11/7) + 23/12 * sin(11 * t + 17/11)_
   + 11/12 * sin(12 * t + 19/13) + 35/23 * sin(13 * t + 3/2) + 13/7 * sin(14 * t + 20/13) _
   + 19/9 * sin(15 * t + 3/2) + 11/5 * sin(16 * t + 3/2) + 27/13 * sin(17 * t + 34/23) _
   + 3 * sin(18 * t + 26/17) + 6/5 * sin(19 * t + 7/5) + 19/12 * sin(20 * t + 29/19) _
   + 20/13 * sin(21 * t + 21/13) + 8/9 * sin(23 * t + 32/7) + 22/23 * sin(24 * t + 23/5)_
   + 17/11 * sin(25 * t + 61/13) + 13021/30) * Heaviside(83 * pi - t) * Heaviside(t - 79 * pi)_
   + (-15/31 * sin(11/7 - 8 * t) + 1/15 * sin(t + 11/6) + 55/14 * sin(2 * t + 19/12)_
   + 88/13 * sin(3 * t + 19/12) + 17/9 * sin(4 * t + 8/5) + 1/18 * sin(5 * t + 16/9) _
   + 4/7 * sin(6 * t + 21/13) + 9/8 * sin(7 * t + 8/5) + 8/15 * sin(9 * t + 8/5) _
   + 3053/7) * Heaviside(79 * pi - t) * Heaviside(t - 75 * pi) + (-20/3 * sin(11/7 - 4 * t)_
   - 117/8 * sin(11/7 - 3 * t) - 647/27 * sin(11/7 - 2 * t) + 559/15 * sin(t + 11/7)_
   + 2/13 * sin(5 * t + 13/8) + 6/17 * sin(6 * t + 18/11) + 5/8 * sin(7 * t + 8/5) _
   + 22549/41) * Heaviside(75 * pi - t) * Heaviside(t - 71 * pi) + (-11/9 * sin(17/11 - 10 * t)_
   - 40/13 * sin(14/9 - 8 * t) - 254/23 * sin(11/7 - 4 * t) - 62/7 * sin(11/7 - 2 * t) _
   + 11 * sin(t + 11/7) + 255/16 * sin(3 * t + 11/7) + 137/10 * sin(5 * t + 19/12) _
   + 111/8 * sin(6 * t + 19/12) + 29/19 * sin(7 * t + 8/5) + 2/9 * sin(9 * t + 26/17) _
   + 11/12 * sin(11 * t + 19/12) + 1/24 * sin(12 * t + 41/9) + 8/9 * sin(14 * t + 13/8)_
   + 1313/3) * Heaviside(71 * pi - t) * Heaviside(t - 67 * pi) + (-5/8 * sin(14/9 - 8 * t)_
   - 11/13 * sin(14/9 - 7 * t) - 12/5 * sin(11/7 - 6 * t) - 7/9 * sin(14/9 - 3 * t) _
   - 272/13 * sin(11/7 - 2 * t) + 7/2 * sin(t + 11/7) + 3/4 * sin(4 * t + 14/9) _
   + 7/9 * sin(5 * t + 11/7) + 3/13 * sin(9 * t + 11/7) + 4876/9) * Heaviside(67 * pi - t)_
   * Heaviside(t - 63 * pi) + (-22/9 * sin(11/7 - t) + 177/7 * sin(2 * t + 11/7) +_
   21/10 * sin(3 * t + 11/7) + 11/7 * sin(4 * t + 11/7) + 1/14 * sin(5 * t + 17/10) + _
   66/19 * sin(6 * t + 11/7) + 1/22 * sin(7 * t + 12/7) + 20/13 * sin(8 * t + 11/7) + 3561/10)_
   * Heaviside(63 * pi - t) * Heaviside(t - 59 * pi) + (-9/17 * sin(25/17 - 11 * t) - 1/2 * sin(25/17 - 10 * t)_
   - 1/5 * sin(9/7 - 9 * t) - 1/3 * sin(4/3 - 8 * t) - 7/3 * sin(14/9 - 7 * t) - 208/25 * sin(14/9 - 4 * t)_
   + 139/3 * sin(t + 11/7) + 186/5 * sin(2 * t + 11/7) + 19/6 * sin(3 * t + 8/5) + 19/12 * sin(5 * t + 8/5)_
   + 3/13 * sin(6 * t + 7/4) + 2/5 * sin(12 * t + 13/8) + 1/9 * sin(13 * t + 65/14) + 6/13 * sin(14 * t + 18/11)_
   + 1/8 * sin(15 * t + 5/3) + 1/8 * sin(16 * t + 7/4) + 1/18 * sin(17 * t + 24/11) + 1737/4)_
   * Heaviside(59 * pi - t) * Heaviside(t - 55 * pi) + (-6/13 * sin(23/15 - 21 * t) - 3/10 * sin(10/7 - 20 * t)_
   - 7/8 * sin(26/17 - 19 * t) - 1/4 * sin(19/13 - 18 * t) - 11/17 * sin(17/11 - 17 * t) - 1/8 * sin(11/9 - 16 * t)_
   - 7/8 * sin(17/11 - 15 * t) - 38/39 * sin(11/7 - 13 * t) - 57/10 * sin(14/9 - 7 * t) - 1/7 * sin(3/5 - 6 * t)_
   - 201/10 * sin(14/9 - 5 * t) - 28/11 * sin(17/11 - 4 * t) - 303/10 * sin(14/9 - 3 * t) + 1084/9 * sin(t + 11/7)_
   + 39/7 * sin(2 * t + 14/9) + 23/14 * sin(8 * t + 14/9) + 22/23 * sin(9 * t + 47/10) + 8/13 * sin(10 * t + 11/7) _
   + 1/8 * sin(11 * t + 22/13) + 10/19 * sin(12 * t + 11/7) + 9/13 * sin(14 * t + 21/13) + 1/8 * sin(22 * t + 11/7) _
   + 1319/3) * Heaviside(55 * pi - t) * Heaviside(t - 51 * pi) + (-3/2 * sin(11/7 - 17 * t) - 9/8 * sin(14/9 - 15 * t)_
   - 12/7 * sin(14/9 - 14 * t) - 8/7 * sin(14/9 - 12 * t) - 6/19 * sin(3/2 - 11 * t) - 296/11 * sin(11/7 - 5 * t) _
   - 163/25 * sin(11/7 - 4 * t) - 721/20 * sin(11/7 - 3 * t) - 85/4 * sin(11/7 - 2 * t) + 1353/7 * sin(t + 11/7) _
   + 31/11 * sin(6 * t + 8/5) + 113/10 * sin(7 * t + 33/7) + 27/7 * sin(8 * t + 14/9) + 23/8 * sin(9 * t + 33/7) _
   + 7/6 * sin(10 * t + 13/8) + 5/12 * sin(13 * t + 37/8) + 2/3 * sin(16 * t + 51/11) + 3/8 * sin(18 * t + 8/5)_
   + 7126/15) * Heaviside(51 * pi - t) * Heaviside(t - 47 * pi) + (-2/9 * sin(1/3 - 4 * t) + 791/5 * sin(t + 11/7)_
   + 10/19 * sin(2 * t + 9/14) + 118/7 * sin(3 * t + 14/9) + 21/4 * sin(5 * t + 11/7) + 1/9 * sin(6 * t + 117/58)_
   + 30/11 * sin(7 * t + 14/9) + 5/13 * sin(8 * t + 17/14) + 7/4 * sin(9 * t + 28/19) + 3/14 * sin(10 * t + 15/16)_
   + 12/13 * sin(11 * t + 19/12) + 1/15 * sin(12 * t + 43/13) + 11/16 * sin(13 * t + 13/8) + 2251/5)_
   * Heaviside(47 * pi - t) * Heaviside(t - 43 * pi) + (3724/25 * sin(t + 11/7) + 1/3 * sin(2 * t + 16/9)_
   + 266/17 * sin(3 * t + 11/7) + 10/13 * sin(4 * t + 19/11) + 34/7 * sin(5 * t + 19/12) + 5/12 * sin(6 * t + 5/3) _
   + 20/11 * sin(7 * t + 8/5) + 1/5 * sin(8 * t + 11/7) + 7/5 * sin(9 * t + 19/12) + 2/7 * sin(10 * t + 5/3) + 7/8 _
   * sin(11 * t + 14/9) + 1/51 * sin(12 * t + 47/16) + 7/9 * sin(13 * t + 13/8) + 1/10 * sin(14 * t + 50/11) + 12403/28)_
   * Heaviside(43 * pi - t) * Heaviside(t - 39 * pi) + (-4/7 * sin(5/9 - 19 * t) + 4341/11 * sin(t + 17/11)_
   + 595/6 * sin(2 * t + 14/3) + 1286/17 * sin(3 * t + 37/8) + 314/9 * sin(4 * t + 23/15) + 121/3 * sin(5 * t + 37/8)_
   + 222/17 * sin(6 * t + 21/5) + 103/9 * sin(7 * t + 23/5) + 29/5 * sin(8 * t + 25/6) + 127/9 * sin(9 * t + 49/11) _
   + 11/6 * sin(10 * t + 37/19) + 23/3 * sin(11 * t + 23/5) + 77/13 * sin(12 * t + 23/12) + 97/7 * sin(13 * t + 41/9)_
   + 29/7 * sin(14 * t + 17/8) + 39/7 * sin(15 * t + 49/11) + 5/8 * sin(16 * t + 19/11) + 5/11 * sin(17 * t + 17/9) _
   + 2/3 * sin(18 * t + 27/7) + 19/13 * sin(20 * t + 37/12) + 84/13 * sin(21 * t + 25/6) + 11/23 * sin(22 * t + 41/14) _
   + 45/13 * sin(23 * t + 31/32) + 3/14 * sin(24 * t + 41/20) + 49/13 * sin(25 * t + 41/10) + 16/11 * sin(26 * t + 17/11)_
   + 12/7 * sin(27 * t + 22/5) + 37/13 * sin(28 * t + 48/13) + 4/3 * sin(29 * t + 3) + 31/11 * sin(30 * t + 3/10)_
   + 79/15 * sin(31 * t + 10/11) + 10753/21) * Heaviside(39 * pi - t) * Heaviside(t - 35 * pi) + (-16/9 * sin(13/9 - 8 * t)_
   - 108/19 * sin(8/11 - 6 * t) + 17/13 * sin(t + 8/7) + 7/3 * sin(2 * t + 21/10) + 24/7 * sin(3 * t + 20/9)_
   + 26/7 * sin(4 * t + 32/7) + 26/11 * sin(5 * t + 11/4) + 105/19 * sin(7 * t + 30/7) + 6/7 * sin(9 * t + 5/11)_
   + 23/15 * sin(10 * t + 7/5) + 11/6 * sin(11 * t + 11/3) + 12822/23) * Heaviside(35 * pi - t) * Heaviside(t - 31 * pi)_
   + (-5/8 * sin(11/12 - 10 * t) - 64/13 * sin(13/14 - 6 * t) + 7/5 * sin(t + 45/11) + 74/21 * sin(2 * t + 1/7)_
   + 52/15 * sin(3 * t + 39/10) + 5/8 * sin(4 * t + 3/5) + 17/11 * sin(5 * t + 7/6) + 39/8 * sin(7 * t + 51/13)_
   + 15/8 * sin(8 * t + 29/8) + 16/9 * sin(9 * t + 14/3) + 97/48 * sin(11 * t + 5/9) + 3401/10) * Heaviside(31 * pi - t)_
   * Heaviside(t - 27 * pi) + (-12/25 * sin(17/13 - 6 * t) - 7/11 * sin(4/7 - 4 * t) - 14/27 * sin(3/13 - 2 * t)_
   + 351/10 * sin(t + 11/8) + 17/6 * sin(3 * t + 28/27) + 9/8 * sin(5 * t + 10/13) + 3921/7) * Heaviside(27 * pi - t)_
   * Heaviside(t - 23 * pi) + (431/8 * sin(t + 4/5) + 199/25 * sin(2 * t + 40/9) + 2328/7) * Heaviside(23 * pi - t)_
   * Heaviside(t - 19 * pi) + (-2/3 * sin(5/4 - 9 * t) - 11/9 * sin(4/3 - 5 * t) - 74/21 * sin(1/13 - 4 * t) _
   + 107/6 * sin(t + 8/17) + 73/10 * sin(2 * t + 12/11) + 53/12 * sin(3 * t + 48/11) + 4/9 * sin(6 * t + 31/13) _
   + 4/11 * sin(7 * t + 5/13) + 5/14 * sin(8 * t + 127/42) + 5/16 * sin(10 * t + 17/9) + 2/5 * sin(11 * t + 29/7)_
   + 2378/13) * Heaviside(19 * pi - t) * Heaviside(t - 15 * pi) + (194/13 * sin(t + 51/14) + 93/23 * sin(2 * t + 43/12)_
   + 13/8 * sin(3 * t + 57/17) + 9/5 * sin(4 * t + 32/13) + 14050/21) * Heaviside(15 * pi - t) * Heaviside(t - 11 * pi) _
   + (-19/18 * sin(1/11 - 16 * t) - 8/11 * sin(1/6 - 14 * t) - 13/11 * sin(1 - 7 * t) - 9/8 * sin(7/11 - 5 * t) _
   - 148/9 * sin(1/7 - 2 * t) + 19/6 * sin(t + 37/8) + 625/11 * sin(3 * t + 8/5) + 241/24 * sin(4 * t + 1/6) _
   + 16/17 * sin(6 * t + 7/5) + 95/47 * sin(8 * t + 1/4) + 20/9 * sin(9 * t + 12/7) + 11/5 * sin(10 * t + 1/4) _
   + 3/7 * sin(11 * t + 2/3) + 9/19 * sin(12 * t + 28/9) + 3/5 * sin(13 * t + 25/6) + 2/11 * sin(15 * t + 13/9)_
   + 1/3 * sin(17 * t + 1/6) + 3925/7) * Heaviside(11 * pi - t) * Heaviside(t - 7 * pi) + (-31/12 * sin(11/12 - 6 * t)_
   - 244/9 * sin(15/11 - 4 * t) - 186/5 * sin(7/6 - 2 * t) + 911/26 * sin(t + 74/21) + 317/7 * sin(3 * t + 1/3)_
   + 28/9 * sin(5 * t + 52/15) + 33/17 * sin(7 * t + 12/5) + 7/10 * sin(8 * t + 13/7) + 6/7 * sin(9 * t + 9/5)_
   + 6/7 * sin(10 * t + 11/4) + 13/5 * sin(11 * t + 4/7) + 2721/8) * Heaviside(7 * pi - t) * Heaviside(t - 3 * pi)_
   + (-10/7 * sin(14/9 - 12 * t) - 11/7 * sin(7/9 - 11 * t) - 51/19 * sin(3/2 - 4 * t) - 89/4 * sin(18/13 - 3 * t)_
   - 81/10 * sin(12/25 - 2 * t) + 2029/8 * sin(t + 3/2) + 3 * sin(5 * t + 3/5) + 23/15 * sin(6 * t + 29/10)_
   + 74/15 * sin(7 * t + 51/25) + 10/11 * sin(8 * t + 32/21) + 13/6 * sin(9 * t + 8/5) + 2/7 * sin(10 * t + 16/7)_
   + 4407/10) * Heaviside(3 * pi - t)* Heaviside(t + pi))* Heaviside(sqr(sgn(sin(t/2))))

   y = ((41/2 * sin(t + 61/13) + 163/18 * sin(2 * t + 14/3) + 1/2 * sin(3 * t + 41/9) + 3802/5) * Heaviside(91 * pi - t) * Heaviside(t - 87 * pi)_
   + (-12/7 * sin(7/5 - 17 * t) - 41/11 * sin(11/7 - 9 * t) - 3/7 * sin(11/8 - 4 * t) + 1175/14 * sin(t + 47/10) + 9961/40 * sin(2 * t + 33/7) _
   + 555/8 * sin(3 * t + 11/7) + 39/5 * sin(5 * t + 14/9) + 11/5 * sin(6 * t + 3/2) + 25/2 * sin(7 * t + 47/10) + 155/12 * sin(8 * t + 14/9) _
   + 33/10 * sin(10 * t + 19/12) + 14/5 * sin(11 * t + 51/11) + 64/7 * sin(12 * t + 14/3) + 45/7 * sin(13 * t + 11/7) + 1/14 * sin(14 * t + 49/13)_
   + 1/2 * sin(15 * t + 16/13) + 76/25 * sin(16 * t + 19/12) + 23/5 * sin(18 * t + 26/17) + 191/38 * sin(19 * t + 47/10) + 47/13 * sin(20 * t + 23/15) _
   + 62/9 * sin(21 * t + 33/7) + 31/9 * sin(22 * t + 37/25) + 31/4 * sin(23 * t + 16/11) + 18/7 * sin(24 * t + 4/3) + 91/15 * sin(25 * t + 3/2) _
   + 29/7 * sin(26 * t + 14/3) + 49/25 * sin(27 * t + 47/10) + 9/4 * sin(28 * t + 23/5) + 57/56 * sin(29 * t + 6/5) + 83/10 * sin(30 * t + 16/11) _
   + 18532/29) * Heaviside(87 * pi - t) * Heaviside(t - 83 * pi) + (-9/7 * sin(4/3 - 25 * t) - 106/11 * sin(16/11 - 22 * t) - 11/3 * sin(17/11 - 11 * t)_
   - 1/17 * sin(1/16 - 9 * t) - 2/9 * sin(3/2 - 8 * t) - 2/9 * sin(11/9 - 6 * t) + 38/39 * sin(t + 14/3) + 9/5 * sin(2 * t + 61/13) + 19/7 * sin(3 * t + 8/5) _
   + 22/5 * sin(4 * t + 33/7) + 8/11 * sin(5 * t + 3/2) + 95/94 * sin(7 * t + 14/9) + 25/13 * sin(10 * t + 13/8) + 3/5 * sin(12 * t + 14/3) _
   + 2/11 * sin(13 * t + 17/4) + 35/11 * sin(14 * t + 14/3) + 17/5 * sin(15 * t + 51/11) + 84/13 * sin(16 * t + 89/19) + 51/8 * sin(17 * t + 51/11) _
   + 5/8 * sin(18 * t + 17/5) + 35/6 * sin(19 * t + 61/13) + 11/9 * sin(20 * t + 9/2) + 21/13 * sin(21 * t + 27/16) + 77/12 * sin(23 * t + 8/5) _
   + 151/14 * sin(24 * t + 21/13) + 2152/7) * Heaviside(83 * pi - t) * Heaviside(t - 79 * pi) + (-14/11 * sin(20/13 - 7 * t) - 47/8 * sin(14/9 - 3 * t)_
   - 388/7 * sin(11/7 - t) + 18/11 * sin(2 * t + 3/2) + 4/3 * sin(4 * t + 19/12) + 19/14 * sin(5 * t + 47/10) + 3/11 * sin(6 * t + 25/17) _
   + 1/24 * sin(8 * t + 9/14) + 1/3 * sin(9 * t + 47/10) + 5435/13) * Heaviside(79 * pi - t) * Heaviside(t - 75 * pi) + (-5/2 * sin(14/9 - 5 * t)_
   - 42/11 * sin(11/7 - 3 * t) - 237/19 * sin(11/7 - t) + 86/3 * sin(2 * t + 11/7) + 14/15 * sin(4 * t + 11/7) + 17/8 * sin(6 * t + 11/7) _
   + 15/16 * sin(7 * t + 8/5) + 4683/10) * Heaviside(75 * pi - t) * Heaviside(t - 71 * pi) + (-5/7 * sin(14/9 - 13 * t) - 11/16 * sin(14/9 - 9 * t) _
   - 13/6 * sin(11/7 - 5 * t) - 2/7 * sin(20/13 - 4 * t) - sin(11/7 - 3 * t) - 341/34 * sin(11/7 - t) + 5/3 * sin(2 * t + 11/7) + 19/8 * sin(6 * t + 19/12) _
   + 1/11 * sin(7 * t + 55/12) + 7/6 * sin(8 * t + 19/12) + 3/8 * sin(10 * t + 11/7) + 1/10 * sin(11 * t + 5/3) + 1/2 * sin(12 * t + 19/12) _
   + 7/10 * sin(14 * t + 8/5) + 469/2) * Heaviside(71 * pi - t) * Heaviside(t - 67 * pi) + (-3/10 * sin(14/9 - 8 * t) + 16/11 * sin(t + 75/16) _
   + 63/2 * sin(2 * t + 11/7) + 5/7 * sin(3 * t + 8/5) + 2/3 * sin(4 * t + 13/8) + 1/33 * sin(5 * t + 9/2) + 23/7 * sin(6 * t + 11/7) + 1/29 * sin(7 * t + 14/3) _
   + 1/5 * sin(9 * t + 61/13) + 3265/9) * Heaviside(67 * pi - t) * Heaviside(t - 63 * pi) + (-16/13 * sin(11/7 - 4 * t) - 59/12 * sin(11/7 - t) _
   + 183/5 * sin(2 * t + 11/7) + 5/4 * sin(3 * t + 14/9) + 8/7 * sin(5 * t + 47/10) + 80/27 * sin(6 * t + 11/7) + 14/13 * sin(7 * t + 19/12) _
   + 20/19 * sin(8 * t + 33/7) + 10934/29) * Heaviside(63 * pi - t) * Heaviside(t - 59 * pi) + (-7/9 * sin(29/19 - 15 * t) - 121/60 * sin(17/11 - 5 * t)_
   - 742/11 * sin(11/7 - t) + 494/11 * sin(2 * t + 19/12) + 74/15 * sin(3 * t + 19/12) + 78/7 * sin(4 * t + 21/13) + 47/10 * sin(6 * t + 13/8)_
   + 35/17 * sin(7 * t + 27/16) + 17/7 * sin(8 * t + 19/12) + 5/16 * sin(9 * t + 19/8) + 22/9 * sin(10 * t + 11/7) + 2/11 * sin(11 * t + 39/10) _
   + 10/11 * sin(12 * t + 19/12) + 5/13 * sin(13 * t + 12/7) + 3/7 * sin(14 * t + 23/14) + 1/4 * sin(16 * t + 18/11) + 1/12 * sin(17 * t + 15/7) _
   + 4470/11) * Heaviside(59 * pi - t) * Heaviside(t - 55 * pi) + (-2/9 * sin(17/11 - 21 * t) - 9/7 * sin(3/2 - 18 * t) - 3/10 * sin(22/15 - 17 * t) _
   - 23/7 * sin(14/9 - 8 * t) + 18/11 * sin(t + 8/5) + 155/4 * sin(2 * t + 11/7) + 9/7 * sin(3 * t + 28/17) + 173/10 * sin(4 * t + 11/7) _
   + 14/13 * sin(5 * t + 75/16) + 22/9 * sin(6 * t + 8/5) + 1/7 * sin(7 * t + 16/9) + 5/3 * sin(9 * t + 8/5) + 9/8 * sin(10 * t + 8/5) + 16/9 * sin(11 * t + 8/5)_
   + 8/3 * sin(12 * t + 8/5) + 3/13 * sin(13 * t + 14/3) + 29/30 * sin(14 * t + 11/7) + 1/6 * sin(15 * t + 16/9) + 7/8 * sin(16 * t + 28/17)_
   + 5/16 * sin(19 * t + 18/11) + 11/12 * sin(20 * t + 18/11) + 1/7 * sin(22 * t + 9/7) + 3262/11) * Heaviside(55 * pi - t) * Heaviside(t - 51 * pi) _
   + (-7/8 * sin(17/11 - 18 * t) - 7/6 * sin(17/11 - 17 * t) - 3/10 * sin(23/15 - 15 * t) - 17/10 * sin(11/7 - 10 * t) - 24/7 * sin(14/9 - 9 * t) _
   - 24/25 * sin(14/9 - 8 * t) - 40/11 * sin(11/7 - 7 * t) + 19/10 * sin(t + 33/7) + 39/7 * sin(2 * t + 11/7) + 162/19 * sin(3 * t + 11/7) _
   + 123/8 * sin(4 * t + 11/7) + 33/7 * sin(5 * t + 11/7) + 77/9 * sin(6 * t + 11/7) + 21/22 * sin(11 * t + 8/5) + 9/17 * sin(12 * t + 21/13) _
   + 31/12 * sin(13 * t + 19/12) + 1/20 * sin(14 * t + 23/5) + 5/14 * sin(16 * t + 8/5) + 16814/23) * Heaviside(51 * pi - t)_
   * Heaviside(t - 47 * pi) + (-102/11 * sin(11/7 - t) + 29/7 * sin(2 * t + 33/7) + 27/10 * sin(3 * t + 19/12) + 17/7 * sin(4 * t + 47/10) _
   + 2/11 * sin(5 * t + 13/7) + 37/14 * sin(6 * t + 47/10) + 1/13 * sin(7 * t + 85/21) + 51/26 * sin(8 * t + 47/10) + 5/6 * sin(9 * t + 8/5) _
   + 3/5 * sin(10 * t + 47/10) + 8/13 * sin(11 * t + 8/5) + 9/13 * sin(12 * t + 47/10) + 1/10 * sin(13 * t + 53/12) + 9028/13) _
   * Heaviside(47 * pi - t) * Heaviside(t - 43 * pi) + (-1/2 * sin(17/11 - 14 * t) - 15/11 * sin(14/9 - 10 * t) - 29/11 * sin(14/9 - 8 * t) _
   - 29/9 * sin(14/9 - 6 * t) - 1/3 * sin(13/9 - 5 * t) - 108/13 * sin(14/9 - 4 * t) - 12/7 * sin(14/9 - t) + 4/13 * sin(2 * t + 8/5)_
   + 15/11 * sin(3 * t + 11/7) + 7/6 * sin(7 * t + 11/7) + 1/15 * sin(9 * t + 5/4) + 1/9 * sin(11 * t + 16/11) + 1/10 * sin(12 * t + 12/7) _
   + 3/8 * sin(13 * t + 8/5) + 5872/9) * Heaviside(43 * pi - t) * Heaviside(t - 39 * pi) + (-6/7 * sin(38/25 - 30 * t) - 6/5 * sin(1/21 - 28 * t) _
   - 13/8 * sin(7/9 - 18 * t) + 275/3 * sin(t + 23/5) + 3929/11 * sin(2 * t + 14/3) + 219/4 * sin(3 * t + 27/16) + 421/11 * sin(4 * t + 47/10) _
   + 101/6 * sin(5 * t + 26/17) + 242/9 * sin(6 * t + 4/3) + 153/13 * sin(7 * t + 1) + 73/6 * sin(8 * t + 5/4) + 65/9 * sin(9 * t + 13/11) _
   + 47/14 * sin(10 * t + 9/7) + 51/11 * sin(11 * t + 25/6) + 25/7 * sin(12 * t + 17/13) + 13/2 * sin(13 * t + 9/8) + 40/17 * sin(14 * t + 16/17) _
   + 36/7 * sin(15 * t + 46/47) + 2 * sin(16 * t + 2/7) + 52/21 * sin(17 * t + 10/7) + 55/12 * sin(19 * t + 6/5) + 17/8 * sin(20 * t + 1/3) _
   + 17/6 * sin(21 * t + 58/57) + 37/12 * sin(22 * t + 35/8) + 3/4 * sin(23 * t + 12/13) + 28/13 * sin(24 * t + 4/5) + 37/19 * sin(25 * t + 19/5) _
   + 7/10 * sin(26 * t + 55/13) + 89/14 * sin(27 * t + 7/8) + 15/7 * sin(29 * t + 23/6) + 7/11 * sin(31 * t + 11/14) + 8933/13) _
   * Heaviside(39 * pi - t) * Heaviside(t - 35 * pi) + (-17/9 * sin(9/14 - 11 * t) - 4/3 * sin(1/5 - 8 * t) - 29/6 * sin(3/8 - 7 * t)_
   + 13/8 * sin(t + 11/6) + 6/5 * sin(2 * t + 30/7) + 8/7 * sin(3 * t + 31/11) + 13/6 * sin(4 * t + 1/11) + 4/5 * sin(5 * t + 31/7) _
   + 31/9 * sin(6 * t + 8/11) + 1/3 * sin(9 * t + 39/20) + 9/5 * sin(10 * t + 13/4) + 7555/14) * Heaviside(35 * pi - t) * Heaviside(t - 31 * pi) _
   + (-11/10 * sin(10/9 - 8 * t) - 9/2 * sin(2/5 - 7 * t) - 18/11 * sin(10/11 - 3 * t) + 17/9 * sin(t + 32/7) + 6/5 * sin(2 * t + 38/13)_
   + 19/14 * sin(4 * t + 28/9) + 13/9 * sin(5 * t + 3) + 15/4 * sin(6 * t + 3/4) + 60/17 * sin(9 * t + 1/14) + 10/9 * sin(10 * t + 5/4) + 13/7 * sin(11 * t + 30/13) _
   + 9899/18) * Heaviside(31 * pi - t) * Heaviside(t - 27 * pi) + (-2/11 * sin(2/9 - 5 * t) + 110/7 * sin(t + 35/12) + 16/9 * sin(2 * t + 68/15)_
   + 3/14 * sin(3 * t + 36/13) + 1/2 * sin(4 * t + 7/2) + 1/7 * sin(6 * t + 45/13) + 2682/5) * Heaviside(27 * pi - t) * Heaviside(t - 23 * pi) _
   + (157/9 * sin(t + 69/34) + 19/3 * sin(2 * t + 20/7) + 2169/4) * Heaviside(23 * pi - t) * Heaviside(t - 19 * pi) + (-3/2 * sin(3/13 - 7 * t) _
   - 13/4 * sin(11/12 - 4 * t) - 131/7 * sin(5/4 - 2 * t) + 370/7 * sin(t + 74/17) + 31/3 * sin(3 * t + 47/16) + 11/4 * sin(5 * t + 50/11) _
   + 43/11 * sin(6 * t + 19/7) + 23/14 * sin(8 * t + 33/10) + 3/5 * sin(9 * t + 21/11) + 1/10 * sin(10 * t + 1/16) + 1/3 * sin(11 * t + 62/25) _
   + 5541/11) * Heaviside(19 * pi - t) * Heaviside(t - 15 * pi) + (171/4 * sin(t + 37/8) + 7/9 * sin(2 * t + 18/13) + 41/10 * sin(3 * t + 40/9) _
   + 6/11 * sin(4 * t + 15/11) + 5012/11) * Heaviside(15 * pi - t) * Heaviside(t - 11 * pi) + (-12/13 * sin(7/5 - 12 * t) - 13/8 * sin(13/11 - 10 * t) _
   + 43/12 * sin(t + 7/9) + 279/35 * sin(2 * t + 9/2) + 201/14 * sin(3 * t + 2/9) + 23/9 * sin(4 * t + 8/7) + 64/9 * sin(5 * t + 14/5) + 83/6 * sin(6 * t + 14/3) _
   + 103/17 * sin(7 * t + 13/4) + 36/13 * sin(8 * t + 46/11) + 22/7 * sin(9 * t + 2/7) + 8/9 * sin(11 * t + 11/4) + 20/11 * sin(13 * t + 74/25) _
   + 5/7 * sin(14 * t + 42/13) + 7/9 * sin(15 * t + 4/7) + 9/11 * sin(16 * t + 17/4) + 7/12 * sin(17 * t + 36/11) + 3437/6) * Heaviside(11 * pi - t) _
   * Heaviside(t - 7 * pi) + (-22/7 * sin(7/9 - 9 * t) - 36/7 * sin(1 - 5 * t) - 181/26 * sin(6/5 - 3 * t) + 28/9 * sin(t + 5/6) + 131/22 * sin(2 * t + 26/7)_
   + 127/13 * sin(4 * t + 23/5) + 21/4 * sin(6 * t + 1/10) + 40/3 * sin(7 * t + 22/23) + 88/13 * sin(8 * t + 23/5) + 115/38 * sin(10 * t + 3/7) _
   + 11/9 * sin(11 * t + 11/8) + 8493/14) * Heaviside(7 * pi - t) * Heaviside(t - 3 * pi) + (-8/7 * sin(16/13 - 10 * t) - 23/10 * sin(4/3 - 7 * t) _
   - 3961/12 * sin(1/19 - t) + 55/3 * sin(2 * t + 13/11) + 9/17 * sin(3 * t + 31/13) + 81/7 * sin(4 * t + 9/2) + 113/17 * sin(5 * t + 13/4)_
   + 40/9 * sin(6 * t + 12/11) + 24/23 * sin(8 * t + 53/21) + 19/8 * sin(9 * t + 3/7) + 3/13 * sin(11 * t + 18/5) + 45/44 * sin(12 * t + 5/7) _
   + 6798/13) * Heaviside(3 * pi - t) * Heaviside(t + pi)) * Heaviside(sqr(sgn(sin(t/2))))
' if t = 0 then move x,y else draw x,y-100
plot 200+x/2,(y)/2
next t
locate 5,2 : ? "Albert Einstein. Une touche pour sortir ..."

repeat : until len(inkey())

rem ================================================================================================
' la fonction de Heaviside (également fonction échelon unité, fonction marche d'escalier),
' du nom d’Oliver Heaviside, est la fonction indicatrice de R+.
' C'est donc la fonction H (discontinue en 0) prenant la valeur 1 pour tous les réels positifs et
' la valeur 0 pour les réels strictement négatifs
FUNCTION Heaviside(h)
   if h < 0 then return 0 else return 1
END_FUNCTION
rem ==================================================================================================

Spoiler:

Sujet: Re: Les programmes de papydall Dim 22 Nov 2020 - 23:58

Code:: rem ============================================================================================
rem Albert Einstein curve
rem ============================================================================================

dim x,y,t,p,w,h
p = pi/2880
w = 800 : h = 600

mode 3,"Albert Einstein Curve",w,h
cls
for t = 0 to 152 * pi step p
   x = ((-199/9 * sin(11/7 - 5 *t) - 35/9 * sin(11/7 - 4 *t) - 356/7 * sin(8/5 - 3 *t) - 60 * sin(8/5 - 2 *t) _
   + 523/6 * sin(t + 8/5) + 7/2 * sin(6 *t + 8/5) - 784/5) * Heaviside(151 * pi - t) * Heaviside(t - 147 * pi)_
   + (-3/7 * sin(11/7 - 5 *t) - 14/3 * sin(8/5 - 3 *t) + 158/3 * sin(t + 8/5) + 155/4 * sin(2 *t + 8/5) _
   + 49/3 * sin(4 *t + 8/5) - 2059/3) * Heaviside(147 * pi - t) * Heaviside(t - 143 * pi) + (535/6 * sin(t + 8/5)_
   + 4 * sin(2 *t + 14/3) + 71/8 * sin(3 *t + 8/5) + 14/5 * sin(5 *t + 8/5) + 1/7 * sin(6 *t + 23/5) + 469/9) _
   * Heaviside(143 * pi - t) * Heaviside(t - 139 * pi) + (11/4 * sin(t + 8/5) + 106/3 * sin(2 *t + 8/5)_
   + 43/14 * sin(3 *t + 14/3) + 23/3 * sin(4 *t + 8/5) + 10/9 * sin(5 *t + 14/3) + 23/6 * sin(6 *t + 8/5) - 179/3)_
   * Heaviside(139 * pi - t) * Heaviside(t - 135 * pi) + (-1/10 * sin(6/5 - 5 *t) - 26/5 * sin(8/5 - 4 *t) - 64/3_
   * sin(8/5 - 2 *t) - 62/7 * sin(8/5 - t) + 1/23 * sin(3 *t + 1/3) - 543/4) * Heaviside(135 * pi - t) _
   * Heaviside(t - 131 * pi) + (-9/4 * sin(3/2 - 121 *t) - 12/5 * sin(3/2 - 120 *t) - 7/8 * sin(5/4 - 118 *t)_
   - 4/5 * sin(5/6 - 115 *t) - 5/3 * sin(6/7 - 113 *t) - 13/5 * sin(4/3 - 105 *t) - 8/3 * sin(5/4 - 97 *t) - 23/5 _
   * sin(7/5 - 94 *t) - 39/5 * sin(7/5 - 90 *t) - 38/5 * sin(7/5 - 87 *t) - 28/3 * sin(11/7 - 80 *t) - 27/5 _
   * sin(3/2 - 75 *t) - 74/5 * sin(3/2 - 74 *t) - 62/7 * sin(4/3 - 71 *t) - 37/5 * sin(7/5 - 67 *t) - 22/5 * sin(3/2 - 65 *t)_
   - 29/4 * sin(5/4 - 63 *t) - 41/4 * sin(7/5 - 59 *t) - 25 * sin(3/2 - 58 *t) - 107/6 * sin(7/5 - 55 *t) - 186/7 _
   * sin(3/2 - 54 *t) - 136/3 * sin(3/2 - 51 *t) - 5 * sin(4/3 - 50 *t) - 25/2 * sin(7/5 - 47 *t) - 23/2 * sin(10/7 - 46 *t)_
   - 127/4 * sin(3/2 - 41 *t) - 55/3 * sin(10/7 - 40 *t) - 71/5 * sin(3/2 - 39 *t) - 66/5 * sin(3/2 - 36 *t) - 241/7 _
   * sin(8/5 - 29 *t) - 20 * sin(11/7 - 25 *t) - 61/4 * sin(11/7 - 22 *t) - 9 * sin(3/2 - 11 *t) - 14/3 * sin(7/5 - 8 *t) _
   - 17/4 * sin(7/5 - 7 *t) - 228/7 * sin(11/7 - 5 *t) - 26 * sin(11/7 - 3 *t) - 4831/16 * sin(8/5 - 2 *t) + 4471/4 _
   * sin(t + 8/5) + 80 * sin(4 *t + 8/5) + 171/4 * sin(6 *t + 8/5) + 49/3 * sin(9 *t + 8/5) + 31/8 * sin(10 *t + 14/3)_
   + 13/4 * sin(12 *t + 9/2) + 77/5 * sin(13 *t + 14/3) + 13/2 * sin(14 *t + 23/5) + 67/3 * sin(15 *t + 33/7) + 118/5 _
   * sin(16 *t + 14/3) + 97/4 * sin(17 *t + 14/3) + 28/5 * sin(18 *t + 5/3) + 122/5 * sin(19 *t + 14/3) + 29/4 _
   * sin(20 *t + 14/3) + 21/2 * sin(21 *t + 8/5) + 47/4 * sin(23 *t + 7/4) + 12 * sin(24 *t + 23/5) + 142/5 _
   * sin(26 *t + 14/3) + 226/9 * sin(27 *t + 23/5) + 61/5 * sin(28 *t + 7/4) + 7/4 * sin(30 *t + 22/5) _
   + 12/5 * sin(31 *t + 10/3) + 82/9 * sin(32 *t + 32/7) + 40/3 * sin(33 *t + 14/3) + 199/5 * sin(34 *t + 14/3)_
   + 17/3 * sin(35 *t + 7/4) + 98/5 * sin(37 *t + 8/5) + 217/5 * sin(38 *t + 8/5) + 25/2 * sin(42 *t + 5/3) _
   + 199/8 * sin(43 *t + 11/7) + 63/5 * sin(44 *t + 11/7) + 52/5 * sin(45 *t + 11/7) + 28/5 * sin(48 *t + 11/6) _
   + 39/2 * sin(49 *t + 7/4) + 17/3 * sin(52 *t + 15/7) + 70/3 * sin(53 *t + 9/5) + 38/5 * sin(56 *t + 23/12) _
   + 131/6 * sin(57 *t + 7/4) + 99/5 * sin(60 *t + 5/3) + 13/3 * sin(61 *t + 9/2) + 21/5 * sin(62 *t + 6/5) _
   + 33/4 * sin(64 *t + 9/5) + 57/8 * sin(66 *t + 11/7) + 25/4 * sin(68 *t + 5/3) + 4/3 * sin(69 *t + 2/5) _
   + 229/12 * sin(70 *t + 8/5) + 7/5 * sin(72 *t + 4/3) + 36/5 * sin(73 *t + 8/5) + 63/5 * sin(76 *t + 8/5) _
   + 10/3 * sin(77 *t + 5/3) + 11/7 * sin(78 *t + 3/2) + 37/4 * sin(79 *t + 8/5) + 11/4 * sin(81 *t + 9/4) _
   + 47/4 * sin(82 *t + 33/7) + 8/3 * sin(83 *t + 14/3) + 15/8 * sin(84 *t + 23/5) + 97/12 * sin(85 *t + 14/3) _
   + 47/4 * sin(86 *t + 8/5) + 17/4 * sin(88 *t + 8/5) + 43/4 * sin(89 *t + 5/3) + 4 * sin(91 *t + 8/5) _
   + 13/5 * sin(92 *t + 23/5) + 13/4 * sin(93 *t + 7/4) + 3/5 * sin(95 *t + 9/4) + 1/4 * sin(96 *t + 1/4)_
   + 3/2 * sin(98 *t + 5/3) + 11/5 * sin(99 *t + 10/7) + 6/5 * sin(100 *t + 3/4) + 10/7 * sin(101 *t + 3/7) _
   + 60/7 * sin(102 *t + 8/5) + 15/7 * sin(103 *t + 11/7) + 23/6 * sin(104 *t + 7/5) + 22/7 * sin(106 *t + 22/5) _
   + 2 * sin(107 *t + 12/5) + 32/3 * sin(108 *t + 14/3) + 11/4 * sin(109 *t + 14/3) + 23/8 * sin(110 *t + 22/5) _
   + 7/4 * sin(111 *t + 25/12) + 5/3 * sin(112 *t + 11/10) + 42/5 * sin(114 *t + 11/7) + 18/5 * sin(116 *t + 8/7) _
   + 23/5 * sin(117 *t + 4/3) + 23/5 * sin(119 *t + 8/5) + 1959/5) * Heaviside(131 * pi - t) * Heaviside(t - 127 * pi) _
   + (-15/2 * sin(3/4 - 104 *t) - 13/7 * sin(9/8 - 101 *t) - 2/5 * sin(3/5 - 100 *t) - 9/2 * sin(3/5 - 99 *t) _
   - 27/4 * sin(26/25 - 96 *t) - 29/4 * sin(3/7 - 93 *t) - 14/3 * sin(3/2 - 92 *t) - 43/11 * sin(3/2 - 90 *t) _
   - 10/3 * sin(7/6 - 84 *t) - 71/7 * sin(5/6 - 83 *t) - 41/8 * sin(7/6 - 80 *t) - 27/5 * sin(5/4 - 78 *t)_
   - 2 * sin(1/4 - 77 *t) - 10/3 * sin(1 - 75 *t) - 62/3 * sin(13/12 - 72 *t) - 92/13 * sin(5/4 - 67 *t) _
   - 109/7 * sin(4/3 - 63 *t) - 61/4 * sin(7/5 - 61 *t) - 39/5 * sin(5/6 - 60 *t) - 14/3 * sin(18/17 - 58 *t) _
   - 151/8 * sin(5/4 - 57 *t) - 31/8 * sin(6/5 - 56 *t) - 14/3 * sin(1/7 - 53 *t) - 119/5 * sin(9/7 - 52 *t)_
   - 78/5 * sin(5/4 - 49 *t) - 90/7 * sin(5/4 - 48 *t) - 206/5 * sin(5/4 - 47 *t) - 109/5 * sin(5/4 - 46 *t) _
   - 153/5 * sin(4/3 - 42 *t) - 445/12 * sin(5/4 - 41 *t) - 289/9 * sin(4/3 - 37 *t) - 137/6 * sin(4/3 - 33 *t)_
   - 13 * sin(5/4 - 32 *t) - 72/5 * sin(7/5 - 31 *t) - 71/5 * sin(4/3 - 28 *t) - 183/5 * sin(7/5 - 27 *t) _
   - 158/5 * sin(7/5 - 24 *t) - 49/10 * sin(7/5 - 20 *t) - 311/8 * sin(10/7 - 19 *t) - 95/4 * sin(10/7 - 18 *t) _
   - 85/3 * sin(3/2 - 16 *t) - 329/8 * sin(3/2 - 15 *t) - 297/5 * sin(3/2 - 11 *t) - 238/5 * sin(3/2 - 10 *t) _
   - 187/5 * sin(3/2 - 9 *t) - 197/2 * sin(3/2 - 6 *t) - 1671/11 * sin(11/7 - 5 *t) - 894/5 * sin(11/7 - 3 *t)_
   + 12068/9 * sin(t + 8/5) + 45/4 * sin(2 *t + 8/5) + 121/10 * sin(4 *t + 8/5) + 323/12 * sin(7 *t + 33/7)_
   + 77/5 * sin(8 *t + 8/5) + 97/5 * sin(12 *t + 8/5) + 135/8 * sin(13 *t + 7/4) + 13/3 * sin(14 *t + 14/3)_
   + 11/4 * sin(17 *t + 9/2) + 56/3 * sin(21 *t + 7/4) + 201/4 * sin(22 *t + 7/4) + 25/7 * sin(23 *t + 9/5)_
   + 3/5 * sin(25 *t + 3) + 207/13 * sin(26 *t + 7/4) + 39/2 * sin(29 *t + 15/8) + 172/5 * sin(30 *t + 7/4) _
   + 215/9 * sin(34 *t + 7/4) + 35 * sin(35 *t + 11/6) + 13/7 * sin(36 *t + 4/3) + 7/3 * sin(38 *t + 4/3) _
   + 33/2 * sin(39 *t + 2) + 5/2 * sin(40 *t + 35/17) + 29 * sin(43 *t + 13/7) + 10 * sin(44 *t + 19/9) _
   + 35/9 * sin(45 *t + 27/13) + 65/6 * sin(50 *t + 19/9) + 145/4 * sin(51 *t + 15/8) + 10/3 * sin(54 *t + 4) _
   + 27/4 * sin(55 *t + 15/8) + 49/6 * sin(59 *t + 14/3) + 275/12 * sin(62 *t + 17/9) + 11/3 * sin(64 *t + 1/5) _
   + 24/7 * sin(65 *t + 4) + 13/4 * sin(66 *t + 1/10) + 82/5 * sin(68 *t + 49/24) + 37/9 * sin(69 *t + 13/7) _
   + 16/5 * sin(70 *t + 5/2) + 19/2 * sin(71 *t + 13/7) + 31/7 * sin(73 *t + 11/6) + 55/4 * sin(74 *t + 13/6) _
   + 22/7 * sin(76 *t + 49/24) + 35/3 * sin(79 *t + 25/13) + 19/3 * sin(81 *t + 27/13) + 49/16 * sin(82 *t + 5/2)_
   + 43/6 * sin(85 *t + 17/8) + 10/7 * sin(86 *t + 18/7) + 76/11 * sin(87 *t + 13/7) + 8/5 * sin(88 *t + 17/4) _
   + 37/6 * sin(89 *t + 8/5) + 25/2 * sin(91 *t + 2) + 5/2 * sin(94 *t + 7/2) + 131/12 * sin(95 *t + 21/10) _
   + 17/3 * sin(97 *t + 2) + 11/6 * sin(98 *t + 17/6) + 11/6 * sin(102 *t + 18/7) + 23/12 * sin(103 *t + 5/2) _
   + 407/4) * Heaviside(127 * pi - t) * Heaviside(t - 123 * pi) + (-1/4 * sin(1/6 - 61 *t) - 1/6 * sin(3/4 - 60 *t) _
   - 1/3 * sin(4/3 - 46 *t) - 1/4 * sin(5/4 - 33 *t) + 158 * sin(t + 8/5) + 240 * sin(2 *t + 14/3) + 321/7 * sin(3 *t + 14/3) _
   + 92/3 * sin(4 *t + 14/3) + 118/5 * sin(5 *t + 3/2) + 23/4 * sin(6 *t + 14/3) + 6/5 * sin(7 *t + 7/5) _
   + 29/3 * sin(8 *t + 14/3) + 22/3 * sin(9 *t + 14/3) + 1/4 * sin(10 *t + 17/4) + 37/6 * sin(11 *t + 10/7) _
   + 52/5 * sin(12 *t + 3/2) + 9/2 * sin(13 *t + 10/7) + 61/5 * sin(14 *t + 23/5) + 39/4 * sin(15 *t + 23/5) _
   + 2 * sin(16 *t + 3/2) + 26/5 * sin(17 *t + 4/3) + 31/4 * sin(18 *t + 10/7) + 66/5 * sin(19 *t + 23/5) _
   + 25/3 * sin(20 *t + 9/2) + 7/4 * sin(21 *t + 19/4) + 53/6 * sin(22 *t + 7/5) + 41/10 * sin(23 *t + 4/3) _
   + 13/3 * sin(24 *t + 9/2) + 25/2 * sin(25 *t + 9/2) + 7/5 * sin(26 *t + 3/2) + 12/5 * sin(27 *t + 32/7) _
   + 18/5 * sin(28 *t + 4/3) + 22/7 * sin(29 *t + 9/2) + 10/3 * sin(30 *t + 9/2) + 7/3 * sin(31 *t + 4/3) _
   + 49/12 * sin(32 *t + 5/4) + 22/5 * sin(34 *t + 4/3) + 35/9 * sin(35 *t + 31/7) + 3/2 * sin(36 *t + 13/3) _
   + 5/3 * sin(37 *t + 22/5) + 31/7 * sin(38 *t + 31/7) + 76/11 * sin(39 *t + 5/4) + 4/5 * sin(40 *t + 1) _
   + 3/2 * sin(41 *t + 5/4) + 5/2 * sin(42 *t + 6/5) + 43/11 * sin(43 *t + 13/3) + 4/3 * sin(44 *t + 7/6) _
   + 13/3 * sin(45 *t + 30/7) + 35/12 * sin(47 *t + 5/4) + 1/3 * sin(48 *t + 3/4) + 7/4 * sin(49 *t + 5/4) _
   + 71/10 * sin(50 *t + 13/3) + 13/4 * sin(51 *t + 5/4) + 6/7 * sin(52 *t + 31/7) + 3/2 * sin(53 *t + 6/5) _
   + 5/3 * sin(54 *t + 22/5) + 3/2 * sin(55 *t + 17/4) + 7/4 * sin(56 *t + 7/6) + 35/17 * sin(57 *t + 17/4) _
   + 5/4 * sin(58 *t + 22/5) + 39/8 * sin(59 *t + 7/6) + 1/3 * sin(62 *t + 17/5) + 7/8 * sin(63 *t + 13/3) _
   + 9/4 * sin(64 *t + 21/5) + 3/4 * sin(65 *t + 26/25) + 1/3 * sin(66 *t + 17/7) + 11/5 * sin(67 *t + 22/5) _
   + 14/5 * sin(68 *t + 8/7) + 7/8 * sin(69 *t + 4/7) + 5/4 * sin(70 *t + 69/17) + 3/2 * sin(71 *t + 13/3) _
   + 21/11 * sin(72 *t + 6/5) + 9/4 * sin(73 *t + 13/3) + 2/3 * sin(74 *t + 5/3) + 13/4 * sin(75 *t + 17/4) _
   + 6/7 * sin(76 *t + 5/4) + 8/5 * sin(77 *t + 22/5) + 5/3 * sin(78 *t + 6/5) + 13/5 * sin(79 *t + 13/3) _
   + 1/2 * sin(80 *t + 13/6) + 9/8 * sin(81 *t + 23/5) - 633/5) * Heaviside(123 * pi - t) * Heaviside(t - 119 * pi) _
   + (-3/5 * sin(3/2 - 6 *t) - 3/2 * sin(3/2 - 4 *t) - 196/15 * sin(8/5 - 3 *t) - 25/6 * sin(8/5 - 2 *t) _
   - 682/5 * sin(8/5 - t) + 23/5 * sin(5 *t + 33/7) - 510) * Heaviside(119 * pi - t) * Heaviside(t - 115 * pi) _
   + (-1/7 * sin(5/4 - 6 *t) - 67/17 * sin(11/7 - 5 *t) - 1/2 * sin(7/5 - 4 *t) - 35/3 * sin(8/5 - 3 *t) - 601/5 * sin(8/5 - t) _
   + 1/9 * sin(2 *t + 8/7) + 722/5) * Heaviside(115 * pi - t) * Heaviside(t - 111 * pi) + (-11/5 * sin(8/5 - 5 *t)_
   - 29/4 * sin(8/5 - 3 *t) - 181 * sin(8/5 - t) + 25/3 * sin(2 *t + 8/5) + 7/6 * sin(4 *t + 8/5) - 521)_
   * Heaviside(111 * pi - t) * Heaviside(t - 107 * pi) + (563/3 * sin(t + 8/5) + 16/5 * sin(2 *t + 8/5) _
   + 52/5 * sin(3 *t + 8/5) + 5/4 * sin(4 *t + 14/3) + 11/2 * sin(5 *t + 8/5) + 1/19 * sin(6 *t + 14/3) _
   + 158) * Heaviside(107 * pi - t) * Heaviside(t - 103 * pi) + (-121/2 * sin(8/5 - t)_
   + 113/7 * sin(2 *t + 33/7) + 5/2 * sin(3 *t + 14/3) + 14/3 * sin(4 *t + 19/4) + 14/5 * sin(5 *t + 19/4)_
   - 1067/4) * Heaviside(103 * pi - t) * Heaviside(t - 99 * pi) + (-16/5 * sin(8/5 - 3 *t) _
   - 64/7 * sin(8/5 - t) + 6 * sin(2 *t + 8/5) + 7/4 * sin(4 *t + 8/5) + 4/3 * sin(5 *t + 19/4) - 598/7) _
   * Heaviside(99 * pi - t) * Heaviside(t - 95 * pi) + (-8/5 * sin(8/5 - 6 *t) - 185/4 * sin(8/5 - 2 *t) _
   + 301/3 * sin(t + 8/5) + 31/6 * sin(3 *t + 8/5) + 17/5 * sin(4 *t + 8/5) + 19/3 * sin(5 *t + 8/5) + 707/4) _
   * Heaviside(95 * pi - t) * Heaviside(t - 91 * pi) + (-17/9 * sin(3/2 - 28 *t) - 8/5 * sin(3/2 - 27 *t) _
   - 11/4 * sin(3/2 - 26 *t) - 5/4 * sin(3/2 - 25 *t) - 2 * sin(3/2 - 24 *t) - 33/2 * sin(3/2 - 18 *t) _
   - 16/3 * sin(3/2 - 17 *t) - 88/5 * sin(11/7 - 12 *t) - 45/2 * sin(3/2 - 11 *t) - 235/7 * sin(11/7 - 8 *t) _
   - 122/5 * sin(11/7 - 7 *t) - 29/2 * sin(11/7 - 6 *t) - 946/21 * sin(11/7 - 3 *t) + 512/3 * sin(t + 8/5) _
   + 109/2 * sin(2 *t + 8/5) + 199/5 * sin(4 *t + 8/5) + 173/6 * sin(5 *t + 8/5) + 23/5 * sin(9 *t + 8/5) _
   + 1/4 * sin(10 *t + 16/5) + 17/4 * sin(13 *t + 8/5) + 8/9 * sin(14 *t + 5/3) + 21/2 * sin(15 *t + 8/5) _
   + 71/6 * sin(16 *t + 8/5) + 3 * sin(19 *t + 5/3) + 1/8 * sin(20 *t + 10/3) + 4/5 * sin(21 *t + 3/2) _
   + 14/3 * sin(22 *t + 5/3) + 47/12 * sin(23 *t + 8/5) + 2 * sin(29 *t + 5/3) - 722/3) * Heaviside(91 * pi - t) _
   * Heaviside(t - 87 * pi) + (-1/3 * sin(11/7 - 10 *t) - 10/3 * sin(8/5 - 7 *t) - 10/3 * sin(8/5 - 4 *t) _
   - 111/5 * sin(8/5 - 3 *t) + 391/10 * sin(t + 8/5) + 483/11 * sin(2 *t + 8/5) + 1/3 * sin(5 *t + 8/5) _
   + 2/5 * sin(6 *t + 14/3) + 24/7 * sin(8 *t + 8/5) + 1/4 * sin(9 *t + 8/5) - 2427/5) * Heaviside(87 * pi - t) _
   * Heaviside(t - 83 * pi) + (-9/5 * sin(8/5 - 10 *t) - 25/4 * sin(8/5 - 6 *t) - 2/5 * sin(3/2 - 4 *t) _
   - 94 * sin(8/5 - 2 *t) - 32/7 * sin(11/7 - t) + 73/9 * sin(3 *t + 8/5) + 17/5 * sin(5 *t + 8/5) _
   + 11/5 * sin(7 *t + 8/5) + 1/11 * sin(8 *t + 14/3) + 9/4 * sin(9 *t + 8/5) + 333/5) * Heaviside(83 * pi - t) _
   * Heaviside(t - 79 * pi) + (-19/4 * sin(8/5 - 7 *t) - 5/2 * sin(8/5 - 6 *t) - 7/2 * sin(8/5 - 4 *t) _
   - 135/7 * sin(8/5 - 3 *t) - 69/4 * sin(8/5 - 2 *t) - 963/7 * sin(8/5 - t) + 8 * sin(5 *t + 19/4) + 4247/9) _
   * Heaviside(79 * pi - t) * Heaviside(t - 75 * pi) + (-19/3 * sin(11/7 - 6 *t) - 67/6 * sin(11/7 - 5 *t)_
   - 32/7 * sin(3/2 - 4 *t) - 125/4 * sin(8/5 - 3 *t) - 161/5 * sin(11/7 - 2 *t) - 433/4 * sin(8/5 - t) + 280) _
   * Heaviside(75 * pi - t) * Heaviside(t - 71 * pi) + (298/3 * sin(t + 8/5) + 937/24 * sin(2 *t + 8/5) _
   + 34/5 * sin(3 *t + 19/4) + 129/8 * sin(4 *t + 8/5) + 21/10 * sin(5 *t + 14/3) + 13/2 * sin(6 *t + 8/5)_
   + 10/11 * sin(7 *t + 14/3) + 16/5 * sin(8 *t + 8/5) + 1/4 * sin(9 *t + 11/6) + 43/14 * sin(10 *t + 8/5) - 1191/2)_
   * Heaviside(71 * pi - t) * Heaviside(t - 67 * pi) + (-1/4 * sin(10/9 - 9 *t) - 63/2 * sin(8/5 - 6 *t) _
   - 80/3 * sin(8/5 - 4 *t) - 128/5 * sin(8/5 - t) + 10 * sin(2 *t + 8/5) + 25/2 * sin(3 *t + 8/5) _
   + 51/2 * sin(5 *t + 8/5) + 4 * sin(7 *t + 33/7) + 125/6 * sin(8 *t + 8/5) + 19/3 * sin(10 *t + 14/3) - 2787/4) _
   * Heaviside(67 * pi - t) * Heaviside(t - 63 * pi) + (-7/3 * sin(3/2 - 22 *t) - 18/7 * sin(3/2 - 21 *t)_
   - 29/10 * sin(3/2 - 20 *t) - 35/3 * sin(11/7 - 17 *t) - 80/3 * sin(11/7 - 15 *t) - 161/3 * sin(11/7 - 13 *t) _
   - 58/5 * sin(3/2 - 12 *t) - 97/3 * sin(11/7 - 9 *t) - 157/4 * sin(11/7 - 8 *t) - 317/6 * sin(11/7 - 7 *t) _
   - 133/4 * sin(11/7 - 6 *t) - 65/3 * sin(11/7 - 5 *t) - 113/4 * sin(11/7 - 4 *t) - 228/7 * sin(8/5 - 3 *t) _
   - 283/4 * sin(8/5 - 2 *t) - 417/5 * sin(8/5 - t) + 5/4 * sin(10 *t + 3/2) + 317/6 * sin(11 *t + 8/5) _
   + 118/3 * sin(14 *t + 8/5) + 11/4 * sin(16 *t + 10/7) + 17/2 * sin(18 *t + 8/5) + 4/5 * sin(19 *t + 7/4) _
   + 4/3 * sin(23 *t + 8/5) + 1641/4) * Heaviside(63 * pi - t) * Heaviside(t - 59 * pi) + (-17/2 * sin(11/7 - 10 *t)_
   - 24/5 * sin(3/2 - 8 *t) - 72/5 * sin(8/5 - 6 *t) - 3/4 * sin(7/5 - 5 *t) - 122/3 * sin(8/5 - 4 *t) - 225 * sin(8/5 - 2 *t) _
   - 88/5 * sin(11/7 - t) + 19/4 * sin(3 *t + 3/2) + 3 * sin(7 *t + 8/5) + 1/3 * sin(9 *t + 5/3) + 1938/7) _
   * Heaviside(59 * pi - t) * Heaviside(t - 55 * pi) + (2311/15 * sin(t + 8/5) + 27/5 * sin(2 *t + 14/3) _
   + 441/22 * sin(3 *t + 8/5) + 27/7 * sin(4 *t + 14/3) + 27/5 * sin(5 *t + 8/5) + 5/3 * sin(6 *t + 14/3) _
   + 9/4 * sin(7 *t + 8/5) + 15/14 * sin(8 *t + 33/7) + 7/4 * sin(9 *t + 8/5) + 2/3 * sin(10 *t + 33/7) + 2037/4)_
   * Heaviside(55 * pi - t) * Heaviside(t - 51 * pi) + (-49/4 * sin(4/3 - 3 *t) + 263/5 * sin(t + 3/2) _
   + 3116/5 * sin(2 *t + 11/7) + 195/7 * sin(4 *t + 9/2) + 6/5 * sin(5 *t + 4/5) + 377/9 * sin(6 *t + 3/2) _
   + 49/3 * sin(7 *t + 14/3) + 38/5 * sin(8 *t + 11/7) + 3/4 * sin(9 *t + 3/5) + 26/3 * sin(10 *t + 5/3) - 127/6)_
   * Heaviside(51 * pi - t) * Heaviside(t - 47 * pi) + (-11/4 * sin(3/2 - 9 *t) - 21/5 * sin(11/7 - 7 *t) _
   - 239/4 * sin(8/5 - 3 *t) + 1673/3 * sin(t + 8/5) + 391/2 * sin(2 *t + 8/5) + 70 * sin(4 *t + 8/5) _
   + 127/7 * sin(5 *t + 14/3) + 91/5 * sin(6 *t + 8/5) + 97/12 * sin(8 *t + 8/5) + 11/2 * sin(10 *t + 8/5) - 581/3)_
   * Heaviside(47 * pi - t) * Heaviside(t - 43 * pi) + (-1/6 * sin(4/5 - 28 *t) - 17/3 * sin(11/7 - 27 *t) _
   - 6/7 * sin(3/2 - 26 *t) - 3/4 * sin(11/7 - 25 *t) - 23/8 * sin(11/7 - 23 *t) - 121/8 * sin(11/7 - 15 *t) _
   - 75/4 * sin(11/7 - 14 *t) - 33/5 * sin(11/7 - 13 *t) - 17/5 * sin(8/5 - 6 *t) + 157 * sin(t + 8/5) _
   + 4/5 * sin(2 *t + 14/3) + 92/5 * sin(3 *t + 8/5) + 51/4 * sin(4 *t + 8/5) + 18/5 * sin(5 *t + 8/5) _
   + 1/3 * sin(7 *t + 10/7) + 13/3 * sin(8 *t + 11/7) + 9/4 * sin(9 *t + 33/7) + 5/3 * sin(10 *t + 14/3) _
   + 58/5 * sin(11 *t + 8/5) + 87/4 * sin(12 *t + 8/5) + 73/5 * sin(16 *t + 8/5) + 21/4 * sin(17 *t + 8/5) _
   + 4/5 * sin(18 *t + 9/2) + 177/11 * sin(19 *t + 8/5) + 1/2 * sin(20 *t + 8/5) + 19/6 * sin(21 *t + 8/5) _
   + 66/7 * sin(22 *t + 8/5) + 51/10 * sin(24 *t + 8/5) + 978/5) * Heaviside(43 * pi - t) * Heaviside(t - 39 * pi)_
   + (-19/7 * sin(8/5 - 23 *t) - 27/4 * sin(8/5 - 16 *t) - 44/5 * sin(11/7 - 14 *t) - 7/3 * sin(8/5 - 11 *t) _
   - 3/2 * sin(3/2 - 7 *t) - 546/5 * sin(8/5 - t) + 21/2 * sin(2 *t + 8/5) + 5/4 * sin(3 *t + 3/2) _
   + 157/7 * sin(4 *t + 8/5) + 51/5 * sin(5 *t + 8/5) + 71/9 * sin(6 *t + 8/5) + 3 * sin(8 *t + 8/5) _
   + 29/5 * sin(9 *t + 8/5) + 58/7 * sin(10 *t + 8/5) + 1/8 * sin(12 *t + 17/7) + 11/4 * sin(13 *t + 14/3) _
   + 104/5 * sin(15 *t + 8/5) + 175/11 * sin(17 *t + 19/4) + 50/3 * sin(18 *t + 8/5) + 16/3 * sin(19 *t + 3/2)_
   + 11/4 * sin(20 *t + 8/5) + 48/5 * sin(21 *t + 14/3) + 1/4 * sin(22 *t + 10/3) + 23/7 * sin(24 *t + 8/5) _
   + 1/4 * sin(25 *t + 4/3) + 10/3 * sin(26 *t + 3/2) + 9/4 * sin(27 *t + 11/7) - 2285/4) * Heaviside(39 * pi - t) _
   * Heaviside(t - 35 * pi) + (-29/5 * sin(11/7 - 13 *t) - 58/5 * sin(3/2 - 11 *t) - 53/6 * sin(3/2 - 8 *t) _
   - 45/4 * sin(11/7 - 7 *t) - 109/5 * sin(11/7 - 6 *t) - 183/4 * sin(11/7 - 5 *t) - 152/5 * sin(11/7 - 4 *t)_
   - 44/3 * sin(11/7 - 2 *t) + 286/5 * sin(t + 8/5) + 161/2 * sin(3 *t + 8/5) + 19/4 * sin(9 *t + 8/5) _
   + 65/3 * sin(10 *t + 8/5) + 3/2 * sin(12 *t + 3/2) + 27/7 * sin(14 *t + 8/5) + 4632/5) * Heaviside(35 * pi - t) _
   * Heaviside(t - 31 * pi) + (664/3 * sin(t + 3/5) + 83/3 * sin(2 *t + 13/3) + 78/5 * sin(3 *t + 12/5) _
   + 48/7 * sin(4 *t + 11/4) + 32/5 * sin(5 *t + 1/8) + 32/7 * sin(6 *t + 14/3) + 2/5 * sin(7 *t + 3) _
   + 10/11 * sin(8 *t + 7/4) + 2 * sin(9 *t + 3/4) + 11/5 * sin(10 *t + 25/6) - 1193/6) * Heaviside(31 * pi - t) _
   * Heaviside(t - 27 * pi) + (-10/3 * sin(1/4 - 3 *t) - 15/4 * sin(2/5 - t) + 15/4 * sin(2 *t + 35/9) + 2/3 * sin(4 *t + 3) _
   + 26/5 * sin(5 *t + 16/7) + 47/3 * sin(6 *t + 7/4) + 25/24 * sin(7 *t + 4) + 2 * sin(8 *t + 17/4) + 8/3 * sin(9 *t + 7/8)_
   + 2 * sin(10 *t + 17/5) - 943/2) * Heaviside(27 * pi - t) * Heaviside(t - 23 * pi) + (-17/6 * sin(4/7 - 10 *t) _
   - 19/2 * sin(1 - 6 *t) - 23/4 * sin(2/3 - 4 *t) - 40/7 * sin(9/8 - t) + 35/9 * sin(2 *t + 22/5) + 29/6 * sin(3 *t + 2/5)_
   + 38/7 * sin(5 *t + 17/5) + 71/6 * sin(7 *t + 23/5) + 11/4 * sin(8 *t + 5/4) + 7/3 * sin(9 *t + 19/9) + 1326/7) _
   * Heaviside(23 * pi - t) * Heaviside(t - 19 * pi) + (259/4 * sin(t + 5/4) + 25/7 * sin(2 *t + 10/9) - 476) _
   * Heaviside(19 * pi - t) * Heaviside(t - 15 * pi) + (-41/14 * sin(1/2 - 3 *t) + 131/2 * sin(t + 1) _
   + 2/5 * sin(2 *t + 23/6) + 1/2 * sin(4 *t + 17/4) + 548/3) * Heaviside(15 * pi - t)_
   * Heaviside(t - 11 * pi) + (-8/7 * sin(2/3 - 10 *t) - 6/7 * sin(1/5 - 9 *t) - 39/19 * sin(6/7 - 8 *t) - 13/7 * sin(3/5 - 7 *t)_
   - 15/4 * sin(7/6 - 6 *t) - 11/4 * sin(2/3 - 5 *t) - 5 * sin(4/3 - 4 *t) _
   + 479/4 * sin(t + 3/2) + 47/6 * sin(2 *t + 23/5) + 19/4 * sin(3 *t + 5/4) - 474) * Heaviside(11 * pi - t) _
   * Heaviside(t - 7 * pi) + (-15/4 * sin(7/6 - 3 *t) - 676/5 * sin(7/5 - t) + 11 * sin(2 *t + 9/5) + 7 * sin(4 *t + 9/4)_
   + 15/4 * sin(5 *t + 23/7) + 34/7 * sin(6 *t + 3) + 4 * sin(7 *t + 19/5) + 3 * sin(8 *t + 11/3) + 35/12 * sin(9 *t + 13/3)_
   + 7/5 * sin(10 *t + 17/4) + 937/7) * Heaviside(7 * pi - t) * Heaviside(t - 3 * pi) + (-52/7 * sin(1/13 - 9 *t)_
   - 15/2 * sin(4/7 - 8 *t) - 73/5 * sin(9/7 - 7 *t) - 576/25 * sin(7/6 - 2 *t) + 4252/5 * sin(t + 13/6) + 413/5 * sin(3 *t + 1/3) _
   + 93/5 * sin(4 *t + 9/4) + 58/5 * sin(5 *t + 61/20) + 49/2 * sin(6 *t + 23/6) + 33/8 * sin(10 *t + 8/9) + 34/3)_
   * Heaviside(3 * pi - t) * Heaviside(t + pi)) * Heaviside(sqr(sgn(sin(t/2))))

   y = ((-683/4 * sin(8/5 - 3 *t) - 902/17 * sin(11/7 - 2 *t) + 13/2 * sin(t + 11/7) + 280/9 * sin(4 *t + 8/5)_
   + 10/3 * sin(5 *t + 14/3) + 41/7 * sin(6 *t + 11/7) - 1767/2) * Heaviside(151 * pi - t) _
   * Heaviside(t - 147 * pi) + (-69/2 * sin(8/5 - 3 *t) - 1677/5 * sin(8/5 - t) + 7/3 * sin(2 *t + 8/5) _
   + 2/5 * sin(4 *t + 11/7) + 47/4 * sin(5 *t + 33/7) - 7019/13) * Heaviside(147 * pi - t)_
   * Heaviside(t - 143 * pi) + (303/5 * sin(t + 8/5) + 47/8 * sin(2 *t + 8/5) + 63/8 * sin(3 *t + 8/5)_
   + 2/5 * sin(4 *t + 14/3) + 11/3 * sin(5 *t + 8/5) - 24376/25) * Heaviside(143 * pi - t)_
   * Heaviside(t - 139 * pi) + (-7/6 * sin(3/2 - 6 *t) - 12/5 * sin(11/7 - 4 *t) - 34/5 * sin(8/5 - 3 *t)_
   - 5/2 * sin(11/7 - 2 *t) - 487/4 * sin(8/5 - t) + 2 * sin(5 *t + 33/7) + 2177/16)_
   * Heaviside(139 * pi - t) * Heaviside(t - 135 * pi) + (-14/5 * sin(8/5 - 5 *t) _
   - 39/5 * sin(8/5 - 3 *t) - 389/4 * sin(8/5 - t) + 4/3 * sin(2 *t + 11/7) + 1/7 * sin(4 *t + 5/4)_
   - 331/2) * Heaviside(135 * pi - t) * Heaviside(t - 131 * pi) + (-7/8 * sin(3/4 - 119 *t)_
   - 33/4 * sin(7/5 - 118 *t) - 34/7 * sin(4/3 - 115 *t) - 19/4 * sin(10/7 - 112 *t) _
   - 11/4 * sin(10/11 - 109 *t) - 43/5 * sin(7/6 - 106 *t) - 31/4 * sin(7/5 - 103 *t) _
   - 7/3 * sin(3/2 - 101 *t) - 25/4 * sin(8/5 - 97 *t) - 46/7 * sin(7/5 - 92 *t) - 2 * sin(5/4 - 89 *t)_
   - 19/10 * sin(1 - 88 *t) - 27/5 * sin(3/2 - 83 *t) - 94/7 * sin(3/2 - 81 *t) - 37/5 * sin(7/5 - 78 *t) _
   - 16/3 * sin(3/2 - 76 *t) - 13/3 * sin(3/2 - 75 *t) - 12/5 * sin(4/5 - 71 *t) - 13/6 * sin(2/3 - 69 *t) _
   - 73/4 * sin(7/5 - 67 *t) - 181/9 * sin(7/5 - 65 *t) - 19/18 * sin(4/3 - 63 *t) - 32/3 * sin(7/5 - 61 *t) _
   - 75/4 * sin(10/7 - 57 *t) - 33/8 * sin(4/3 - 56 *t) - 6 * sin(4/3 - 54 *t) - 35/4 * sin(10/7 - 49 *t) _
   - 101/4 * sin(3/2 - 48 *t) - 142/3 * sin(8/5 - 38 *t) - 15/4 * sin(4/3 - 18 *t) - 78/5 * sin(3/2 - 17 *t)_
   - 59/4 * sin(8/5 - 16 *t) - 1162/3 * sin(8/5 - 2 *t) - 1555/3 * sin(8/5 - t) + 952/3 * sin(3 *t + 8/5) _
   + 92/5 * sin(4 *t + 11/7) + 474/5 * sin(5 *t + 11/7) + 31/3 * sin(6 *t + 7/5) + 271/4 * sin(7 *t + 8/5)_
   + 185/6 * sin(8 *t + 3/2) + 229/5 * sin(9 *t + 11/7) + 127/4 * sin(10 *t + 11/7) + 121/4 * sin(11 *t + 8/5) _
   + 45/4 * sin(12 *t + 8/5) + 26/3 * sin(13 *t + 33/7) + 31/4 * sin(14 *t + 14/3) + 155/11 * sin(15 *t + 14/3) _
   + 149/6 * sin(19 *t + 11/7) + 164/11 * sin(20 *t + 3/2) + 305/6 * sin(21 *t + 11/7) + 208/9 * sin(22 *t + 3/2) _
   + 389/13 * sin(23 *t + 3/2) + 243/4 * sin(24 *t + 3/2) + 133/5 * sin(25 *t + 10/7) + 34 * sin(26 *t + 10/7)_
   + 104/5 * sin(27 *t + 7/5) + 58/3 * sin(28 *t + 7/5) + 32/3 * sin(29 *t + 7/5) + 40/3 * sin(30 *t + 7/5) _
   + 98/5 * sin(31 *t + 10/7) + 92/3 * sin(32 *t + 3/2) + 222/5 * sin(33 *t + 3/2) + 231/8 * sin(34 *t + 3/2) _
   + 253/21 * sin(35 *t + 8/5) + 150/7 * sin(36 *t + 14/3) + 351/8 * sin(37 *t + 14/3) + 77/4 * sin(39 *t + 14/3)_
   + 157/5 * sin(40 *t + 5/3) + 172/5 * sin(41 *t + 5/3) + 17/9 * sin(42 *t + 12/5) + 32 * sin(43 *t + 19/4) _
   + 350/13 * sin(44 *t + 14/3) + 155/7 * sin(45 *t + 23/5) + 80/7 * sin(46 *t + 13/7) + 8/3 * sin(47 *t + 25/6)_
   + 77/4 * sin(50 *t + 5/3) + 172/7 * sin(51 *t + 5/3) + 29/5 * sin(52 *t + 6/5) + 14/5 * sin(53 *t + 1/2) _
   + 375/17 * sin(55 *t + 5/3) + 19/3 * sin(58 *t + 8/5) + 32/11 * sin(59 *t + 31/7) + 66/7 * sin(60 *t + 5/3)_
   + 11/4 * sin(62 *t + 8/5) + 132/5 * sin(64 *t + 8/5) + 101/4 * sin(66 *t + 8/5) + 55/4 * sin(68 *t + 8/5) _
   + 64/5 * sin(70 *t + 11/7) + 12 * sin(72 *t + 3/2) + 8/3 * sin(73 *t + 4/3) + 16/3 * sin(74 *t + 5/3) _
   + 30/7 * sin(77 *t + 7/4) + 32/3 * sin(79 *t + 5/3) + 8/5 * sin(80 *t + 4/3) + 7 * sin(82 *t + 8/5) _
   + 17/6 * sin(84 *t + 5/4) + 61/4 * sin(85 *t + 5/3) + 17/5 * sin(86 *t + 4/3) + 18/5 * sin(87 *t + 5/4)_
   + 51/10 * sin(90 *t + 7/4) + 6/5 * sin(91 *t + 30/7) + 5/4 * sin(93 *t + 9/4) + 47/8 * sin(94 *t + 14/3)_
   + 5/2 * sin(95 *t + 15/7) + 17/6 * sin(96 *t + 13/6) + 7/4 * sin(98 *t + 23/5) + 3 * sin(99 *t + 49/24) _
   + 4/5 * sin(100 *t + 22/5) + 11/4 * sin(102 *t + 10/7) + 23/8 * sin(104 *t + 8/5) + 55/6 * sin(105 *t + 11/7) _
   + 12 * sin(107 *t + 3/2) + 58/5 * sin(108 *t + 8/5) + 9/4 * sin(110 *t + 4/5) + 4/3 * sin(111 *t + 7/4) _
   + 5/4 * sin(113 *t + 9/4) + 19/5 * sin(114 *t + 8/5) + 12/5 * sin(116 *t + 19/9) + 10/3 * sin(117 *t + 5/3) _
   + 13/2 * sin(120 *t + 8/5) + sin(121 *t + 1/11) + 3707/7) * Heaviside(131 * pi - t) * Heaviside(t - 127 * pi)_
   + (-15/4 * sin(5/6 - 103 *t) - 11/2 * sin(11/12 - 100 *t) - 8/3 * sin(15/14 - 98 *t) - 31/8 * sin(5/6 - 97 *t) _
   - 48/5 * sin(26/25 - 95 *t) - 7/2 * sin(4/7 - 94 *t) - 5 * sin(3/4 - 89 *t) - 18/5 * sin(1 - 83 *t) - 13/5 * sin(25/24 - 80 *t)_
   - 25/4 * sin(5/6 - 79 *t) - 6 * sin(6/7 - 76 *t) - 55/6 * sin(13/12 - 70 *t) - 31/7 * sin(1 - 69 *t) - 3 * sin(5/4 - 68 *t) _
   - 44/5 * sin(7/6 - 67 *t) - 18 * sin(7/5 - 63 *t) - 151/6 * sin(10/7 - 61 *t) - 57/7 * sin(1/22 - 60 *t) _
   - 91/4 * sin(7/5 - 59 *t) - 34/5 * sin(5/4 - 57 *t) - 23 * sin(7/6 - 56 *t) - 49/3 * sin(5/4 - 52 *t) _
   - 31/5 * sin(8/5 - 49 *t) - 58/5 * sin(4/3 - 45 *t) - 41/3 * sin(6/5 - 44 *t) - 28/5 * sin(5/4 - 43 *t) _
   - 46/5 * sin(5/4 - 42 *t) - 27/2 * sin(5/4 - 38 *t) - 183/4 * sin(7/5 - 37 *t) - 81/7 * sin(4/3 - 36 *t) _
   - 245/6 * sin(7/5 - 35 *t) - 143/7 * sin(5/4 - 34 *t) - 25/7 * sin(3/2 - 24 *t) - 49/6 * sin(10/7 - 23 *t) _
   - 107/4 * sin(10/7 - 22 *t) - 64/3 * sin(7/5 - 21 *t) - 17/6 * sin(6/5 - 14 *t) - 43/4 * sin(3/2 - 12 *t) _
   - 2809/3 * sin(11/7 - 2 *t) - 336/5 * sin(11/7 - t) + 434/5 * sin(3 *t + 8/5) + 369/16 * sin(4 *t + 14/3) _
   + 197/3 * sin(5 *t + 8/5) + 295/3 * sin(6 *t + 8/5) + 23/5 * sin(7 *t + 12/7) + 36/7 * sin(8 *t + 7/5) _
   + 4/3 * sin(9 *t + 13/3) + 31/2 * sin(10 *t + 5/3) + 7/3 * sin(11 *t + 5/3) + 208/11 * sin(13 *t + 5/3) _
   + 139/5 * sin(15 *t + 5/3) + 208/3 * sin(16 *t + 5/3) + 171/4 * sin(17 *t + 5/3) + 589/12 * sin(18 *t + 5/3)_
   + 131/4 * sin(19 *t + 5/3) + 38/7 * sin(20 *t + 5/3) + 99/4 * sin(25 *t + 7/4) + 137/3 * sin(26 *t + 5/3) _
   + 101/4 * sin(27 *t + 7/4) + 109/2 * sin(28 *t + 5/3) + 35 * sin(29 *t + 7/4) + 55 * sin(30 *t + 12/7) _
   + 91/4 * sin(31 *t + 7/4) + 83/3 * sin(32 *t + 7/4) + 50/7 * sin(33 *t + 2) + 131/10 * sin(39 *t + 19/4) _
   + 9 * sin(40 *t + 9/5) + 14/5 * sin(41 *t + 21/11) + 31/2 * sin(46 *t + 7/4) + 29/5 * sin(47 *t + 5/2) _
   + 127/4 * sin(48 *t + 9/5) + 21/5 * sin(50 *t + 7/5) + 3/7 * sin(51 *t + 5/4) + 47/5 * sin(53 *t + 10/7) _
   + 77/5 * sin(54 *t + 13/6) + 103/3 * sin(55 *t + 15/8) + 148/5 * sin(58 *t + 21/11) + 149/6 * sin(62 *t + 9/5)_
   + 9 * sin(64 *t + 11/7) + 35/6 * sin(65 *t + 11/4) + 22/5 * sin(66 *t + 3/2) + 67/6 * sin(71 *t + 21/10) _
   + 79/8 * sin(72 *t + 13/6) + 17/6 * sin(73 *t + 7/6) + 19/4 * sin(74 *t + 9/4) + 32/3 * sin(75 *t + 15/8) _
   + 23/3 * sin(77 *t + 43/21) + 63/8 * sin(78 *t + 9/4) + 37/5 * sin(81 *t + 7/3) + sin(82 *t + 8/7) _
   + 33/5 * sin(84 *t + 2) + 13/4 * sin(85 *t + 12/5) + 31/6 * sin(86 *t + 7/4) + 23/5 * sin(87 *t + 7/3) _
   + 11/4 * sin(88 *t + 7/4) + 24/5 * sin(90 *t + 29/14) + 31/4 * sin(91 *t + 9/4) + 8/3 * sin(92 *t + 17/8) _
   + 19/5 * sin(93 *t + 12/5) + 48/7 * sin(96 *t + 9/4) + 74/7 * sin(99 *t + 13/6) + 5 * sin(101 *t + 2) _
   + 45/7 * sin(102 *t + 9/4) + 11/4 * sin(104 *t + 7/4) + 577) * Heaviside(127 * pi - t) * Heaviside(t - 123 * pi) _
   + (-1/4 * sin(7/5 - 79 *t) - 1/5 * sin(1/12 - 67 *t) - 1/3 * sin(1 - 58 *t) - 17/5 * sin(3/2 - 19 *t) - 28/5 * sin(8/5 - 15 *t)_
   - 32/11 * sin(11/7 - 7 *t) - 11/3 * sin(3/2 - 3 *t) + 96/5 * sin(t + 33/7) + 9 * sin(2 *t + 8/5) + 17/2 * sin(4 *t + 11/7)_
   + 316/21 * sin(5 *t + 14/3) + 13/5 * sin(6 *t + 23/5) + 85/4 * sin(8 *t + 3/2) + 93/7 * sin(9 *t + 3/2) _
   + 19/2 * sin(10 *t + 3/2) + 5/2 * sin(11 *t + 14/3) + 47/4 * sin(12 *t + 3/2) + 91/15 * sin(13 *t + 7/5) _
   + 41/5 * sin(14 *t + 11/7) + 10/11 * sin(16 *t + 5/2) + 38/5 * sin(17 *t + 7/5) + 153/11 * sin(18 *t + 9/2) _
   + 7/4 * sin(20 *t + 7/4) + 11/2 * sin(21 *t + 14/3) + 9/4 * sin(22 *t + 17/4) + 165/4 * sin(23 *t + 9/2) _
   + 101/5 * sin(24 *t + 7/5) + 36/5 * sin(25 *t + 9/2) + 94/5 * sin(26 *t + 7/5) + 85/3 * sin(27 *t + 9/2)_
   + 91/6 * sin(28 *t + 7/5) + 61 * sin(29 *t + 4/3) + 19/2 * sin(30 *t + 4/3) + 12 * sin(31 *t + 5/4) _
   + 109/6 * sin(32 *t + 7/5) + 51/4 * sin(33 *t + 9/2) + 37/3 * sin(34 *t + 22/5) + 31/4 * sin(35 *t + 4/3) _
   + 3/2 * sin(36 *t + 22/5) + 21/2 * sin(37 *t + 5/4) + 8 * sin(38 *t + 5/4) + 17/5 * sin(39 *t + 6/5) _
   + 23/8 * sin(40 *t + 17/4) + 21/4 * sin(41 *t + 22/5) + 12/7 * sin(42 *t + 4/3) + 105/13 * sin(43 *t + 5/4)_
   + 1/5 * sin(44 *t + 43/14) + 11/4 * sin(45 *t + 31/7) + 14/3 * sin(46 *t + 17/4) + 5/3 * sin(47 *t + 13/3) _
   + 11/4 * sin(48 *t + 5/4) + 9/5 * sin(49 *t + 13/3) + 10/3 * sin(50 *t + 13/3) + 4 * sin(51 *t + 13/3) _
   + 3/4 * sin(52 *t + 4/5) + 5/3 * sin(53 *t + 1) + 8/5 * sin(54 *t + 13/12) + 13/3 * sin(55 *t + 13/3) _
   + 2 * sin(56 *t + 13/3) + 2/5 * sin(57 *t + 9/2) + 4/3 * sin(59 *t + 22/5) + 8/3 * sin(60 *t + 21/5) _
   + 25/7 * sin(61 *t + 17/4) + 3/5 * sin(62 *t + 4) + 6/7 * sin(63 *t + 13/12) + 5/3 * sin(64 *t + 21/5) _
   + 5/4 * sin(65 *t + 13/3) + 27/13 * sin(66 *t + 41/10) + 2/3 * sin(68 *t + 7/6) + 29/10 * sin(69 *t + 1) _
   + 12/5 * sin(70 *t + 1) + 31/15 * sin(71 *t + 37/9) + 1/11 * sin(72 *t + 17/4) + 17/9 * sin(73 *t + 17/4) _
   + 19/4 * sin(74 *t + 1) + 1/2 * sin(75 *t + 3/4) + 8/9 * sin(76 *t + 73/18) + 2/5 * sin(77 *t + 41/10)_
   + 1/2 * sin(78 *t + 27/7) + 13/7 * sin(80 *t + 4) + 9/4 * sin(81 *t + 29/7) - 2103/4) _
   * Heaviside(123 * pi - t) * Heaviside(t - 119 * pi) + (-27/5 * sin(8/5 - 3 *t) - 132/5 * sin(8/5 - t) _
   + 83/5 * sin(2 *t + 8/5) + 21/5 * sin(4 *t + 8/5) + 8/5 * sin(5 *t + 14/3) + 7/3 * sin(6 *t + 8/5) + 121/2) _
   * Heaviside(119 * pi - t) * Heaviside(t - 115 * pi) + (81/8 * sin(t + 8/5) + 69/4 * sin(2 *t + 8/5)_
   + 5/2 * sin(3 *t + 14/3) + 5 * sin(4 *t + 8/5) + 3/5 * sin(5 *t + 14/3) + 13/6 * sin(6 *t + 8/5) + 545/6)_
   * Heaviside(115 * pi - t) * Heaviside(t - 111 * pi) + (-89/8 * sin(8/5 - 4 *t) - 17/6 * sin(11/7 - 3 *t)_
   - 323/5 * sin(8/5 - 2 *t) - 98/5 * sin(8/5 - t) + 2/3 * sin(5 *t + 3/2) + 838/3) * Heaviside(111 * pi - t) _
   * Heaviside(t - 107 * pi) + (-23/4 * sin(8/5 - 6 *t) - 15/16 * sin(3/2 - 5 *t) - 19/2 * sin(8/5 - 4 *t) _
   - sin(3/2 - 3 *t) - 342/5 * sin(8/5 - 2 *t) + 38/3 * sin(t + 8/5) + 772/3) * Heaviside(107 * pi - t) * Heaviside(t - 103 * pi) _
   + (-751/5 * sin(8/5 - t) + 16/3 * sin(2 *t + 8/5) + 152/9 * sin(3 *t + 33/7) + 3/2 * sin(4 *t + 8/5) _
   + 16/3 * sin(5 *t + 19/4) + 1983/4) * Heaviside(103 * pi - t) * Heaviside(t - 99 * pi) + (107 * sin(t + 8/5) _
   + 11/12 * sin(2 *t + 8/5) + 34/3 * sin(3 *t + 8/5) + 1/2 * sin(4 *t + 8/5) + 4 * sin(5 *t + 8/5) + 3169/6) _
   * Heaviside(99 * pi - t) * Heaviside(t - 95 * pi) + (- sin(11/7 - 6 *t) - 62/5 * sin(8/5 - 5 *t) _
   - 1419/5 * sin(8/5 - t) + 127/9 * sin(2 *t + 14/3) + 101/3 * sin(3 *t + 19/4) + 7/5 * sin(4 *t + 8/5) _
   - 2053/4) * Heaviside(95 * pi - t) * Heaviside(t - 91 * pi) + (-4/7 * sin(7/5 - 26 *t) _
   - 14/5 * sin(3/2 - 19 *t) - 22/7 * sin(3/2 - 16 *t) - 27/13 * sin(3/2 - 15 *t) - 14/3 * sin(3/2 - 12 *t)_
   - 8/5 * sin(11/7 - 11 *t) - 125/2 * sin(8/5 - 3 *t) - 1124/7 * sin(8/5 - t) + 952/5 * sin(2 *t + 8/5)_
   + 780/11 * sin(4 *t + 8/5) + 63/4 * sin(5 *t + 8/5) + 41/2 * sin(6 *t + 8/5) + 19/3 * sin(7 *t + 8/5) _
   + 104/5 * sin(8 *t + 8/5) + 4/3 * sin(9 *t + 8/5) + 53/4 * sin(10 *t + 8/5) + 2/5 * sin(13 *t + 14/3) _
   + 82/9 * sin(14 *t + 8/5) + 2/7 * sin(17 *t + 9/2) + 47/23 * sin(18 *t + 8/5) + 13/4 * sin(20 *t + 8/5) _
   + 65/16 * sin(21 *t + 5/3) + 47/23 * sin(22 *t + 8/5) + 12/11 * sin(23 *t + 8/5) + 13/5 * sin(24 *t + 5/3) _
   + sin(25 *t + 5/3) + 1/9 * sin(27 *t + 14/3) + 5/3 * sin(28 *t + 5/3) - 3104/15) _
   * Heaviside(91 * pi - t) * Heaviside(t - 87 * pi) + (-14/3 * sin(8/5 - 5 *t) - 91/10 * sin(8/5 - 4 *t) _
   - 4 * sin(8/5 - 3 *t) - 217/5 * sin(8/5 - 2 *t) + 62/9 * sin(t + 8/5) + 89/22 * sin(6 *t + 19/4) _
   + 8/7 * sin(7 *t + 8/5) + 8/9 * sin(8 *t + 14/3) + 6/7 * sin(9 *t + 14/3) + 4/5 * sin(10 *t + 14/3) - 1925/3) _
   * Heaviside(87 * pi - t) * Heaviside(t - 83 * pi) + (-21/5 * sin(11/7 - 10 *t) - 7/5 * sin(11/7 - 8 *t) _
   - 28/5 * sin(11/7 - 7 *t) - 72/5 * sin(8/5 - 6 *t) - 5/6 * sin(3/2 - 4 *t) - 50/3 * sin(8/5 - 3 *t) _
   - 2501/20 * sin(8/5 - 2 *t) + 217/6 * sin(t + 8/5) + 22/5 * sin(5 *t + 8/5) + 2 * sin(9 *t + 8/5) - 2417/3)_
   * Heaviside(83 * pi - t) * Heaviside(t - 79 * pi) + (-44/9 * sin(8/5 - 7 *t) - 212/7 * sin(8/5 - 3 *t) _
   - 896/3 * sin(8/5 - t) + 43/5 * sin(2 *t + 8/5) + 5/2 * sin(4 *t + 8/5) + 61/6 * sin(5 *t + 33/7) _
   + 7/4 * sin(6 *t + 11/7) - 2602/3) * Heaviside(79 * pi - t) * Heaviside(t - 75 * pi) + (-39/4 * sin(8/5 - 5 *t)_
   - 157/5 * sin(8/5 - 3 *t) - 733/2 * sin(8/5 - t) + 29/2 * sin(2 *t + 11/7) + 32/5 * sin(4 *t + 11/7)_
   + 49/12 * sin(6 *t + 8/5) - 1761/2) * Heaviside(75 * pi - t) * Heaviside(t - 71 * pi) _
   + (-4 * sin(8/5 - 9 *t) - 2/5 * sin(6/5 - 8 *t) - 48/7 * sin(8/5 - 7 *t) - 2/3 * sin(5/4 - 6 *t) _
   - 67/5 * sin(8/5 - 5 *t) - 3/5 * sin(4/3 - 4 *t) - 167/4 * sin(8/5 - 3 *t) - 1142/3 * sin(8/5 - t)_
   + 69/17 * sin(2 *t + 11/7) + 1/3 * sin(10 *t + 7/5) - 2108/3) * Heaviside(71 * pi - t) * Heaviside(t - 67 * pi) _
   + (-181/5 * sin(8/5 - 6 *t) - 74/3 * sin(11/7 - 4 *t) + 275/3 * sin(t + 8/5) + 41/3 * sin(2 *t + 8/5) _
   + 191/6 * sin(3 *t + 8/5) + 118/3 * sin(5 *t + 8/5) + 3/4 * sin(7 *t + 14/3) + 172/7 * sin(8 *t + 8/5) _
   + 53/5 * sin(9 *t + 8/5) + 81/5 * sin(10 *t + 33/7) - 93/5) * Heaviside(67 * pi - t) * Heaviside(t - 63 * pi) _
   + (-17/7 * sin(3/2 - 21 *t) - 10/3 * sin(3/2 - 12 *t) - 116/3 * sin(11/7 - 11 *t) - 223/7 * sin(11/7 - 10 *t) _
   - 533/4 * sin(8/5 - t) + 151/3 * sin(2 *t + 8/5) + 115/4 * sin(3 *t + 8/5) + 163/5 * sin(4 *t + 8/5) _
   + 82/5 * sin(5 *t + 8/5) + 223/7 * sin(6 *t + 8/5) + 186/5 * sin(7 *t + 8/5) + 103/3 * sin(8 *t + 8/5) _
   + 19/3 * sin(9 *t + 8/5) + 2/5 * sin(13 *t + 22/5) + 25/2 * sin(14 *t + 8/5) + 1/5 * sin(15 *t + 4) _
   + 13/4 * sin(16 *t + 8/5) + 23/4 * sin(17 *t + 5/3) + 33/5 * sin(18 *t + 8/5) + 29/4 * sin(19 *t + 5/3)_
   + 1/5 * sin(20 *t + 19/10) + 20/7 * sin(22 *t + 8/5) + 5/6 * sin(23 *t + 5/3) + 5/4) * Heaviside(63 * pi - t)_
   * Heaviside(t - 59 * pi) + (-16/5 * sin(3/2 - 9 *t) - 57/5 * sin(8/5 - 8 *t) - 37/5 * sin(11/7 - 5 *t) _
   - 129/2 * sin(8/5 - 4 *t) - 4 * sin(11/7 - 3 *t) + 153/5 * sin(t + 14/3) + 409/3 * sin(2 *t + 8/5) _
   + 80/7 * sin(6 *t + 8/5) + 1/2 * sin(7 *t + 14/3) + 4/7 * sin(10 *t + 3/2) + 2662/5) * Heaviside(59 * pi - t) _
   * Heaviside(t - 55 * pi) + (-3/4 * sin(3/2 - 10 *t) - 4/3 * sin(3/2 - 9 *t) - 5/4 * sin(3/2 - 8 *t) _
   - 11/4 * sin(11/7 - 7 *t) - 12/5 * sin(11/7 - 6 *t) - 4 * sin(8/5 - 5 *t) - 19/3 * sin(11/7 - 4 *t) _
   - 37/6 * sin(11/7 - 3 *t) - 49/5 * sin(11/7 - 2 *t) - 337/3 * sin(8/5 - t) + 13569/16) _
   * Heaviside(55 * pi - t) * Heaviside(t - 51 * pi) + (-2 * sin(6/7 - 10 *t) - 11/4 * sin(1/3 - 6 *t) _
   - 545/17 * sin(11/7 - 2 *t) + 50 * sin(t + 8/5) + 67/2 * sin(3 *t + 14/3) + 687/5 * sin(4 *t + 14/3) _
   + 52/3 * sin(5 *t + 8/5) + 5/4 * sin(7 *t + 7/2) + 203/4 * sin(8 *t + 14/3) + 226/25 * sin(9 *t + 3/2) _
   + 3932/5) * Heaviside(51 * pi - t) * Heaviside(t - 47 * pi) + (-83/6 * sin(8/5 - 10 *t) _
   - 112/5 * sin(8/5 - 8 *t) - 44/5 * sin(11/7 - 6 *t) - 203/4 * sin(8/5 - 5 *t) - 461/7 * sin(8/5 - 3 *t) _
   - 199/2 * sin(8/5 - 2 *t) + 32 * sin(t + 8/5) + 252/11 * sin(4 *t + 8/5) + 29/5 * sin(7 *t + 11/7) _
   + 42/5 * sin(9 *t + 11/7) + 3273/5) * Heaviside(47 * pi - t) * Heaviside(t - 43 * pi) _
   + (-32/5 * sin(11/7 - 27 *t) - 29/6 * sin(11/7 - 25 *t) - 46/7 * sin(11/7 - 23 *t) - 70/23 * sin(11/7 - 20 *t)_
   - 43/5 * sin(11/7 - 15 *t) - 53/4 * sin(11/7 - 14 *t) - 127/16 * sin(11/7 - 13 *t) - 10/3 * sin(11/7 - 8 *t)_
   - 12/5 * sin(11/7 - 7 *t) - 42/5 * sin(8/5 - 6 *t) - 29/4 * sin(8/5 - 5 *t) - 35/4 * sin(8/5 - 4 *t) _
   - 64/13 * sin(8/5 - 3 *t) - 40/3 * sin(8/5 - 2 *t) - 250/7 * sin(8/5 - t) + 1/4 * sin(9 *t + 9/2) _
   + 45/22 * sin(10 *t + 14/3) + 22/5 * sin(11 *t + 8/5) + 27/4 * sin(12 *t + 8/5) + 41/5 * sin(16 *t + 8/5) _
   + 1/4 * sin(17 *t + 9/2) + 12/5 * sin(18 *t + 14/3) + 28/3 * sin(19 *t + 8/5) + 3/4 * sin(21 *t + 5/3) _
   + 31/5 * sin(22 *t + 8/5) + 4 * sin(24 *t + 8/5) + 11/5 * sin(26 *t + 8/5) + 4/5 * sin(28 *t + 3/2) + 493)_
   * Heaviside(43 * pi - t) * Heaviside(t - 39 * pi) + (-9/5 * sin(11/7 - 24 *t) - 9/5 * sin(3/2 - 20 *t)_
   - 2/3 * sin(5/4 - 18 *t) - 31/4 * sin(8/5 - 15 *t) + 259/3 * sin(t + 33/7) + 88/5 * sin(2 *t + 14/3) _
   + 83/4 * sin(3 *t + 8/5) + 209/6 * sin(4 *t + 8/5) + 149/4 * sin(5 *t + 8/5) + 271/8 * sin(6 *t + 8/5) _
   + 64/3 * sin(7 *t + 8/5) + 29/4 * sin(8 *t + 8/5) + 55/7 * sin(9 *t + 8/5) + 16/7 * sin(10 *t + 8/5) _
   + 13/7 * sin(11 *t + 8/5) + 13/5 * sin(12 *t + 14/3) + 24/5 * sin(13 *t + 14/3) + 6 * sin(14 *t + 8/5)_
   + 23/6 * sin(16 *t + 8/5) + 32/5 * sin(17 *t + 11/7) + 39/4 * sin(19 *t + 8/5) + 3 * sin(21 *t + 8/5) _
   + 7 * sin(22 *t + 14/3) + 1/5 * sin(23 *t + 26/9) + 25/8 * sin(25 *t + 11/7) + 3/2 * sin(26 *t + 3/2) _
   + 22/7 * sin(27 *t + 8/5) + 3186/7) * Heaviside(39 * pi - t) * Heaviside(t - 35 * pi) _
   + (-23/8 * sin(3/2 - 14 *t) - 11/3 * sin(3/2 - 12 *t) - 5/4 * sin(4/3 - 10 *t) - 79/3 * sin(11/7 - 9 *t) _
   - 2/3 * sin(4/3 - 6 *t) - 392/3 * sin(11/7 - 5 *t) - 87/4 * sin(11/7 - 4 *t) - 731/5 * sin(8/5 - 2 *t)_
   + 619/5 * sin(t + 8/5) + 73/5 * sin(3 *t + 14/3) + 23/5 * sin(7 *t + 5/3) + 168/5 * sin(8 *t + 8/5) _
   + 23/6 * sin(11 *t + 14/3) + 1/7 * sin(13 *t + 13/3) - 455/2) * Heaviside(35 * pi - t) * Heaviside(t - 31 * pi) _
   + (-27/13 * sin(11/12 - 9 *t) - 23/5 * sin(11/7 - 5 *t) - 5853/22 * sin(3/4 - t) + 173/6 * sin(2 *t + 1/20) _
   + 23/4 * sin(3 *t + 8/3) + 78/5 * sin(4 *t + 3/2) + 40/13 * sin(6 *t + 20/7) + 5/2 * sin(7 *t + 17/4) _
   + 9/5 * sin(8 *t + 7/5) + 2/5 * sin(10 *t + 21/11) - 2558/3) * Heaviside(31 * pi - t) * Heaviside(t - 27 * pi) _
   + (-17/8 * sin(3/4 - 10 *t) - 7/4 * sin(7/6 - 7 *t) + 21/11 * sin(t + 17/6) + 11/7 * sin(2 *t + 2/5) _
   + 7/4 * sin(3 *t + 1/4) + 8/5 * sin(4 *t + 14/5) + 19/3 * sin(5 *t + 29/7) + 69/5 * sin(6 *t + 10/3) _
   + 11/5 * sin(8 *t + 1/4) + 34/11 * sin(9 *t + 23/8) + 877/5) * Heaviside(27 * pi - t) * Heaviside(t - 23 * pi) _
   + (-93/23 * sin(5/4 - 5 *t) + 19/6 * sin(t + 3/5) + 1/10 * sin(2 *t + 1/4) + 14/5 * sin(3 *t + 7/5) _
   + 13/5 * sin(4 *t + 4/5) + 25/3 * sin(6 *t + 2/5) + 79/8 * sin(7 *t + 1/6) + 2 * sin(8 *t + 14/5) _
   + 25/8 * sin(9 *t + 4) + 5/3 * sin(10 *t + 9/8) + 847/5) * Heaviside(23 * pi - t) * Heaviside(t - 19 * pi) _
   + (-4 * sin(1/4 - 2 *t) - 154/3 * sin(1/3 - t) + 699/4) * Heaviside(19 * pi - t) * Heaviside(t - 15 * pi) _
   + (-2/5 * sin(1 - 4 *t) - 14/3 * sin(5/4 - 3 *t) - 91/2 * sin(1/2 - t) + 13/5 * sin(2 *t + 8/3) + 170) _
   * Heaviside(15 * pi - t) * Heaviside(t - 11 * pi) + (-12/5 * sin(7/5 - 9 *t) - 24/5 * sin(2/5 - 3 *t) _
   - 249/4 * sin(1/5 - t) + 63/4 * sin(2 *t + 17/5) + 19/5 * sin(4 *t + 10/3) + 2 * sin(5 *t + 22/5) _
   + 51/13 * sin(6 *t + 18/5) + 5/2 * sin(7 *t + 17/4) + 13/5 * sin(8 *t + 19/5) + 14/13 * sin(10 *t + 21/5) _
   + 917/5) * Heaviside(11 * pi - t) * Heaviside(t - 7 * pi) + (-7/5 * sin(1/2 - 10 *t) - sin(5/6 - 9 *t) _
   - 13/7 * sin(7/5 - 8 *t) - 7/4 * sin(6/5 - 7 *t) - 11/6 * sin(1 - 3 *t) + 277/5 * sin(t + 1/10) _
   + 128/7 * sin(2 *t + 33/8) + 19/4 * sin(4 *t + 17/4) + 3/2 * sin(5 *t + 19/5) + 13/4 * sin(6 *t + 22/5) _
   + 539/3) * Heaviside(7 * pi - t) * Heaviside(t - 3 * pi) + (-19/4 * sin(1 - 10 *t) + 8238/7 * sin(t + 26/7) _
   + 136/5 * sin(2 *t + 7/4) + 306/7 * sin(3 *t + 5/3) + 75/4 * sin(4 *t + 2/3) + 68/5 * sin(5 *t + 13/4) _
   + 23/3 * sin(6 *t + 32/7) + 17/4 * sin(7 *t + 9/4) + 4 * sin(8 *t + 3/5) + 2/3 * sin(9 *t + 1/3) - 163/2)_
   * Heaviside(3 * pi - t) * Heaviside(t + pi)) * Heaviside(sqr(sgn( sin(t/2))))

   plot 400+ x/10,y/10+300
next t
locate 5,2 : ? "Albert Einstein. Une touche pour sortir ..."

repeat : until len(inkey())

rem ================================================================================================
' la fonction de Heaviside (également fonction échelon unité, fonction marche d'escalier),
' du nom d’Oliver Heaviside, est la fonction indicatrice de R+.
' C'est donc la fonction H (discontinue en 0) prenant la valeur 1 pour tous les réels positifs et
' la valeur 0 pour les réels strictement négatifs
FUNCTION Heaviside(h)
   if h < 0 then return 0 else return 1
END_FUNCTION
rem ==================================================================================================

Spoiler:

Sujet: Re: Les programmes de papydall Lun 23 Nov 2020 - 8:39

papydall a écrit:: Adaptation de fb-noise.bas utilisant fb_noise.bi

Où trouve-t-on ces fichiers ? Je ne les trouve pas sur le forum FreeBASIC ...

PS. Merci pour les Einstein Smile

Sujet: Re: Les programmes de papydall Lun 23 Nov 2020 - 18:05

jean_debord a écrit:: Où trouve-t-on ces fichiers ? Je ne les trouve pas sur le forum FreeBASIC ...

Tu peux les télécharger à partir de :
https://github.com/glasyalabolas/fb-noise

jean_debord a écrit:: PS. Merci pour les Einstein

Voici Al-Khwarizmi (le père de l’Algèbre)

Code:: rem ============================================================================================
rem Al-Khwarizmi curve
rem ============================================================================================

dim x,y,t,p,w,h
p = pi/2880
w = 800 : h = 600

mode 3,"Al-Khwarizmi Curve",w,h
cls
for t = 0 to 76 * pi step p
   x = ((-1/43 *sin(9/7 - 44 *t) - 1/6 *sin(14/9 - 39 *t) - 1/3 *sin(17/11 - 37 *t)_
   - 1/50 *sin(16/11 - 33 *t) - 1/7 *sin(14/9 - 31 *t) - 2/5 *sin(17/11 - 30 *t) _
   - 1/5 *sin(11/7 - 29 *t) - 3/8 *sin(23/15 - 28 *t) - 9/14 *sin(14/9 - 23 *t) _
   - 13/10 *sin(17/11 - 21 *t) - 3/2 *sin(14/9 - 14 *t) - 4/3 *sin(11/7 - 13 *t)_
   - 19/8 *sin(14/9 - 12 *t) - 13/7 *sin(11/7 - 11 *t) - 861/43 *sin(11/7 - 5 *t)_
   - 326/11 *sin(11/7 - 2 *t) + 4929/32 *sin(t + 11/7) + 230/7 *sin(3 *t + 33/7)_
   + 91/9 *sin(4 *t + 33/7) + 29/8 *sin(6 *t + 19/12) + 61/11 *sin(7 *t + 33/7)_
   + 61/9 *sin(8 *t + 11/7) + 17/13 *sin(9 *t + 61/13) + 23/17 *sin(10 *t + 11/7)_
   + 3/14 *sin(15 *t + 11/7) + 3/13 *sin(16 *t + 23/15) + 5/13 *sin(17 *t + 8/5) _
   + 7/11 *sin(18 *t + 8/5) + 9/11 *sin(19 *t + 47/10) + 1/6 *sin(20 *t + 22/13) _
   + 2/11 *sin(22 *t + 8/5) + 7/15 *sin(24 *t + 11/7) + 1/15 *sin(25 *t + 27/16) _
   + 2/11 *sin(26 *t + 20/13) + 1/38 *sin(27 *t + 14/9) + 1/16 *sin(32 *t + 28/17)_
   + 4/13 *sin(34 *t + 8/5) + 1/5 *sin(35 *t + 33/7) + 1/7 *sin(36 *t + 8/5) _
   + 1/24 *sin(38 *t + 58/13) + 1/21 *sin(40 *t + 4/3) + 1/9 *sin(41 *t + 3/2) _
   + 1/16 *sin(42 *t + 34/23) + 1/8 *sin(43 *t + 8/5) + 1/13 *sin(45 *t + 37/8)_
   + 234/7) * Heaviside(75 *pi - t) * Heaviside(t - 71 *pi) + (-3/8 *sin(14/9 - 48 *t) _
   - 2/5 *sin(13/9 - 47 *t) - 1/4 *sin(20/13 - 44 *t) - 3/8 *sin(13/9 - 43 *t)_
   - 6/11 *sin(22/15 - 42 *t) - 1/3 *sin(10/7 - 41 *t) - 2/9 *sin(14/9 - 35 *t) _
   - 4/5 *sin(19/13 - 33 *t) - 9/7 *sin(26/17 - 29 *t) - 47/23 *sin(14/9 - 27 *t)_
   - 3/10 *sin(17/12 - 26 *t) - 77/31 *sin(17/11 - 25 *t) - 7/12 *sin(11/8 - 21 *t)_
   - 58/11 *sin(14/9 - 17 *t) - 41/6 *sin(14/9 - 14 *t) - 50/7 *sin(17/11 - 13 *t) _
   - 8/3 *sin(22/15 - t) + 416/11 *sin(2 *t + 33/7) + 510/13 *sin(3 *t + 11/7) _
   + 493/11 *sin(4 *t + 33/7) + 458/27 *sin(5 *t + 14/9) + 344/15 *sin(6 *t + 19/12)_
   + 411/11 *sin(7 *t + 11/7) + 33/5 *sin(8 *t + 47/10) + 41/10 *sin(9 *t + 33/7) _
   + 122/7 *sin(10 *t + 11/7) + 8/17 *sin(11 *t + 23/10) + 1/6 *sin(12 *t + 5/9)_
   + 3/8 *sin(15 *t + 3/2) + 23/15 *sin(16 *t + 19/12) + 32/9 *sin(18 *t + 11/7)_
   + 3/4 *sin(19 *t + 23/5) + 19/10 *sin(20 *t + 13/8) + 3/5 *sin(22 *t + 89/19)_
   + 2/5 *sin(23 *t + 50/11) + 26/7 *sin(24 *t + 19/12) + 1/17 *sin(28 *t + 11/6)_
   + 15/16 *sin(30 *t + 11/7) + 33/17 *sin(31 *t + 47/10) + 23/10 *sin(32 *t + 8/5)_
   + 1/8 *sin(34 *t + 31/7) + 8/9 *sin(36 *t + 18/11) + 3/7 *sin(37 *t + 16/9)_
   + 5/4 *sin(38 *t + 8/5) + 11/9 *sin(39 *t + 75/16) + 2/7 *sin(40 *t + 7/5) _
   + 3/10 *sin(45 *t + 13/8) + 1/2 *sin(46 *t + 5/3) + 3/10 *sin(49 *t + 8/5) _
   + 1/7 *sin(50 *t + 11/6) + 4/11 *sin(51 *t + 18/11) + 1/89 *sin(52 *t + 3)_
   + 333/5) * Heaviside(71* pi - t) * Heaviside(t - 67* pi) + (-1/17 *sin(1/3 - 32 *t)_
   - 1/14 *sin(1/15 - 26 *t) - 33/34 *sin(13/9 - 12 *t) + 149/4 *sin(t + 11/7) _
   + 337/8 *sin(2 *t + 61/13) + 319/10 *sin(3 *t + 51/11) + 361/6 *sin(4 *t + 14/3) _
   + 75/4 *sin(5 *t + 14/9) + 1/2 *sin(6 *t + 4/5) + 77/9 *sin(7 *t + 65/14) _
   + 16/11 *sin(8 *t + 3/2) + sin(9 *t + 9/5) + 59/7 *sin(10 *t + 37/8) _
   + 9/5 *sin(11 *t + 21/13) + 13/14 *sin(13 *t + 13/8) + 7/6 *sin(14 *t + 47/10) _
   + 91/46 *sin(15 *t + 58/13) + 1/6 *sin(16 *t + 27/8) + 31/32 *sin(17 *t + 40/9) _
   + 8/11 *sin(18 *t + 47/10) + 17/8 *sin(19 *t + 7/5) + 7/10 *sin(20 *t + 51/11) _
   + 3/2 *sin(21 *t + 31/7) + 1/8 *sin(22 *t + 36/13) + 4/7 *sin(23 *t + 38/9) _
   + 2/7 *sin(24 *t + 23/5) + 2/3 *sin(25 *t + 6/5) + 1/9 *sin(27 *t + 41/10) _
   + 2/3 *sin(28 *t + 56/13) + 3/10 *sin(29 *t + 61/15) + 6/13 *sin(30 *t + 5/4) _
   + 4/13 *sin(31 *t + 51/11) + 3/7 *sin(33 *t + 4/3) + 2/3 *sin(34 *t + 43/10) _
   + 1/10 *sin(35 *t + 29/8) + 1/6 *sin(36 *t + 14/11) + 1/21 *sin(37 *t + 68/15) _
   + 1/14 *sin(38 *t + 2/9) + 1/14 *sin(39 *t + 7/6) + 1/10 *sin(40 *t + 41/10) _
   + 1/8 *sin(41 *t + 18/11) + 1/3 *sin(42 *t + 30/7) + 1/4 *sin(43 *t + 7/6) _
   + 1/7 *sin(44 *t + 5/8) + 1/7 *sin(45 *t + 112/25) + 1/10 *sin(46 *t + 7/6) _
   + 1/5 *sin(47 *t + 23/15) + 3/10 *sin(48 *t + 40/9) + 1/8 *sin(49 *t + 5/4) _
   + 1/13 *sin(50 *t + 1/4) + 1/10 *sin(51 *t + 11/10) - 4/13) _
   * Heaviside(67* pi - t) * Heaviside(t - 63* pi) + (-1/3 *sin(20/13 - 42 *t)_
   - 2/11 *sin(13/9 - 41 *t) - 1/8 *sin(20/13 - 26 *t) - 3/10 *sin(29/19 - 25 *t)_
   - 17/11 *sin(17/11 - 23 *t) - 3/8 *sin(3/2 - 22 *t) - 4/7 *sin(13/9 - 13 *t)_
   - 13/9 *sin(17/11 - 12 *t) - 355/6 *sin(11/7 - 4 *t) + 26/5 *sin(t + 8/5) _
   + 21/2 *sin(2 *t + 11/7) + 61/6 *sin(3 *t + 19/12) + 95/12 *sin(5 *t + 47/10)_
   + 41/7 *sin(6 *t + 33/7) + 55/9 *sin(7 *t + 33/7) + 50/7 *sin(8 *t + 8/5) _
   + 1/28 *sin(9 *t + 1/3) + 7/12 *sin(10 *t + 11/7) + 7/5 *sin(11 *t + 13/8)_
   + 19/13 *sin(14 *t + 33/7) + 20/7 *sin(15 *t + 33/7) + 31/14 *sin(16 *t + 11/7) _
   + 1/24 *sin(17 *t + 21/8) + 5/14 *sin(18 *t + 16/9) + 8/11 *sin(19 *t + 11/7) _
   + 3/7 *sin(20 *t + 19/13) + 1/14 *sin(21 *t + 17/8) + 5/8 *sin(24 *t + 13/8) _
   + 2/5 *sin(27 *t + 5/3) + 3/8 *sin(28 *t + 14/9) + 1/6 *sin(29 *t + 3/2) _
   + 1/19 *sin(30 *t + 34/11) + 8/11 *sin(31 *t + 47/10) + 1/5 *sin(32 *t + 38/25) _
   + 5/13 *sin(33 *t + 33/7) + 3/10 *sin(34 *t + 47/10) + 1/7 *sin(35 *t + 31/21) _
   + 2/9 *sin(36 *t + 8/5) + 3/14 *sin(37 *t + 17/10) + 3/14 *sin(38 *t + 11/7) _
   + 5/13 *sin(39 *t + 47/10) + 3/13 *sin(40 *t + 18/11) + 1/10 *sin(43 *t + 13/3) _
   + 1/11 *sin(44 *t + 16/11) + 1/6 *sin(45 *t + 26/17) + 1/5 *sin(46 *t + 12/7) _
   + 1/6 *sin(47 *t + 47/10) + 2/9 *sin(48 *t + 3/2) - 815/8) _
   * Heaviside(63* pi - t) * Heaviside(t - 59* pi) + (-1/10 *sin(13/10 - 43 *t)_
   - 1/3 *sin(13/10 - 42 *t) - 1/7 *sin(37/36 - 41 *t) - 1/28 *sin(3/4 - 40 *t) _
   - 1/8 *sin(13/9 - 34 *t) - 3/8 *sin(15/11 - 33 *t) - 4/9 *sin(20/13 - 25 *t) _
   - 6/7 *sin(23/15 - 23 *t) - 45/17 *sin(3/2 - 15 *t) - 52/51 *sin(4/3 - 14 *t) _
   - 17/9 *sin(20/13 - 13 *t) - 68/9 *sin(3/2 - 6 *t) - 373/22 *sin(32/21 - 5 *t) _
   - 261/7 *sin(14/9 - 4 *t) - 35/6 *sin(14/9 - t) + 34/7 *sin(2 *t + 61/13) _
   + 116/11 *sin(3 *t + 17/11) + 96/19 *sin(7 *t + 47/10) + 147/11 *sin(8 *t + 8/5)_
   + 7/12 *sin(9 *t + 25/12) + 5/9 *sin(10 *t + 5/3) + 19/7 *sin(11 *t + 18/11) _
   + 29/14 *sin(12 *t + 28/17) + 39/19 *sin(16 *t + 21/13) + 1/7 *sin(17 *t _
   + 63/16) + 8/7 *sin(18 *t + 16/9) + 27/11 *sin(19 *t + 17/10) + 8/11 *sin(20 *t + 9/5) _
   + 1/4 *sin(21 *t + 32/7) + 4/9 *sin(22 *t + 19/12) + 3/11 *sin(24 *t + 16/11)_
   + 6/11 *sin(26 *t + 16/9) + 5/6 *sin(27 *t + 11/6) + 7/10 *sin(28 *t + 26/15)_
   + 2/9 *sin(29 *t + 47/11) + 7/8 *sin(30 *t + 5/3) + 2/5 *sin(31 *t + 14/3) _
   + 1/7 *sin(32 *t + 16/11) + 1/5 *sin(35 *t + 9/5) + 1/5 *sin(36 *t + 11/6) _
   + 1/9 *sin(37 *t + 56/13) + 3/5 *sin(38 *t + 12/7) + 1/10 *sin(39 *t + 59/15) _
   + 1/9 *sin(44 *t + 28/17) + 1/13 *sin(45 *t + 31/7) + 1/7 *sin(46 *t + 29/19)_
   + 1/12 *sin(47 *t + 46/11) + 2/7 *sin(48 *t + 13/7) + 1/10 *sin(49 *t + 17/10)_
   - 635/7) * Heaviside(59* pi - t) * Heaviside(t - 55* pi) + (-2/9 *sin(16/11 - 38 *t)_
   - 2/9 *sin(26/17 - 36 *t) - 5/16 *sin(11/8 - 35 *t) - 1/8 *sin(14/11 - 34 *t) _
   - 1/6 *sin(14/9 - 32 *t) - 5/7 *sin(20/13 - 28 *t) - 25/11 *sin(19/13 - 26 *t) _
   - 2/3 *sin(13/9 - 25 *t) - 4/7 *sin(14/9 - 23 *t) - 1/14 *sin(14/11 - 21 *t) _
   - 2/3 *sin(14/9 - 20 *t) - 15/16 *sin(16/11 - 14 *t) - 46/9 *sin(26/17 - 13 *t)_
   - 5/9 *sin(13/9 - 12 *t) - 2/5 *sin(17/11 - 9 *t) - 3/10 *sin(3/2 - 8 *t) _
   - 1/26 *sin(13/10 - 7 *t) - 1/5 *sin(23/15 - 4 *t) - 27/16 *sin(14/9 - 3 *t)_
   - 9/7 *sin(17/11 - 2 *t) - 181/9 *sin(11/7 - t) + 7/9 *sin(5 *t + 33/7) _
   + 1/8 *sin(6 *t + 23/5) + 8/11 *sin(10 *t + 47/10) + 5/8 *sin(11 *t + 19/12) _
   + 3/10 *sin(15 *t + 11/7) + 5/16 *sin(16 *t + 26/15) + 3/13 *sin(17 *t + 12/7)_
   + 1/10 *sin(18 *t + 14/3) + 5/7 *sin(19 *t + 13/8) + 1/14 *sin(22 *t + 6/5) _
   + 19/20 *sin(24 *t + 23/14) + 3/11 *sin(27 *t + 21/16) + 7/9 *sin(29 *t + 12/7) _
   + 1/6 *sin(30 *t + 23/13) + 1/6 *sin(31 *t + 5/3) + 1/50 *sin(33 *t + 9/5) _
   + 1/2 *sin(37 *t + 17/10) + 118/3) * Heaviside(55* pi - t) * Heaviside(t - 51* pi) _
   + (-5/8 *sin(11/8 - 38 *t) - 1/8 *sin(7/8 - 37 *t) - 5/7 *sin(7/5 - 34 *t)_
   - 1/3 *sin(13/10 - 33 *t) - 5/13 *sin(17/12 - 30 *t) - 20/21 *sin(4/3 - 29 *t)_
   - 9/11 *sin(17/13 - 28 *t) - 1/10 *sin(11/10 - 27 *t) - 3/5 *sin(19/13 - 26 *t)_
   - 8/9 *sin(19/13 - 23 *t) - 5/2 *sin(3/2 - 20 *t) - 2/3 *sin(20/13 - 18 *t) _
   - 25/19 *sin(7/5 - 17 *t) - 17/11 *sin(19/13 - 16 *t) - 4/7 *sin(35/23 - 11 *t) _
   - 3/13 *sin(3/2 - 9 *t) - 1/5 *sin(11/7 - 7 *t) - 10/11 *sin(17/11 - 6 *t) _
   - 1/12 *sin(3/2 - 3 *t) - 3/2 *sin(14/9 - 2 *t) - 97/7 *sin(11/7 - t) _
   + 1/9 *sin(4 *t + 23/5) + 1/7 *sin(5 *t + 16/11) + 1/38 *sin(8 *t + 1/2) _
   + 1/18 *sin(10 *t + 14/9) + 5/7 *sin(12 *t + 19/12) + 1/6 *sin(13 *t + 94/21) _
   + 17/10 *sin(14 *t + 17/10) + 16/13 *sin(15 *t + 23/14) + 20/9 *sin(19 *t + 18/11) _
   + 9/13 *sin(21 *t + 11/7) + 2/5 *sin(22 *t + 16/9) + 7/15 *sin(24 *t + 23/13) _
   + 4/13 *sin(25 *t + 18/11) + 3/8 *sin(31 *t + 11/6) + 5/9 *sin(32 *t + 20/11)_
   + 1/2 *sin(35 *t + 5/3) + 1/12 *sin(36 *t + 21/5) + 4/7 *sin(39 *t + 17/10)_
   + 3/10 *sin(40 *t + 51/11) + 1/3 *sin(41 *t + 16/9) + 3/8 *sin(42 *t + 15/8) _
   + 538/7) * Heaviside(51* pi - t) * Heaviside(t - 47* pi) + (-1/33 *sin(18/19 - 50 *t)_
   - 38/37 *sin(17/11 - 37 *t) - 1/9 *sin(3/7 - 33 *t) - 29/14 *sin(11/7 - 30 *t)_
   - 2/3 *sin(3/2 - 27 *t) - 25/19 *sin(17/11 - 10 *t) - 3/7 *sin(3/2 - 7 *t) _
   - 23/22 *sin(14/9 - 4 *t) - 23/13 *sin(14/9 - 2 *t) + 373/14 *sin(t + 11/7) _
   + 27/11 *sin(3 *t + 11/7) + 19/13 *sin(5 *t + 8/5) + 18/11 *sin(6 *t + 33/7) _
   + 3/8 *sin(8 *t + 19/12) + 10/7 *sin(9 *t + 11/7) + 7/9 *sin(11 *t + 23/15) _
   + 29/19 *sin(12 *t + 23/15) + 11/10 *sin(13 *t + 17/11) + 51/50 *sin(14 *t + 3/2)_
   + 19/7 *sin(15 *t + 14/9) + 2/9 *sin(16 *t + 21/16) + 14/9 *sin(17 *t + 33/7)_
   + 5/4 *sin(18 *t + 18/11) + 18/7 *sin(19 *t + 33/7) + 2/11 *sin(20 *t + 37/8) _
   + 1/6 *sin(21 *t + 103/23) + 1/8 *sin(22 *t + 29/7) + 21/16 *sin(23 *t + 47/10) _
   + 1/9 *sin(24 *t + 12/7) + 19/15 *sin(25 *t + 19/12) + 12/13 *sin(26 *t + 26/17) _
   + 2/9 *sin(28 *t + 60/13) + 1/7 *sin(29 *t + 29/7) + 1/8 *sin(31 *t + 40/9) _
   + 15/8 *sin(32 *t + 11/7) + 23/24 *sin(34 *t + 19/12) + 2/7 *sin(35 *t + 51/11) _
   + 1/6 *sin(36 *t + 37/8) + 1/4 *sin(38 *t + 23/14) + 1/4 *sin(39 *t + 23/5) _
   + 4/11 *sin(40 *t + 7/5) + 3/7 *sin(41 *t + 13/9) + 5/6 *sin(42 *t + 11/7) _
   + 2/9 *sin(43 *t + 61/13) + 3/8 *sin(44 *t + 65/14) + 5/11 *sin(45 *t + 47/10) _
   + 2/13 *sin(46 *t + 2) + 3/7 *sin(47 *t + 23/5) + 4/5 *sin(48 *t + 14/3) _
   + 7/10 *sin(49 *t + 23/14) - 202/13) * Heaviside(47* pi - t) * Heaviside(t - 43* pi)_
   + (-1/6 *sin(16/11 - 41 *t) - 2/9 *sin(6/5 - 38 *t) - sin(14/9 - 17 *t)_
   - 9/17 *sin(14/9 - 9 *t) - 1/7 *sin(4/3 - 6 *t) - 5/9 *sin(3/2 - 4 *t) _
   + 181/11 *sin(t + 11/7) + 20/11 *sin(2 *t + 17/11) + 11/9 *sin(3 *t + 26/17)_
   + 3/2 *sin(5 *t + 14/9) + 25/17 *sin(7 *t + 11/7) + 2/3 *sin(8 *t + 8/5) _
   + 7/11 *sin(10 *t + 65/14) + 6/13 *sin(11 *t + 27/16) + 39/40 *sin(12 *t + 37/8) _
   + 33/10 *sin(13 *t + 75/16) + 16/7 *sin(14 *t + 47/10) + 29/7 *sin(15 *t + 14/9) _
   + 16/9 *sin(16 *t + 17/11) + 3/8 *sin(18 *t + 9/5) + 9/7 *sin(19 *t + 51/11) _
   + 11/8 *sin(20 *t + 14/3) + 5/8 *sin(21 *t + 14/9) + 7/11 *sin(22 *t + 28/19) _
   + 3/11 *sin(23 *t + 11/8) + 5/7 *sin(24 *t + 10/7) + 10/7 *sin(25 *t + 13/9) _
   + 25/13 *sin(26 *t + 19/13) + 17/18 *sin(27 *t + 18/13) + 5/7 *sin(28 *t + 16/11) _
   + 7/15 *sin(29 *t + 60/13) + 7/5 *sin(30 *t + 51/11) + 1/8 *sin(31 *t + 30/13) _
   + 7/8 *sin(32 *t + 5/3) + 3/7 *sin(33 *t + 59/13) + 11/23 *sin(34 *t + 32/7) _
   + 1/8 *sin(35 *t + 25/11) + 2/9 *sin(36 *t + 60/13) + 4/7 *sin(37 *t + 14/9) _
   + 2/13 *sin(39 *t + 44/43) + 3/2 *sin(40 *t + 20/13) + 1/3 *sin(42 *t + 9/2) - 721/10)_
   * Heaviside(43* pi - t) * Heaviside(t - 39* pi) + (-7/10 *sin(26/17 - 42 *t) _
   - 1/33 *sin(6/5 - 29 *t) - 1/5 *sin(11/8 - 27 *t) - 7/15 *sin(14/9 - 26 *t) _
   - sin(3/2 - 15 *t) - 51/5 *sin(11/7 - 8 *t) - 168/11 *sin(11/7 - 6 *t) _
   - 111/5 *sin(11/7 - 4 *t) - 266/11 *sin(11/7 - 2 *t) + 6 *sin(t + 33/7) _
   + 116/5 *sin(3 *t + 11/7) + 1711/90 *sin(5 *t + 11/7) + 63/5 *sin(7 *t + 11/7)_
   + 176/25 *sin(9 *t + 11/7) + 45/11 *sin(10 *t + 33/7) + 13/9 *sin(11 *t + 17/11)_
   + 5/4 *sin(12 *t + 51/11) + 1/4 *sin(13 *t + 16/13) + 9/5 *sin(14 *t + 8/5) _
   + 5/14 *sin(16 *t + 32/7) + 1/36 *sin(17 *t + 6/5) + 20/11 *sin(18 *t + 14/9) _
   + 16/9 *sin(19 *t + 19/12) + 7/11 *sin(20 *t + 35/23) + 8/15 *sin(21 *t + 23/5) _
   + 7/4 *sin(22 *t + 17/11) + 13/9 *sin(23 *t + 11/7) + 7/10 *sin(24 *t + 38/25) _
   + 15/14 *sin(25 *t + 79/17) + 5/7 *sin(28 *t + 13/8) + 142/47 *sin(30 *t + 11/7)_
   + 14/9 *sin(31 *t + 38/25) + 1/5 *sin(32 *t + 23/5) + 1/7 *sin(33 *t + 17/9) _
   + 4/11 *sin(34 *t + 26/17) + 16/13 *sin(35 *t + 20/13) + 2/5 *sin(36 *t + 23/5)_
   + 21/8 *sin(37 *t + 47/10) + 7/12 *sin(38 *t + 14/9) + 7/10 *sin(39 *t + 32/21) _
   + 1/10 *sin(40 *t + 17/10) + 17/16 *sin(41 *t + 14/3) + 2/9 *sin(43 *t + 5/3) _
   + 1/12 *sin(44 *t + 23/5) + 11/23 *sin(45 *t + 61/13) + 1/12 *sin(46 *t + 19/13) _
   + 1/12 *sin(47 *t + 11/8) + 3/13 *sin(48 *t + 13/8) + 1/18 *sin(49 *t + 11/9) _
   + 6/19 *sin(50 *t + 14/3) + 8/7 *sin(51 *t + 33/7) + 304/9) * Heaviside(39* pi - t) _
   * Heaviside(t - 35* pi) + (13/10 *sin(t + 13/8) + 133/4 *sin(2 *t + 33/7) _
   + 8/11 *sin(3 *t + 37/8) + 2/7 *sin(4 *t + 8/5) + 2/7 *sin(5 *t + 8/5) _
   + 35/11 *sin(6 *t + 33/7) + 9/17 *sin(7 *t + 61/13) + 1/5 *sin(8 *t + 8/5) _
   + 1/6 *sin(9 *t + 8/5) + 8/7 *sin(10 *t + 61/13) - 260/9) * Heaviside(35* pi - t)_
   * Heaviside(t - 31* pi) + (-1/75 *sin(12/11 - 56 *t) - 1/19 *sin(5/9 - 44 *t) _
   - 2/11 *sin(14/9 - 39 *t) - 1/8 *sin(17/13 - 35 *t) - 1/7 *sin(11/8 - 29 *t) _
   - 1/6 *sin(11/8 - 12 *t) + 487/13 *sin(t + 11/7) + 13/10 *sin(2 *t + 18/11) _
   + 25/6 *sin(3 *t + 11/7) + 9/11 *sin(4 *t + 47/10) + 23/7 *sin(5 *t + 14/9) _
   + 15/7 *sin(6 *t + 61/13) + 23/9 *sin(7 *t + 17/11) + 13/6 *sin(8 *t + 75/16) _
   + 5/3 *sin(9 *t + 17/11) + 16/11 *sin(10 *t + 47/10) + 5/8 *sin(11 *t + 20/13) _
   + 2/7 *sin(13 *t + 61/14) + 13/9 *sin(14 *t + 3/2) + 5/7 *sin(15 *t + 113/25) _
   + 5/8 *sin(16 *t + 20/13) + 1/6 *sin(17 *t + 15/8) + 8/11 *sin(18 *t + 3/2) _
   + 4/11 *sin(19 *t + 9/2) + 5/13 *sin(20 *t + 19/12) + 13/9 *sin(21 *t + 11/7) _
   + 24/23 *sin(22 *t + 20/11) + 55/13 *sin(23 *t + 23/15) + 11/7 *sin(24 *t + 13/8) _
   + 11/17 *sin(25 *t + 40/9) + 8/11 *sin(26 *t + 18/13) + 5/6 *sin(27 *t + 37/8) _
   + 4/13 *sin(28 *t + 20/13) + 1/7 *sin(30 *t + 3/2) + 5/8 *sin(31 *t + 37/8) _
   + 1/20 *sin(32 *t + 75/37) + 1/6 *sin(33 *t + 11/10) + 1/7 *sin(34 *t + 35/8) _
   + 1/20 *sin(36 *t + 29/7) + 1/7 *sin(37 *t + 10/9) + 1/15 *sin(38 *t + 19/5) _
   + 1/18 *sin(40 *t + 1) + 2/7 *sin(41 *t + 61/13) + 1/9 *sin(42 *t + 4/3) _
   + 3/10 *sin(43 *t + 47/10) + 2/5 *sin(45 *t + 32/7) + 1/8 *sin(46 *t + 4/3) _
   + 1/8 *sin(47 *t + 11/8) + 1/35 *sin(48 *t + 65/22) + 1/7 *sin(49 *t + 13/9) _
   + 1/42 *sin(50 *t + 51/14) + 1/7 *sin(51 *t + 16/11) + 1/67 *sin(52 *t + 46/13) _
   + 1/28 *sin(53 *t + 17/10) + 1/25 *sin(54 *t + 13/11) + 1/10 *sin(55 *t + 86/19) _
   + 1/21 *sin(57 *t + 46/11) - 208/5) * Heaviside(31* pi - t) * Heaviside(t - 27* pi)_
   + (-1/15 *sin(14/9 - 34 *t) - 1/12 *sin(13/9 - 30 *t) - 1/22 *sin(23/17 - 10 *t)_
   - 41/10 *sin(17/11 - 3 *t) + 116/5 *sin(t + 11/7) + 42/11 *sin(2 *t + 14/9)_
   + 34/3 *sin(4 *t + 14/9) + 16/3 *sin(5 *t + 17/11) + 3/4 *sin(6 *t + 17/12) _
   + 8/5 *sin(7 *t + 14/9) + 20/11 *sin(8 *t + 61/13) + 21/10 *sin(9 *t + 75/16) _
   + 30/13 *sin(11 *t + 20/13) + 10/9 *sin(12 *t + 3/2) + 3/11 *sin(13 *t + 3/2) _
   + 4/7 *sin(14 *t + 33/7) + 5/16 *sin(15 *t + 32/21) + 1/2 *sin(16 *t + 20/13) _
   + 3/11 *sin(17 *t + 23/5) + 11/13 *sin(18 *t + 14/3) + 1/3 *sin(19 *t + 3/2) _
   + 5/7 *sin(20 *t + 25/17) + 1/5 *sin(21 *t + 11/8) + 2/9 *sin(22 *t + 75/16) _
   + 1/14 *sin(23 *t + 61/13) + 5/16 *sin(24 *t + 17/11) + 1/23 *sin(25 *t + 23/5) _
   + 3/11 *sin(26 *t + 37/8) + 3/11 *sin(28 *t + 13/9) + 1/6 *sin(29 *t + 11/8)_
   + 1/36 *sin(31 *t + 60/13) + 1/47 *sin(32 *t + 11/9) + 1/6 *sin(33 *t + 3/2) _
   + 1/10 *sin(35 *t + 60/13) + 1/19 *sin(36 *t + 23/15) + 1/8 *sin(37 *t + 29/19)_
   + 1/14 *sin(38 *t + 79/17) + 1/12 *sin(39 *t + 23/5) - 449/15) * Heaviside(27* pi - t)_
   * Heaviside(t - 23* pi) + (285/14 *sin(t + 11/7) + 9/11 *sin(2 *t + 61/13) _
   + 20/13 *sin(3 *t + 11/7) + 1/10 *sin(4 *t + 5/3) + 749/50) * Heaviside(23* pi - t)_
   * Heaviside(t - 19 *pi) + (263/12 *sin(t + 11/7) + 3/5 *sin(2 *t + 18/11) _
   + 2/5 *sin(3 *t + 17/11) + 1/10 *sin(4 *t + 18/11) - 521/8) * Heaviside(19* pi - t) _
   * Heaviside(t - 15 *pi) + (-1/18 *sin(29/28 - 20 *t) - 1/6 *sin(18/19 - 16 *t) _
   - 3/10 *sin(7/9 - 12 *t) - 1/8 *sin(9/17 - 11 *t) - 3/10 *sin(10/7 - 10 *t) _
   - 5/6 *sin(3/5 - 4 *t) + 1/28 *sin(24 *t) + 47/5 *sin(t + 22/7) + 324/25 *sin(2 *t + 43/10)_
   + 5/2 *sin(3 *t + 13/7) + 3/2 *sin(5 *t + 110/37) + 10/13 *sin(6 *t + 39/11) _
   + 5/7 *sin(7 *t + 15/11) + 5/9 *sin(8 *t + 7/9) + 5/7 *sin(9 *t + 17/11) + 1/5 *sin(13 *t + 2) _
   + 1/19 *sin(14 *t + 16/5) + 1/32 *sin(17 *t + 18/5) + 1/31 *sin(18 *t + 65/16) _
   + 1/9 *sin(19 *t + 15/4) + 1/29 *sin(21 *t + 18/7) + 1/20 *sin(22 *t + 11/8) _
   + 1/16 *sin(23 *t + 27/7) + 1/33 *sin(25 *t + 46/13) + 1/21 *sin(26 *t + 62/25)_
   + 1/12 *sin(27 *t + 25/7) + 1/30 *sin(28 *t + 25/17) + 1/29 *sin(29 *t + 25/26) _
   + 229/38) * Heaviside(15 *pi - t) * Heaviside(t - 11* pi) _
   + (-1/18 *sin(1/6 - 22 *t) - 1/18 *sin(7/8 - 19 *t) - 1/10 *sin(2/11 - 18 *t)_
   - 1/11 *sin(3/10 - 16 *t) - 1/12 *sin(3/8 - 13 *t) - 1/5 *sin(4/3 - 12 *t) _
   - 4/3 *sin(4/13 - 4 *t) + 64/7 *sin(t + 265/88) + 232/17 *sin(2 *t + 47/11) _
   + 22/15 *sin(3 *t + 33/17) + 10/21 *sin(5 *t + 31/10) + 9/8 *sin(6 *t + 43/14)_
   + 13/25 *sin(7 *t + 30/13) + 2/9 *sin(8 *t + 1/7) + 6/11 *sin(9 *t + 13/9) _
   + 3/8 *sin(10 *t + 10/11) + 1/20 *sin(11 *t + 36/13) + 1/8 *sin(14 *t + 5/13)_
   + 1/5 *sin(15 *t + 10/7) + 1/10 *sin(17 *t + 17/5) + 1/25 *sin(20 *t + 40/9)_
   + 1/6 *sin(21 *t + 37/11) + 1/77 *sin(23 *t + 19/14) - 640/9) * Heaviside(11 *pi - t)_
   * Heaviside(t - 7* pi) + (-13/8 *sin(14/11 - 2 *t) + 344/13 *sin(t + 23/14) _
   + 33/14 *sin(3 *t + 5/3) + 2/7 *sin(4 *t + 35/8) + 899/45) * Heaviside(7* pi - t) _
   * Heaviside(t - 3* pi) + (-4/13 *sin(7/9 - 6 *t) - 1/8 *sin(43/42 - 4 *t) _
   + 195/8 *sin(t + 32/21) + 7/12 *sin(2 *t + 8/11) + 7/5 *sin(3 *t + 13/9) _
   + 1/2 *sin(5 *t + 19/14) - 494/7) * Heaviside(3 *pi - t) * Heaviside(t + pi))_
   * Heaviside(sqr(sgn(sin(t/2))))

   y = ((-1/14 *sin(23/15 - 37 *t) - 1/42 *sin(14/9 - 36 *t) - 1/8 *sin(26/17 - 35 *t)_
   - 2/7 *sin(11/7 - 33 *t) - 1/42 *sin(13/9 - 19 *t) - 3/13 *sin(20/13 - 17 *t) _
   - 1/10 *sin(14/9 - 15 *t) - 4/7 *sin(14/9 - 9 *t) - 19/13 *sin(14/9 - 7 *t) _
   - 77/8 *sin(11/7 - 3 *t) + 161/5 *sin(t + 11/7) + 407/7 *sin(2 *t + 11/7)_
   + 123/11 *sin(4 *t + 11/7) + 74/17 *sin(5 *t + 11/7) + 50/11 *sin(6 *t + 11/7) _
   + 31/9 *sin(8 *t + 11/7) + 11/15 *sin(10 *t + 17/11) + 8/11 *sin(11 *t + 11/7)_
   + 14/11 *sin(12 *t + 11/7) + 5/8 *sin(13 *t + 61/13) + 4/5 *sin(14 *t + 19/12)_
   + 2/7 *sin(16 *t + 19/12) + 5/7 *sin(18 *t + 11/7) + 1/4 *sin(20 *t + 17/11) _
   + 2/9 *sin(21 *t + 14/9) + 1/6 *sin(22 *t + 38/25) + 1/5 *sin(23 *t + 47/10)_
   + 1/9 *sin(24 *t + 13/8) + 1/9 *sin(25 *t + 61/13) + 1/21 *sin(26 *t + 60/13) _
   + 1/9 *sin(27 *t + 14/3) + 2/9 *sin(28 *t + 8/5) + 2/11 *sin(29 *t + 75/16) _
   + 1/14 *sin(30 *t + 5/3) + 1/10 *sin(31 *t + 14/3) + 1/25 *sin(32 *t + 23/14) _
   + 1/10 *sin(34 *t + 8/5) + 1/26 *sin(38 *t + 5/3) + 1/11 *sin(39 *t + 14/3) _
   + 1/29 *sin(40 *t + 14/3) + 1/20 *sin(41 *t + 37/8) + 1/22 *sin(42 *t + 23/5) _
   + 1/12 *sin(43 *t + 65/14) + 1/14 *sin(44 *t + 13/8) + 1/12 *sin(45 *t + 47/10)_
   - 3819/20) * Heaviside(75 * pi - t) * Heaviside(t - 71 * pi) _
   + (-3/13 *sin(14/9 - 52 *t) - 1/8 *sin(22/15 - 51 *t) - 3/8 *sin(10/7 - 50 *t)_
   - 3/11 *sin(11/8 - 49 *t) - 6/5 *sin(20/13 - 48 *t) - 1/13 *sin(21/22 - 47 *t) _
   - 1/9 *sin(10/11 - 41 *t) - 11/15 *sin(17/11 - 37 *t) - 1/8 *sin(16/13 - 36 *t) _
   - 13/12 *sin(28/19 - 35 *t) - 5/6 *sin(13/9 - 34 *t) - 8/15 *sin(19/13 - 28 *t)_
   - 1/13 *sin(5/13 - 25 *t) - 15/4 *sin(14/9 - 22 *t) - 19/7 *sin(3/2 - 21 *t) _
   - 22/7 *sin(14/9 - 20 *t) - 25/26 *sin(32/21 - 19 *t) - 35/9 *sin(17/11 - 14 *t)_
   - 7 *sin(14/9 - 13 *t) - 31/3 *sin(14/9 - 9 *t) - 52/5 *sin(20/13 - 7 *t) _
   - 221/4 *sin(11/7 - 6 *t) - 221/9 *sin(11/7 - 5 *t) - 27 *sin(11/7 - t) _
   + 37/7 *sin(2 *t + 11/7) + 681/20 *sin(3 *t + 47/10) + 452/7 *sin(4 *t + 11/7) _
   + 109/6 *sin(8 *t + 33/7) + 117/10 *sin(10 *t + 19/12) + 2/9 *sin(11 *t + 5/2)_
   + 33/14 *sin(12 *t + 11/7) + 1/2 *sin(15 *t + 103/23) + 33/8 *sin(16 *t + 8/5) _
   + 9/4 *sin(17 *t + 14/3) + 1/19 *sin(18 *t + 25/6) + 2/9 *sin(23 *t + 23/5) _
   + 2/9 *sin(24 *t + 38/15) + 13/8 *sin(26 *t + 75/16) + 1/16 *sin(27 *t + 12/25) _
   + 5/13 *sin(29 *t + 75/16) + 22/21 *sin(30 *t + 11/7) + 1/6 *sin(31 *t + 41/10) _
   + 5/7 *sin(32 *t + 19/12) + 6/5 *sin(33 *t + 33/7) + 11/21 *sin(38 *t + 19/13) _
   + 4/13 *sin(39 *t + 14/3) + 3/8 *sin(40 *t + 32/7) + 1/3 *sin(42 *t + 37/8) _
   + 2/9 *sin(43 *t + 13/8) + 1/14 *sin(44 *t + 8/5) + 1/7 *sin(45 *t + 16/9) _
   + 1/30 *sin(46 *t + 75/19) + 556/7) * Heaviside(71 * pi - t) * Heaviside(t - 67 * pi) _
   + (-1/16 *sin(9/7 - 48 *t) - 1/13 *sin(30/29 - 40 *t) - 1/14 *sin(1/26 - 34 *t) _
   - 2/7 *sin(9/8 - 22 *t) - 7/10 *sin(11/8 - 16 *t) - 23/6 *sin(14/9 - 10 *t) _
   + 107/8 *sin(t + 14/9) + 4/7 *sin(2 *t + 27/26) + 68/7 *sin(3 *t + 29/19) _
   + 25/3 *sin(4 *t + 23/15) + 57/8 *sin(5 *t + 37/8) + 59/7 *sin(6 *t + 23/5)_
   + 95/7 *sin(7 *t + 37/8) + 53/18 *sin(8 *t + 29/19) + 75/13 *sin(9 *t + 19/13) _
   + 11/3 *sin(11 *t + 17/11) + 32/7 *sin(12 *t + 23/5) + 10/7 *sin(13 *t + 38/9) _
   + 14/5 *sin(14 *t + 60/13) + 41/15 *sin(15 *t + 28/19) + 1/34 *sin(17 *t + 7/10) _
   + 1/3 *sin(18 *t + 11/9) + 2/5 *sin(19 *t + 69/17) + 13/11 *sin(20 *t + 68/15) _
   + 3/7 *sin(21 *t + 19/11) + 1/2 *sin(23 *t + 14/9) + 16/17 *sin(24 *t + 23/5) _
   + 3/8 *sin(25 *t + 53/26) + 13/14 *sin(26 *t + 49/11) + 1/5 *sin(27 *t + 7/4) _
   + 1/4 *sin(28 *t + 8/11) + 2/9 *sin(29 *t + 11/10) + 1/11 *sin(30 *t + 68/15) _
   + 3/7 *sin(31 *t + 25/6) + 2/9 *sin(32 *t + 23/6) + 5/14 *sin(33 *t + 64/15) _
   + 6/11 *sin(35 *t + 11/9) + 4/9 *sin(36 *t + 50/11) + 1/7 *sin(37 *t + 7/3) _
   + 2/7 *sin(38 *t + 43/10) + 1/13 *sin(39 *t + 28/11) + 1/6 *sin(41 *t + 9/11) _
   + 1/10 *sin(42 *t + 15/13) + 1/4 *sin(43 *t + 33/8) + 2/9 *sin(44 *t + 42/11) _
   + 1/8 *sin(45 *t + 37/10) + 1/10 *sin(46 *t + 104/23) + 1/9 *sin(47 *t + 40/39) _
   + 1/11 *sin(49 *t + 27/10) + 2/7 *sin(50 *t + 53/13) + 1/17 *sin(51 *t + 9/4) + 550/3) _
   * Heaviside(67 * pi - t) * Heaviside(t - 63 * pi) + (-1/41 *sin(7/5 - 27 *t)_
   - 389/16 *sin(11/7 - 4 *t) + 174/11 *sin(t + 11/7) + 107/14 *sin(2 *t + 11/7) _
   + 19/2 *sin(3 *t + 11/7) + 98/15 *sin(5 *t + 19/12) + 43/12 *sin(6 *t + 11/7) _
   + 27/8 *sin(7 *t + 8/5) + 67/5 *sin(8 *t + 33/7) + 23/10 *sin(9 *t + 33/7)_
   + sin(10 *t + 47/10) + 4/5 *sin(11 *t + 55/12) + 257/64 *sin(12 *t + 61/13)_
   + 1/2 *sin(13 *t + 75/16) + 1/9 *sin(14 *t + 19/11) + 9/7 *sin(15 *t + 18/11) _
   + 31/11 *sin(16 *t + 47/10) + 2/3 *sin(17 *t + 14/3) + 2/5 *sin(18 *t + 33/7)_
   + 2/5 *sin(19 *t + 61/13) + 8/5 *sin(20 *t + 61/13) + 1/5 *sin(21 *t + 22/5) _
   + 2/11 *sin(22 *t + 18/11) + 3/8 *sin(23 *t + 8/5) + 5/6 *sin(24 *t + 14/3) _
   + 1/12 *sin(25 *t + 56/13) + 6/11 *sin(28 *t + 61/13) + 1/11 *sin(29 *t + 55/12)_
   + 1/16 *sin(30 *t + 45/22) + 1/5 *sin(31 *t + 11/7) + 1/3 *sin(32 *t + 33/7) _
   + 1/25 *sin(33 *t + 25/6) + 1/12 *sin(34 *t + 31/16) + 4/11 *sin(36 *t + 61/13)_
   + 1/13 *sin(37 *t + 35/8) + 1/9 *sin(38 *t + 23/5) + 1/10 *sin(39 *t + 22/13) _
   + 3/11 *sin(40 *t + 14/3) + 1/10 *sin(41 *t + 23/5) + 1/51 *sin(42 *t + 7/2) _
   + 1/25 *sin(43 *t + 20/9) + 2/11 *sin(44 *t + 51/11) + 1/8 *sin(45 *t + 65/14) _
   + 1/10 *sin(46 *t + 41/9) + 1/61 *sin(47 *t + 53/12) + 1/6 *sin(48 *t + 65/14) _
   + 1704/13) * Heaviside(63 * pi - t) * Heaviside(t - 59 * pi) + (-2/9 *sin(9/7 - 48 *t)_
   - 1/8 *sin(7/5 - 45 *t) - 1/4 *sin(11/9 - 44 *t) - 1/6 *sin(16/11 - 42 *t) _
   - 1/14 *sin(5/12 - 41 *t) - 6/19 *sin(23/17 - 40 *t) - 1/26 *sin(1 - 39 *t)_
   - 1/13 *sin(7/8 - 37 *t) - 1/3 *sin(28/19 - 36 *t) - 1/4 *sin(17/16 - 33 *t)_
   - 2/3 *sin(11/8 - 32 *t) - 1/3 *sin(5/4 - 31 *t) - 1/5 *sin(18/13 - 29 *t) _
   - 3/4 *sin(7/5 - 28 *t) - 1/4 *sin(3/2 - 26 *t) - 2/9 *sin(9/8 - 25 *t) _
   - 7/9 *sin(11/8 - 24 *t) - 6/11 *sin(13/9 - 23 *t) - 3/8 *sin(19/14 - 21 *t)_
   - 8/5 *sin(13/9 - 20 *t) - 9/19 *sin(10/7 - 18 *t) - 1/8 *sin(11/16 - 17 *t) _
   - 9/8 *sin(22/15 - 16 *t) - 13/12 *sin(13/9 - 15 *t) - 1/6 *sin(5/6 - 14 *t) _
   - 3/7 *sin(47/46 - 13 *t) - 31/5 *sin(32/21 - 12 *t) - 1/10 *sin(17/12 - 10 *t) _
   - 11/9 *sin(7/5 - 9 *t) - 87/13 *sin(3/2 - 8 *t) - 43/12 *sin(20/13 - 7 *t) _
   - 59/30 *sin(14/9 - 6 *t) - 1089/16 *sin(14/9 - 4 *t) + 162/7 *sin(t + 19/12)_
   + 163/8 *sin(2 *t + 8/5) + 229/13 *sin(3 *t + 17/11) + 9/7 *sin(5 *t + 1) _
   + 24/11 *sin(11 *t + 11/7) + 3/11 *sin(19 *t + 9/7) + 3/8 *sin(22 *t + 3/2) _
   + 2/5 *sin(27 *t + 11/7) + 3/8 *sin(30 *t + 18/11) + 1/14 *sin(34 *t + 9/2)_
   + 1/6 *sin(35 *t + 15/11) + 3/11 *sin(38 *t + 9/5) + 1/20 *sin(43 *t + 8/9) _
   + 2/11 *sin(46 *t + 5/3) + 1/42 *sin(47 *t + 22/5) + 1/14 *sin(49 *t + 17/18)_
   + 568/9) * Heaviside(59 * pi - t) * Heaviside(t - 55 * pi) + (-17/8 *sin(10/7 - 38 *t)_
   - 6/13 *sin(28/19 - 36 *t) - 5/3 *sin(28/19 - 35 *t) - 3/8 *sin(14/9 - 33 *t)_
   - 1/7 *sin(9/11 - 30 *t) - 1/5 *sin(19/13 - 28 *t) - 1/8 *sin(8/11 - 26 *t)_
   - 1/3 *sin(25/17 - 23 *t) - 13/11 *sin(17/11 - 19 *t) - 43/9 *sin(17/11 - 15 *t)_
   - 107/3 *sin(23/15 - 13 *t) - 103/13 *sin(34/23 - 12 *t) - 125/17 *sin(11/7 - 10 *t) _
   - 25/13 *sin(19/13 - 8 *t) - 7/8 *sin(20/13 - 7 *t) - 10/7 *sin(37/25 - 3 *t)_
   - 187/12 *sin(11/7 - t) + 45/17 *sin(2 *t + 19/12) + 12/7 *sin(4 *t + 23/15) _
   + 11/7 *sin(5 *t + 14/3) + 23/13 *sin(6 *t + 13/8) + 2 *sin(9 *t + 33/7) _
   + 17/2 *sin(11 *t + 8/5) + 41/14 *sin(14 *t + 17/12) + 36/7 *sin(16 *t + 5/3) _
   + 3/5 *sin(17 *t + 48/11) + 48/19 *sin(18 *t + 19/12) + 2/5 *sin(20 *t + 16/9) _
   + 1/5 *sin(21 *t + 35/8) + 3/11 *sin(22 *t + 9/14) + 3/11 *sin(24 *t + 32/7)_
   + 8/7 *sin(25 *t + 17/10) + 1/7 *sin(27 *t + 55/12) + 1/35 *sin(29 *t + 35/9) _
   + 1/6 *sin(31 *t + 60/13) + 3/11 *sin(32 *t + 7/4) + 1/4 *sin(34 *t + 4/3) _
   + 4/3 *sin(37 *t + 5/3) - 2099/12) * Heaviside(55 * pi - t) * Heaviside(t - 51 * pi)_
   + (-15/13 *sin(6/5 - 42 *t) - 23/17 *sin(9/7 - 41 *t) - 4/11 *sin(13/9 - 35 *t)_
   - 5/6 *sin(23/17 - 34 *t) - 13/11 *sin(9/7 - 30 *t) - 2/7 *sin(17/11 - 29 *t) _
   - 5/3 *sin(25/17 - 27 *t) - 13/19 *sin(4/3 - 24 *t) - 15/8 *sin(11/8 - 22 *t) _
   - 56/5 *sin(31/21 - 19 *t) - 122/7 *sin(19/13 - 15 *t) - 130/9 *sin(13/9 - 14 *t) _
   - 35/6 *sin(16/11 - 13 *t) - 33/8 *sin(20/13 - 12 *t) - 10/3 *sin(14/9 - 8 *t) _
   - 17/7 *sin(3/2 - 6 *t) - 5/4 *sin(20/13 - 5 *t) - 15/2 *sin(11/7 - 3 *t)_
   - 293/6 *sin(11/7 - t) + 181/18 *sin(2 *t + 11/7) + 28/11 *sin(4 *t + 14/9) _
   + 3/5 *sin(7 *t + 17/12) + 2 *sin(9 *t + 13/8) + 13/9 *sin(10 *t + 51/11) _
   + 30/13 *sin(11 *t + 18/11) + 13/10 *sin(16 *t + 38/25) + 14/3 *sin(17 *t + 16/9)_
   + 91/18 *sin(18 *t + 18/11) + 41/5 *sin(20 *t + 18/11) + 6/7 *sin(21 *t + 67/15) _
   + 34/13 *sin(23 *t + 5/3) + 12/13 *sin(25 *t + 65/14) + 13/5 *sin(26 *t + 5/3) _
   + 16/15 *sin(28 *t + 16/9) + 1/23 *sin(31 *t + 9/8) + 2/11 *sin(32 *t + 31/7) _
   + 4/7 *sin(33 *t + 22/13) + 1/7 *sin(36 *t + 5/3) + 1/12 *sin(37 *t + 32/7) _
   + 1/24 *sin(38 *t + 1/2) + 3/8 *sin(39 *t + 65/14) + 1/3 *sin(40 *t + 29/19) _
   - 726/7) * Heaviside(51 * pi - t) * Heaviside(t - 47 * pi) + (-6/11 *sin(6/7 - 49 *t)_
   - 25/9 *sin(17/11 - 46 *t) - 1/23 *sin(13/11 - 41 *t) - 1/14 *sin(7/5 - 39 *t) _
   - 3/8 *sin(19/13 - 30 *t) - 1/6 *sin(2/11 - 29 *t) - 1/3 *sin(12/11 - 25 *t) _
   - 8/9 *sin(26/25 - 21 *t) - 37/9 *sin(5/4 - 17 *t) - 56/5 *sin(17/11 - 14 *t) _
   - 29/9 *sin(23/15 - 12 *t) - 3/11 *sin(7/8 - 10 *t) - 7/5 *sin(13/9 - 3 *t) _
   + 37/7 *sin(t + 11/7) + 16/5 *sin(2 *t + 20/13) + 6/17 *sin(4 *t + 47/10)_
   + 2/3 *sin(5 *t + 19/13) + 19/13 *sin(6 *t + 8/5) + 2/9 *sin(7 *t + 8/11) _
   + 10/7 *sin(8 *t + 32/7) + 9/19 *sin(9 *t + 15/4) + 7/4 *sin(11 *t + 13/9) _
   + 7/6 *sin(13 *t + 43/10) + 68/11 *sin(15 *t + 10/7) + 1420/29 *sin(16 *t + 14/9)_
   + 81/10 *sin(18 *t + 14/9) + 3/8 *sin(19 *t + 32/21) + 116/39 *sin(20 *t + 13/9)_
   + 3/4 *sin(22 *t + 11/8) + 5/12 *sin(23 *t + 18/5) + 32/33 *sin(24 *t + 14/9) _
   + 2/9 *sin(26 *t + 31/7) + 1/10 *sin(27 *t + 33/8) + 12/23 *sin(28 *t + 23/15) _
   + 2/11 *sin(31 *t + 135/34) + 1/5 *sin(32 *t + 11/6) + 1/20 *sin(33 *t + 13/9) _
   + 1/9 *sin(34 *t + 3/4) + 2/7 *sin(35 *t + 41/10) + 1/8 *sin(36 *t + 10/3) _
   + 1/6 *sin(37 *t + 16/13) + 4/15 *sin(38 *t + 1) + 2/9 *sin(40 *t + 27/7) _
   + 3/10 *sin(42 *t + 8/7) + 3/10 *sin(43 *t + 10/7) + 2/5 *sin(44 *t + 59/13) _
   + 3/4 *sin(45 *t + 9/2) + 24/13 *sin(47 *t + 17/11) + 16/5 *sin(48 *t + 38/25) _
   + 11/5 *sin(50 *t + 20/13) - 8005/46) * Heaviside(47 * pi - t) * Heaviside(t - 43 * pi)_
   + (-27/11 *sin(35/23 - 31 *t) - 13/9 *sin(3/2 - 29 *t) - 1/12 *sin(5/9 - 28 *t) _
   - 3/4 *sin(14/9 - 27 *t) - 19/8 *sin(14/9 - 24 *t) - 52/15 *sin(31/21 - 22 *t) _
   - 7/3 *sin(3/2 - 20 *t) - 13/4 *sin(3/2 - 19 *t) - 106/13 *sin(23/15 - 17 *t) _
   - 17/5 *sin(14/9 - 9 *t) - 13/19 *sin(11/9 - 5 *t) - 21/2 *sin(11/7 - 3 *t) _
   + 434/9 *sin(t + 33/7) + 133/9 *sin(2 *t + 11/7) + 17/9 *sin(4 *t + 31/21) _
   + 257/64 *sin(6 *t + 3/2) + 3/2 *sin(7 *t + 29/19) + 4/13 *sin(8 *t + 3/2) _
   + 43/9 *sin(10 *t + 14/3) + 77/17 *sin(11 *t + 37/8) + 55/8 *sin(12 *t + 23/5) _
   + 237/10 *sin(13 *t + 14/3) + 169/8 *sin(14 *t + 75/16) + 99/10 *sin(15 *t + 8/5) _
   + 289/32 *sin(16 *t + 14/9) + 91/16 *sin(18 *t + 14/9) + 26/7 *sin(21 *t + 3/2) _
   + 94/21 *sin(23 *t + 14/9) + 6/5 *sin(25 *t + 21/13) + 4/7 *sin(26 *t + 37/8) _
   + 38/13 *sin(30 *t + 17/11) + 97/49 *sin(32 *t + 14/9) + 8/9 *sin(33 *t + 23/5) _
   + 2/3 *sin(34 *t + 23/14) + 41/20 *sin(35 *t + 23/5) + 7/12 *sin(36 *t + 11/6) _
   + 36/13 *sin(37 *t + 65/14) + 11/9 *sin(38 *t + 7/4) + 32/13 *sin(39 *t + 37/8) _
   + 7/9 *sin(40 *t + 50/11) + 7/10 *sin(41 *t + 14/3) + 17/8 *sin(42 *t + 3/2) - 811/6)_
   * Heaviside(43 * pi - t) * Heaviside(t - 39 * pi) + (-1/8 *sin(13/12 - 50 *t)_
   - 1/2 *sin(11/8 - 48 *t) - 3/8 *sin(38/25 - 45 *t) - 60/59 *sin(16/11 - 43 *t) _
   - 23/17 *sin(3/2 - 41 *t) - 3/7 *sin(15/11 - 40 *t) - 15/7 *sin(11/7 - 38 *t) _
   - 9/5 *sin(14/9 - 36 *t) - 32/9 *sin(23/15 - 33 *t) - 493/82 *sin(17/11 - 30 *t)_
   - 40/9 *sin(11/7 - 28 *t) - 13/8 *sin(17/11 - 27 *t) - 50/9 *sin(11/7 - 22 *t) _
   - 22/5 *sin(11/7 - 17 *t) - 7/10 *sin(19/15 - 14 *t) - 72/13 *sin(11/7 - 12 *t) _
   - 5/7 *sin(9/7 - 10 *t) - 51/11 *sin(11/7 - 5 *t) - 153/8 *sin(11/7 - 3 *t) _
   - 383/6 *sin(11/7 - t) + 375/11 *sin(2 *t + 11/7) + 79/10 *sin(4 *t + 8/5) _
   + 3 *sin(6 *t + 8/5) + 39/11 *sin(7 *t + 14/9) + 4/3 *sin(8 *t + 47/10) _
   + 73/10 *sin(9 *t + 19/12) + 87/7 *sin(11 *t + 11/7) + 64/7 *sin(13 *t + 8/5) _
   + 1/5 *sin(15 *t + 8/5) + 85/8 *sin(16 *t + 47/10) + 47/9 *sin(18 *t + 14/9) _
   + 58/19 *sin(19 *t + 14/9) + 59/4 *sin(20 *t + 47/10) + 203/12 *sin(21 *t + 33/7) _
   + 27/11 *sin(23 *t + 14/9) + 21/8 *sin(24 *t + 47/10) + 37/12 *sin(25 *t + 11/7) _
   + 26/5 *sin(26 *t + 14/9) + 54/11 *sin(29 *t + 8/5) + 5/2 *sin(31 *t + 47/10) _
   + 27/8 *sin(32 *t + 13/8) + 4/5 *sin(34 *t + 19/12) + 9/5 *sin(35 *t + 13/8) _
   + 23/10 *sin(37 *t + 19/12) + 1/3 *sin(39 *t + 19/11) + 1/7 *sin(42 *t + 23/10) _
   + 3/11 *sin(44 *t + 17/13) + 1/5 *sin(46 *t + 34/23) + 28/19 *sin(47 *t + 11/7) _
   + 35/34 *sin(49 *t + 27/16) + 22/21 *sin(51 *t + 14/9) - 1576/21) * Heaviside(39 * pi - t) _
   * Heaviside(t - 35 * pi) + (-7/8 *sin(11/7 - 9 *t) - 1/11 *sin(11/8 - 5 *t) - 19/9 *sin(11/7 - 3 *t)_
   + 95/16 *sin(t + 11/7) + 9/7 *sin(2 *t + 11/7) + 43/14 *sin(4 *t + 11/7)_
   + 6/5 *sin(6 *t + 11/7) + 1/6 *sin(7 *t + 23/15) + 4/5 *sin(8 *t + 11/7) _
   + 3/7 *sin(10 *t + 11/7) - 1186/11) * Heaviside(35 * pi - t) * Heaviside(t - 31 * pi)_
   + (-1/16 *sin(15/11 - 51 *t) - 1/31 *sin(19/13 - 48 *t) - 1/40 *sin(2/5 - 41 *t) _
   - 8/17 *sin(26/17 - 37 *t) - 1/2 *sin(20/13 - 33 *t) - 3/4 *sin(14/9 - 29 *t) _
   - 14/9 *sin(10/9 - 23 *t) - 11/14 *sin(11/9 - 21 *t) - 1/28 *sin(7/5 - 19 *t)_
   - 11/8 *sin(3/2 - 17 *t) - 17/10 *sin(17/11 - 15 *t) - 7/4 *sin(17/11 - 9 *t) _
   + 104/15 *sin(t + 33/7) + 113/10 *sin(2 *t + 11/7) + 68/7 *sin(3 *t + 47/10) _
   + 77/12 *sin(4 *t + 11/7) + 9/2 *sin(5 *t + 33/7) + 265/66 *sin(6 *t + 11/7) _
   + 4 *sin(7 *t + 47/10) + 55/12 *sin(8 *t + 14/9) + 45/23 *sin(10 *t + 13/8) _
   + 15/7 *sin(11 *t + 61/13) + 25/8 *sin(12 *t + 14/9) + 29/8 *sin(13 *t + 61/13) _
   + 3 *sin(14 *t + 23/15) + 2/11 *sin(16 *t + 13/8) + 5/9 *sin(18 *t + 19/11)_
   + 4/5 *sin(20 *t + 25/17) + 70/11 *sin(22 *t + 65/14) + 82/13 *sin(24 *t + 14/3) _
   + 25/9 *sin(25 *t + 37/8) + 71/11 *sin(26 *t + 16/11) + 3/5 *sin(27 *t + 54/13) _
   + 28/19 *sin(28 *t + 23/5) + 23/13 *sin(30 *t + 22/15) + 5/9 *sin(31 *t + 11/7) _
   + 5/6 *sin(32 *t + 51/11) + 2/3 *sin(34 *t + 22/15) + 2/5 *sin(35 *t + 47/11) _
   + 4/13 *sin(36 *t + 7/6) + 5/11 *sin(38 *t + 31/7) + 8/17 *sin(39 *t + 16/13) _
   + 2/9 *sin(40 *t + 23/5) + 1/8 *sin(42 *t + 24/7) + 1/6 *sin(43 *t + 34/33) _
   + 1/8 *sin(44 *t + 5/4) + 3/7 *sin(45 *t + 9/2) + 5/13 *sin(46 *t + 11/8)_
   + 2/5 *sin(47 *t + 14/3) + 1/7 *sin(49 *t + 50/11) + 1/8 *sin(50 *t + 13/9) _
   + 1/15 *sin(52 *t + 81/20) + 1/9 *sin(53 *t + 10/7) + 2/11 *sin(54 *t + 3/2) _
   + 1/22 *sin(56 *t + 53/18) + 1/26 *sin(57 *t + 13/10) - 851/10) _
   * Heaviside(31 * pi - t) * Heaviside(t - 27 * pi) + (-1/19 *sin(10/7 - 29 *t) _
   - 1/11 *sin(3/2 - 21 *t) - 7/12 *sin(11/7 - 13 *t) - 247/12 *sin(11/7 - t) _
   + 343/18 *sin(2 *t + 11/7) + 49/3 *sin(3 *t + 33/7) + 30/13 *sin(4 *t + 37/8)_
   + 59/11 *sin(5 *t + 61/13) + 23/12 *sin(6 *t + 14/3) + 1/3 *sin(7 *t + 59/13) _
   + 17/9 *sin(8 *t + 19/12) + 44/15 *sin(9 *t + 61/13) + 4/5 *sin(10 *t + 14/3) _
   + 5/12 *sin(11 *t + 20/13) + 9/10 *sin(12 *t + 17/11) + 1/4 *sin(14 *t + 8/5) _
   + 1/2 *sin(15 *t + 37/8) + 2/3 *sin(16 *t + 23/5) + 5/6 *sin(17 *t + 51/11) _
   + 3/13 *sin(18 *t + 5/3) + 1/13 *sin(20 *t + 17/10) + 3/11 *sin(22 *t + 14/9) _
   + 1/16 *sin(23 *t + 37/8) + 1/3 *sin(24 *t + 41/9) + 6/11 *sin(25 *t + 23/5) _
   + 1/8 *sin(26 *t + 58/13) + 1/15 *sin(27 *t + 7/5) + 1/5 *sin(28 *t + 25/17) _
   + 1/10 *sin(30 *t + 19/12) + 1/17 *sin(31 *t + 55/12) + 1/21 *sin(32 *t + 43/10) _
   + 3/13 *sin(33 *t + 50/11) + 1/12 *sin(34 *t + 69/16) + 1/12 *sin(35 *t + 95/21) _
   + 1/21 *sin(36 *t + 10/7) + 1/11 *sin(37 *t + 47/10) + 1/16 *sin(38 *t + 3/2) _
   + 1/28 *sin(39 *t + 7/4) - 587/12) * Heaviside(27 * pi - t) * Heaviside(t - 23 * pi) _
   + (-21/22 *sin(11/7 - 4 *t) - 72/13 *sin(11/7 - 2 *t) - 60/17 *sin(11/7 - t) _
   + 1/22 *sin(3 *t + 5/4) + 340/31) * Heaviside(23 * pi - t) * Heaviside(t - 19 * pi)_
   + (-4/3 *sin(11/7 - 4 *t) - 135/13 *sin(11/7 - 2 *t) + 3/8 *sin(t + 31/21) _
   + 6/17 *sin(3 *t + 19/13) + 45/7) * Heaviside(19 * pi - t) * Heaviside(t - 15 * pi)_
   + (-1/27 *sin(2/3 - 26 *t) - 1/8 *sin(4/5 - 18 *t) - 1/9 *sin(5/8 - 16 *t) - 4/9 *sin(2/9 - 10 *t)_
   - 32/11 *sin(15/11 - 4 *t) - 56/19 *sin(1/5 - 2 *t) - 11/2 *sin(17/12 - t) _
   + 27/10 *sin(3 *t + 1/2) + 9/7 *sin(5 *t + 22/9) + 7/10 *sin(6 *t + 43/22) _
   + 11/23 *sin(7 *t + 17/9) + 1/5 *sin(8 *t + 37/8) + 2/7 *sin(9 *t + 3/4) _
   + 1/9 *sin(11 *t + 5/4) + 1/8 *sin(12 *t + 19/6) + 1/11 *sin(13 *t + 13/4) _
   + 1/17 *sin(14 *t + 58/13) + 1/9 *sin(15 *t + 13/9) + 1/61 *sin(17 *t + 80/27) _
   + 1/18 *sin(19 *t + 37/9) + 1/18 *sin(20 *t + 25/7) + 1/21 *sin(21 *t + 37/14) _
   + 1/12 *sin(22 *t + 1/7) + 1/18 *sin(23 *t + 31/11) + 1/17 *sin(24 *t + 14/13) _
   + 1/21 *sin(25 *t + 22/5) + 1/27 *sin(27 *t + 27/11) + 1/15 *sin(28 *t + 23/13) _
   + 1/25 *sin(29 *t + 17/8) + 1/6) * Heaviside(15 * pi - t) * Heaviside(t - 11 * pi) _
   + (-1/9 *sin(8/15 - 18 *t) - 2/7 *sin(5/14 - 16 *t) - 1/8 *sin(14/11 - 14 *t) _
   - 2/9 *sin(4/13 - 12 *t) - 3/8 *sin(2/9 - 10 *t) - 39/11 *sin(7/5 - 4 *t)_
   - 53/9 *sin(18/13 - t) + 13/4 *sin(2 *t) + 77/19 *sin(3 *t + 9/10) _
   + sin(5 *t + 46/15) + 3/8 *sin(6 *t + 28/29) + 9/8 *sin(7 *t + 19/11) _
   + 1/13 *sin(8 *t + 6/5) + 2/3 *sin(9 *t + 17/11) + 3/11 *sin(11 *t + 2/5) _
   + 1/7 *sin(13 *t + 17/10) + 1/13 *sin(15 *t + 17/8) + 1/57 *sin(17 *t + 17/8) _
   + 1/7 *sin(19 *t + 37/8) + 2/9 *sin(20 *t + 68/15) + 1/8 *sin(21 *t + 25/9) _
   + 1/20 *sin(22 *t + 45/17) + 1/23 *sin(23 *t + 29/12) - 1) * Heaviside(11 * pi - t)_
   * Heaviside(t - 7 * pi) + (-4/3 *sin(12/11 - 4 *t) - 223/37 *sin(20/13 - 2 *t) _
   + 79/9 *sin(t + 21/5) + 19/14 *sin(3 *t + 59/20) + 155/7) * Heaviside(7 * pi - t)_
   * Heaviside(t - 3 * pi) + (69/13 *sin(t + 27/10) + 71/11 *sin(2 *t + 31/7)_
   + 23/11 *sin(3 *t + 17/7) + 11/7 *sin(4 *t + 49/11) + 11/13 *sin(5 *t + 19/7)_
   + 5/11 *sin(6 *t + 41/11) + 227/9) * Heaviside(3 * pi - t) _
   * Heaviside(t + pi)) * Heaviside(sqr(sgn(sin(t/2))))

   plot 400+ x,y+300
next t
locate 5,2 : ? "Al-Khwarismi. Une touche pour sortir ..."

repeat : until len(inkey())

rem ================================================================================================
' la fonction de Heaviside (également fonction échelon unité, fonction marche d'escalier),
' du nom d’Oliver Heaviside, est la fonction indicatrice de R+.
' C'est donc la fonction H (discontinue en 0) prenant la valeur 1 pour tous les réels positifs et
' la valeur 0 pour les réels strictement négatifs
FUNCTION Heaviside(h)
   if h < 0 then return 0 else return 1
END_FUNCTION
rem ==================================================================================================

Spoiler:

Nombre de messages : 2709 Date d'inscription : 13/09/2009

Et alors...?!?!?!
Tu n'as même pas, en stock, de représentation
mathématique d'un martien ?
lol!

Sujet: Re: Les programmes de papydall Mer 25 Nov 2020 - 2:33

jjn4 a écrit:: Tu n'as même pas, en stock, de représentation
mathématique d'un martien ?

C’est tout ce tu demandes ?

Il parait que sur la planète Mars, on apprécie plutôt la mocheté que la beauté.
Bon, alors voici un bien beau moche martien et deux des ses adjoints !

Code:: rem ============================================================================================
rem NOTRE MARTIEN PREFERE
rem ============================================================================================

dim x,y,t,p,w,h
p = pi/2880
w = 800 : h = 600

mode 3,"POUR JJN4 NOTRE MARTIEN PREFERE",w,h
cls
for t = 0 to 84 * pi step p
   x = ((-131/32 * sin(36/23 - 3 * t) + 441/58 * sin( t + 11/7) + 45/13 * sin(2 * t + 52/33)_
   + 24/17 * sin(4 * t + 11/7) + 95/37 * sin(5 * t + 41/26) + 19/32 * sin(6 * t + 46/29)_
   + 13/7 * sin(7 * t + 30/19) + 35/36 * sin(8 * t + 52/33) + 13/25 * sin(9 * t + 27/17)_
   + 32/95 * sin(10 * t + 19/12) + 1608/17) * Heaviside(83 * pi - t) * Heaviside( t - 79 * pi)_
   + (-2/27 * sin(19/13 - 11 * t) - 53/24 * sin(25/16 - 4 * t) - 93/92 * sin(49/32 - 3 * t) _
   + 145/11 * sin(t + 52/33) + 4/29 * sin(2 * t + 49/29) + 49/15 * sin(5 * t + 46/29)_
   + 9/25 * sin(6 * t + 73/44) + 64/37 * sin(7 * t + 27/17) + 1/12 * sin(8 * t + 57/32)_
   + 8/9 * sin(9 * t + 8/5) + 19/58 * sin(10 * t + 18/11) + 2/13 * sin(12 * t + 44/27)_
   - 401/3) * Heaviside(79 * pi - t) * Heaviside( t - 75 * pi) + (-6/31 * sin(19/21 - 58 * t)_
   - 38/115 * sin(4/11 - 56 * t) - 3/19 * sin(31/32 - 53 * t) - 11/19 * sin(200/133 - 32 * t)_
   - 44/53 * sin(20/13 - 30 * t) - 44/17 * sin(39/28 - 15 * t) - 129/19 * sin(31/20 - 10 * t)_
   - 14/19 * sin(6/23 - 8 * t) - 1686/31 * sin(14/9 - 4 * t) - 502/35 * sin(31/20 - t)_
   + 73/55 * sin(2 * t + 32/25) + 1197/20 * sin(3 * t + 30/19) + 711/19 * sin(5 * t + 52/33) _
   + 629/82 * sin(6 * t + 46/31) + 188/21 * sin(7 * t + 43/28) + 926/57 * sin(9 * t + 25/16) _
   + 105/17 * sin(11 * t + 119/26) + 323/23 * sin(12 * t + 47/10) + 289/20 * sin(13 * t + 39/25)_
   + 27/5 * sin(14 * t + 16/11) + 67/68 * sin(16 * t + 33/26) + 467/35 * sin(17 * t + 43/29)_
   + 77/10 * sin(18 * t + 22/15) + 28/17 * sin(19 * t + 78/17) + 386/35 * sin(20 * t + 78/17) _
   + 284/43 * sin(21 * t + 83/18) + 5/21 * sin(22 * t + 33/10) + 64/23 * sin(23 * t + 48/35)_
   + 103/27 * sin(24 * t + 37/25) + 41/19 * sin(25 * t + 31/22) + 59/20 * sin(26 * t + 93/20)_
   + 59/42 * sin(27 * t + 189/43) + 23/18 * sin(28 * t + 68/15) + 18/13 * sin(29 * t + 25/16) _
   + 4/7 * sin(31 * t + 55/13) + 9/25 * sin(33 * t + 369/92) + 128/57 * sin(34 * t + 145/32) _
   + 75/47 * sin(35 * t + 69/16) + 5/17 * sin(36 * t + 89/19) + 32/31 * sin(37 * t + 31/20)_
   + 2/13 * sin(38 * t + 47/26) + 7/6 * sin(39 * t + 244/53) + 6/11 * sin(40 * t + 157/35) _
   + 8/23 * sin(41 * t + 92/31) + 35/16 * sin(42 * t + 239/53) + 8/7 * sin(43 * t + 433/100) _
   + 3/5 * sin(44 * t + 77/19) + 11/19 * sin(45 * t + 35/8) + 23/25 * sin(46 * t + 73/17) _
   + sin(47 * t + 73/16) + 5/33 * sin(48 * t + 74/21) + 22/35 * sin(49 * t + 18/13) _
   + 2/11 * sin(50 * t + 32/27) + 9/46 * sin(51 * t + 92/61) + 7/15 * sin(52 * t + 89/20) _
   + 11/12 * sin(54 * t + 71/53) + 27/22 * sin(55 * t + 25/19) + 12/23 * sin(57 * t + 77/48)_
   + 1/9 * sin(59 * t + 47/18) + 5/17 * sin(60 * t + 67/17) + 8377/35)_
   * Heaviside(75 * pi - t) * Heaviside(t - 71 * pi) + (-9/35 * sin(22/17 - 60 * t)_
   - 5/27 * sin(21/16 - 59 * t) - 5/14 * sin(45/29 - 56 * t) - 3/19 * sin(34/25 - 53 * t)_
   - 1/16 * sin(11/16 - 52 * t) - 18/11 * sin(20/13 - 45 * t) - 39/40 * sin(20/13 - 44 * t) _
   - 23/26 * sin(23/15 - 42 * t) - 18/89 * sin(41/27 - 41 * t) - 2/25 * sin(14/9 - 39 * t)_
   - 2/25 * sin(18/13 - 37 * t) - 86/25 * sin(59/38 - 31 * t) - 20/39 * sin(13/9 - 28 * t)_
   - 32/35 * sin(35/24 - 27 * t) - 41/11 * sin(23/15 - 24 * t) - 103/40 * sin(50/33 - 23 * t)_
   - 19/9 * sin(29/19 - 21 * t) - 159/13 * sin(14/9 - 16 * t) - 88/15 * sin(218/145 - 13 * t) _
   + 213/8 * sin( t + 30/19) + 85/11 * sin(2 * t + 31/20) + 531/31 * sin(3 * t + 80/17) _
   + 1622/37 * sin(4 * t + 58/37) + 675/17 * sin(5 * t + 179/38) + 235/28 * sin(6 * t + 19/12)_
   + 365/34 * sin(7 * t + 173/37) + 100/21 * sin(8 * t + 41/28) + 183/19 * sin(9 * t + 75/16) _
   + 23/19 * sin(10 * t + 14/3) + 605/36 * sin(11 * t + 155/33) + 50/17 * sin(12 * t + 61/13) _
   + 190/17 * sin(14 * t + 8/5) + 82/25 * sin(15 * t + 108/23) + 17/14 * sin(17 * t + 119/26) _
   + 219/82 * sin(18 * t + 5/3) + 6/17 * sin(19 * t + 19/21) + 7/8 * sin(20 * t + 55/12) _
   + 53/16 * sin(22 * t + 22/13) + 18/53 * sin(25 * t + 60/31) + 51/25 * sin(26 * t + 50/31)_
   + 41/19 * sin(29 * t + 429/92) + 27/25 * sin(30 * t + 83/18) + 40/29 * sin(32 * t + 201/43) _
   + 13/11 * sin(33 * t + 221/48) + 14/25 * sin(34 * t + 20/13) + 82/47 * sin(35 * t + 52/33)_
   + 13/10 * sin(36 * t + 48/31) + 1/17 * sin(38 * t + 80/21) + 12/23 * sin(40 * t + 25/16)_
   + 5/13 * sin(43 * t + 140/33) + 13/38 * sin(46 * t + 45/26) + 2/5 * sin(47 * t + 107/23) _
   + 12/17 * sin(48 * t + 33/23) + 13/24 * sin(49 * t + 11/7) + 25/32 * sin(50 * t + 31/20) _
   + 4/29 * sin(51 * t + 221/53) + 4/15 * sin(54 * t + 35/18) + 6/11 * sin(55 * t + 136/29) _
   + 7/33 * sin(57 * t + 67/47) + 9/14 * sin(58 * t + 38/23) - 4497/17) _
   * Heaviside(71 * pi - t) * Heaviside( t - 67 * pi) + (-2/9 * sin(21/16 - 10 * t) _
   - 40/9 * sin(58/37 - 2 * t) + 782/29 * sin( t + 179/38) + 75/4 * sin(3 * t + 41/26) _
   + 1311/49 * sin(4 * t + 80/17) + 97/19 * sin(5 * t + 485/104) + 1/21 * sin(6 * t + 28/19) _
   + 609/76 * sin(7 * t + 31/20) + 107/17 * sin(8 * t + 26/17) + 104/27 * sin(9 * t + 20/13)_
   + 152/61 * sin(11 * t + 36/23) - 3675/23) * Heaviside(67 * pi - t) * Heaviside(t - 63 * pi) _
   + (-5/27 * sin(47/30 - 16 * t) - 21/34 * sin(3/14 - 11 * t) + 53/8 * sin( t + 50/33) _
   + 69/14 * sin(2 * t + 41/28) + 45/16 * sin(3 * t + 198/43) + 201/26 * sin(4 * t + 37/27)_
   + 181/12 * sin(5 * t + 29/23) + 158/43 * sin(6 * t + 26/19) + 85/18 * sin(7 * t + 85/19) _
   + 227/76 * sin(8 * t + 25/18) + 77/24 * sin(9 * t + 89/20) + 2 * sin(10 * t + 11/8) _
   + 15/37 * sin(12 * t + 32/15) + 15/31 * sin(13 * t + 11/28) + 10/23 * sin(14 * t + 11/15)_
   + 30/17 * sin(15 * t + 31/40) + 3/5 * sin(17 * t + 68/19) + 10/31 * sin(18 * t + 11/19) _
   + 11/18 * sin(19 * t + 80/21) + 874/9) * Heaviside(63 * pi - t) * Heaviside(t - 59 * pi) _
   + (-34/45 * sin(39/25 - 8 * t) - 185/42 * sin(31/20 - 2 * t) + 133/24 * sin( t + 47/10)_
   + 3779/70 * sin(3 * t + 25/16) + 83/28 * sin(4 * t + 62/41) + 17/20 * sin(5 * t + 33/20)_
   + 46/17 * sin(6 * t + 45/29) + 3/25 * sin(7 * t + 25/13) + 95/26 * sin(9 * t + 48/31)_
   + 3/32 * sin(10 * t + 15/13) + 13/29 * sin(11 * t + 29/19) + 79/44 * sin(12 * t + 26/17) _
   - 1471/49) * Heaviside(59 * pi - t) * Heaviside(t - 55 * pi) + (-1/5 * sin(52/35 - 15 * t)_
   - 615/77 * sin(36/23 - 8 * t) + 1576/65 * sin( t + 11/7) + 27/22 * sin(2 * t + 14/9)_
   + 251/58 * sin(3 * t + 11/7) + 75/19 * sin(4 * t + 36/23) + 119/22 * sin(5 * t + 36/23) _
   + 100/19 * sin(6 * t + 52/33) + 23/24 * sin(7 * t + 30/19) + 191/96 * sin(9 * t + 35/22)_
   + 2/21 * sin(10 * t + 36/23) + 2/9 * sin(11 * t + 41/28) + 13/17 * sin(12 * t + 39/25)_
   + 28/27 * sin(13 * t + 58/37) + 28/23 * sin(14 * t + 69/44) + 13/33 * sin(16 * t + 25/16)_
   + 47/8) * Heaviside(55 * pi - t) * Heaviside( t - 51 * pi) + (-3/22 * sin(23/15 - 22 * t)_
   - 2/11 * sin(37/24 - 18 * t) - 1/49 * sin(25/31 - 17 * t) - 13/53 * sin(36/23 - 14 * t) _
   - 1/52 * sin(12/31 - 11 * t) - 13/30 * sin(39/25 - 10 * t) - 129/46 * sin(48/31 - 6 * t) _
   - 27/32 * sin(58/37 - 4 * t) + 652/27 * sin( t + 41/26) + 20/27 * sin(2 * t + 14/3) _
   + 72/25 * sin(3 * t + 30/19) + 6/11 * sin(5 * t + 43/28) + 7/5 * sin(7 * t + 19/12) _
   + 1/5 * sin(8 * t + 78/17) + 19/24 * sin(9 * t + 43/27) + 3/25 * sin(12 * t + 7/4) _
   + 7/17 * sin(13 * t + 29/18) + 1/25 * sin(15 * t + 27/22) + 3/32 * sin(16 * t + 80/17) _
   + 3/10 * sin(19 * t + 31/19) + 1/18 * sin(20 * t + 212/47) + 3/16 * sin(21 * t + 45/28)_
   + 2/15 * sin(23 * t + 29/18) + 3/22 * sin(24 * t + 89/51) - 1552/11) _
   * Heaviside(51 * pi - t) * Heaviside(t - 47 * pi) + (-4/21 * sin(29/19 - 11 * t) _
   - 5/12 * sin(17/11 - 10 * t) - 6/19 * sin(14/9 - 6 * t) - 67/21 * sin(47/30 - 4 * t) _
   - 123/26 * sin(53/34 - 2 * t) + 2041/30 * sin( t + 11/7) + 71/14 * sin(3 * t + 11/7)_
   + 25/29 * sin(5 * t + 30/19) + 8/39 * sin(7 * t + 45/29) + 13/24 * sin(8 * t + 47/10)_
   + 3/14 * sin(9 * t + 41/26) + 2/13 * sin(12 * t + 149/32) + 301/20) _
   * Heaviside(47 * pi - t) * Heaviside(t - 43 * pi) + (216/19 * sin(t + 11/7)_
   + 1615/202 * sin(2 * t + 80/17) + 98/59 * sin(3 * t + 47/29) + 48/29 * sin(4 * t + 149/32)_
   + 35/41 * sin(5 * t + 151/33) + 30/29 * sin(6 * t + 125/27) + 3853/56) _
   * Heaviside(43 * pi - t) * Heaviside(t - 39 * pi) + (-42/13 * sin(58/37 - t) _
   + 386/31 * sin(2 * t + 41/26) + 4/29 * sin(3 * t + 43/26) + 119/33 * sin(4 * t + 19/12)_
   + 1/18 * sin(5 * t + 74/17) + 43/21 * sin(6 * t + 19/12) - 432/5) _
   * Heaviside(39 * pi - t) * Heaviside( t - 35 * pi) + (-5/18 * sin(21/17 - 29 * t)_
   - 10/13 * sin(59/38 - 26 * t) - 1292/47 * sin(53/34 - 10 * t) - 42/17 * sin(3/2 - 6 * t)_
   - 108/17 * sin(20/13 - 4 * t) - 108/77 * sin(26/17 - 2 * t) + 63/26 * sin( t + 331/71) _
   + 11/24 * sin(3 * t + 44/43) + 79/18 * sin(5 * t + 113/24) + 78/25 * sin(7 * t + 56/37)_
   + 59/3 * sin(8 * t + 113/24) + 859/39 * sin(9 * t + 41/26) + 113/23 * sin(11 * t + 18/11)_
   + 529/20 * sin(12 * t + 21/13) + 1599/80 * sin(13 * t + 23/14) + 161/24 * sin(14 * t + 28/17) _
   + 41/25 * sin(15 * t + 55/12) + 49/26 * sin(16 * t + 38/21) + 37/15 * sin(17 * t + 46/27) _
   + 31/46 * sin(18 * t + 22/5) + 15/14 * sin(19 * t + 55/34) + 52/27 * sin(20 * t + 37/22) _
   + sin(21 * t + 47/29) + 2/17 * sin(22 * t + 11/17) + 23/25 * sin(23 * t + 28/17) _
   + 7/25 * sin(24 * t + 126/29) + 7/4 * sin(25 * t + 67/40) + 8/5 * sin(27 * t + 48/29) _
   + 7/6 * sin(28 * t + 103/22) + 9/20 * sin(30 * t + 36/25) - 619/29) _
   * Heaviside(35 * pi - t) * Heaviside(t - 31 * pi) + (-45/23 * sin(80/57 - t) _
   + 33/28 * sin(2 * t + 57/32) + 57/20 * sin(3 * t + 41/22) + 2796/29)_
   * Heaviside(31 * pi - t) * Heaviside( t - 27 * pi) + (-43/25 * sin(11/15 - t) _
   + 18/23 * sin(2 * t + 59/13) + 53/20 * sin(3 * t + 20/7) + 53/23 * sin(4 * t + 23/38)_
   + 13/10 * sin(5 * t + 8/5) + 13/23 * sin(6 * t + 66/23) - 1481/11)_
   * Heaviside(27 * pi - t) * Heaviside( t - 23 * pi) + (100/7 * sin( t + 9/20) + 2115/22)_
   * Heaviside(23 * pi - t) * Heaviside( t - 19 * pi) + (429/23 * sin( t + 19/34) - 6238/45)_
   * Heaviside(19 * pi - t) * Heaviside( t - 15 * pi) + (916/25 * sin( t + 29/22)_
   + 196/27 * sin(2 * t + 8/3) + 179/30 * sin(3 * t + 133/30) + 101/32 _
   * sin(4 * t + 118/47) + 359/358 * sin(5 * t + 50/11) + 89/38 * sin(6 * t + 59/18)_
   + 140/93 * sin(7 * t + 93/56) + 7/16 * sin(8 * t + 19/12) + 7/5 * sin(9 * t + 37/24)_
   + 37/29 * sin(10 * t + 3/26) + 11/17 * sin(11 * t + 38/11) + 17/35 * sin(12 * t + 11/24)_
   + 2/7 * sin(13 * t + 39/16) + 25/62 * sin(14 * t + 10/21) + 1/12 * sin(15 * t + 257/70)_
   + 7/32 * sin(16 * t + 7/31) - 343/18) * Heaviside(15 * pi - t) * Heaviside( t - 11 * pi) _
   + (-21/25 * sin(11/28 - 3 * t) - 49/16 * sin(32/31 - 2 * t) + 1189/35 * sin( t + 23/21) _
   + 31/15 * sin(4 * t + 73/16) + 10/29 * sin(5 * t + 41/18) + 17/29 * sin(6 * t + 43/11) _
   + 1699/19) * Heaviside(11 * pi - t) * Heaviside( t - 7 * pi) + (-34/27 * sin(5/33 - 4 * t) _
   - 59/23 * sin(6/5 - 3 * t) + 1625/47 * sin( t + 17/22) + 38/27 * sin(2 * t + 9/23)_
   + 19/24 * sin(5 * t + 47/13) - 2318/15) * Heaviside(7 * pi - t) * Heaviside( t - 3 * pi)_
   + (-2/15 * sin(1/15 - 34 * t) - 1/5 * sin(29/21 - 28 * t) - 20/23 * sin(1/282 - 17 * t)_
   - 29/24 * sin(23/40 - 14 * t) - 90/49 * sin(45/31 - 12 * t) - 37/28 * sin(17/23 - 9 * t) _
   - 102/25 * sin(1/12 - 8 * t) - 152/27 * sin(28/23 - 6 * t) + 28521/184 * sin( t + 7/31) _
   + 2743/44 * sin(2 * t + 13/21) + 1159/33 * sin(3 * t + 19/18) + 903/34 * sin(4 * t + 114/25)_
   + 48/19 * sin(5 * t + 40/23) + 180/31 * sin(7 * t + 104/35) + 13/19 * sin(10 * t + 17/10) _
   + 44/23 * sin(11 * t + 17/18) + 79/43 * sin(13 * t + 71/72) + 34/33 * sin(15 * t + 72/25)_
   + 5/6 * sin(16 * t + 51/25) + 16/15 * sin(18 * t + 97/44) + 5/9 * sin(19 * t + 52/27) _
   + 17/26 * sin(20 * t + 98/25) + 24/47 * sin(21 * t + 61/22) + 3/7 * sin(22 * t + 435/434) _
   + 19/32 * sin(23 * t + 43/10) + 11/38 * sin(24 * t + 91/29) + 13/30 * sin(25 * t + 77/17) _
   + 15/44 * sin(26 * t + 85/22) + 5/26 * sin(27 * t + 23/25) + 11/39 * sin(29 * t + 142/31) _
   + 7/11 * sin(30 * t + 28/29) + 11/24 * sin(31 * t + 59/14) + 13/29 * sin(32 * t + 4/7) _
   + 2/21 * sin(33 * t + 49/17) + 7/25 * sin(35 * t + 8/3) - 1133/37) _
   * Heaviside(3 * pi - t) * Heaviside( t + pi)) * Heaviside(sqr(sgn(sin(t/2))))

   y = ((-31/23 * sin(25/16 - 7 * t) - 577/289 * sin(39/25 - 6 * t) - 69/139 * sin(47/30 - 5 * t) _
   - 92/21 * sin(47/30 - t) + 189/38 * sin(2 * t + 11/7) + 59/49 * sin(3 * t + 113/24) _
   + 122/21 * sin(4 * t + 41/26) + 13/22 * sin(8 * t + 74/47) + 10/17 * sin(9 * t + 113/24)_
   + 8/19 * sin(10 * t + 63/40) + 20704/47) * Heaviside(83 * pi - t) * Heaviside(t - 79 * pi)_
   + (-5/21 * sin(110/73 - 11 * t) - 91/136 * sin(37/24 - 10 * t) - 16/25 * sin(17/11 - 8 * t)_
   - 52/29 * sin(17/11 - 5 * t) - 136/29 * sin(45/29 - 4 * t) - 82/13 * sin(25/16 - 2 * t)_
   - 39/16 * sin(25/16 - t) + 1/12 * sin(3 * t + 83/55) + 55/21 * sin(6 * t + 8/5) _
   + 16/29 * sin(7 * t + 27/17) + 45/89 * sin(9 * t + 45/28) + 4/23 * sin(12 * t + 23/14)_
   + 4430/11) * Heaviside(79 * pi - t) * Heaviside( t - 75 * pi) + (-3/32 * sin(2/21 - 59 * t)_
   - 1/14 * sin(1/12 - 38 * t) - 4/17 * sin(30/23 - 28 * t) - 16/25 * sin(26/21 - 27 * t) _
   - 16/29 * sin(13/16 - 25 * t) - 14/27 * sin(25/18 - 23 * t) - 4/37 * sin(29/19 - 12 * t)_
   - 116/7 * sin(47/30 - 8 * t) - 565/6 * sin(47/30 - 3 * t) + 1577/30 * sin( t + 155/33) _
   + 229/8 * sin(2 * t + 89/19) + 413/6 * sin(4 * t + 35/22) + 2389/47 * sin(5 * t + 146/31) _
   + 751/28 * sin(6 * t + 47/10) + 343/16 * sin(7 * t + 45/28) + 97/21 * sin(9 * t + 107/23) _
   + 229/51 * sin(10 * t + 46/29) + 98/33 * sin(11 * t + 31/21) + 101/16 * sin(13 * t + 37/8) _
   + 325/34 * sin(14 * t + 285/61) + 61/16 * sin(15 * t + 19/11) + 116/23 * sin(16 * t + 14/3) _
   + 115/16 * sin(17 * t + 88/19) + 7/24 * sin(18 * t + 91/29) + 18/19 * sin(19 * t + 31/32) _
   + 4073/509 * sin(20 * t + 25/17) + 147/29 * sin(21 * t + 43/30) + 43/22 * sin(22 * t + 7/5) _
   + 16/25 * sin(24 * t + 33/20) + 116/25 * sin(26 * t + 32/21) + 17/25 * sin(29 * t + 61/35) _
   + 17/19 * sin(30 * t + 169/38) + 77/25 * sin(31 * t + 50/11) + 25/8 * sin(32 * t + 67/15) _
   + 67/30 * sin(33 * t + 91/20) + 25/32 * sin(34 * t + 181/90) + 86/37 * sin(35 * t + 59/13) _
   + 55/16 * sin(36 * t + 132/29) + 19/22 * sin(37 * t + 38/9) + 5/21 * sin(39 * t + 27/28) _
   + 61/38 * sin(40 * t + 23/16) + 23/25 * sin(41 * t + 31/24) + 7/29 * sin(42 * t + 15/22) _
   + 7/8 * sin(43 * t + 139/31) + 13/19 * sin(44 * t + 136/29) + 11/17 * sin(45 * t + 53/35) _
   + 1/5 * sin(46 * t + 83/41) + 43/21 * sin(47 * t + 103/23) + 100/57 * sin(48 * t + 183/43) _
   + 89/41 * sin(49 * t + 293/65) + 17/25 * sin(50 * t + 151/36) + 7/31 * sin(51 * t + 71/28) _
   + 1/25 * sin(52 * t + 25/32) + 11/31 * sin(53 * t + 82/19) + 19/31 * sin(54 * t + 102/25) _
   + 44/29 * sin(55 * t + 85/19) + 3/10 * sin(56 * t + 103/27) + 2/23 * sin(57 * t + 29/15) _
   + 1/14 * sin(58 * t + 62/25) + 4/13 * sin(60 * t + 37/30) - 5224/27) _
   * Heaviside(75 * pi - t) * Heaviside(t - 71 * pi) + (-14/43 * sin(26/19 - 60 * t) _
   - 1/10 * sin(8/31 - 58 * t) - 10/17 * sin(25/17 - 55 * t) - 19/35 * sin(7/5 - 48 * t) _
   - 19/18 * sin(64/43 - 45 * t) - 23/25 * sin(44/29 - 44 * t) - 22/37 * sin(43/37 - 40 * t)_
   - 32/9 * sin(37/24 - 37 * t) - 52/17 * sin(25/16 - 29 * t) - 116/39 * sin(53/34 - 24 * t) _
   - 98/27 * sin(43/28 - 23 * t) - 7/12 * sin(17/16 - 19 * t) - 247/21 * sin(43/28 - 16 * t) _
   - 1101/37 * sin(17/11 - 8 * t) - 751/12 * sin(47/30 - 5 * t) - 661/15 * sin(58/37 - 3 * t)_
   - 1126/31 * sin(58/37 - 2 * t) + 1857/40 * sin( t + 80/17) + 2071/27 * sin(4 * t + 74/47)_
   + 52/5 * sin(6 * t + 75/16) + 243/23 * sin(7 * t + 23/14) + 661/60 * sin(9 * t + 75/16)_
   + 282/17 * sin(10 * t + 75/16) + 447/25 * sin(11 * t + 113/24) + 84/19 * sin(12 * t + 345/74)_
   + 441/58 * sin(13 * t + 88/59) + 305/18 * sin(14 * t + 43/27) + 47/28 * sin(15 * t + 88/19)_
   + 36/31 * sin(17 * t + 127/29) + 89/19 * sin(18 * t + 45/28) + 81/19 * sin(20 * t + 45/29) _
   + 36/13 * sin(21 * t + 41/26) + 95/28 * sin(22 * t + 29/18) + 11/18 * sin(25 * t + 28/17) _
   + 146/97 * sin(26 * t + 127/27) + 29/8 * sin(27 * t + 108/23) + 127/37 * sin(28 * t + 136/29)_
   + 57/23 * sin(30 * t + 30/19) + 83/23 * sin(31 * t + 23/15) + 25/17 * sin(32 * t + 45/29) _
   + 19/18 * sin(33 * t + 47/29) + 8/7 * sin(34 * t + 25/16) + 23/32 * sin(35 * t + 34/21) _
   + 11/15 * sin(36 * t + 37/8) + 8/27 * sin(38 * t + 86/37) + 8/21 * sin(39 * t + 141/34) _
   + 9/29 * sin(41 * t + 103/22) + 22/27 * sin(42 * t + 68/45) + 5/31 * sin(43 * t + 113/25) _
   + 138/139 * sin(46 * t + 50/29) + 4/13 * sin(47 * t + 31/20) + 7/18 * sin(49 * t + 141/32)_
   + 28/25 * sin(50 * t + 125/27) + 5/32 * sin(51 * t + 235/56) + 2/29 * sin(52 * t + 27/34) _
   + 3/10 * sin(53 * t + 34/23) + 5/41 * sin(54 * t + 53/17) + 1/29 * sin(56 * t + 103/30) _
   + 11/21 * sin(57 * t + 7/5) + 10/31 * sin(59 * t + 19/11) - 18707/92) _
   * Heaviside(71 * pi - t) * Heaviside( t - 67 * pi) + (-8/7 * sin(17/11 - 10 * t) _
   - 3/16 * sin(3/2 - 8 * t) - 5/2 * sin(47/30 - 7 * t) - 204/37 * sin(25/16 - 2 * t) _
   + 194/19 * sin( t + 47/30) + 341/25 * sin(3 * t + 11/7) + 259/23 * sin(4 * t + 179/38)_
   + 39/28 * sin(5 * t + 30/19) + 142/27 * sin(6 * t + 25/16) + 10/7 * sin(9 * t + 25/16) _
   + 14/11 * sin(11 * t + 41/26) + 6044/17) * Heaviside(67 * pi - t) * Heaviside(t - 63 * pi)_
   + (-3/13 * sin(26/21 - 13 * t) - 35/19 * sin(41/28 - 4 * t) - 45/16 * sin(45/29 - 2 * t) _
   + 235/18 * sin( t + 29/19) + 151/23 * sin(3 * t + 31/21) + 439/146 * sin(5 * t + 101/24)_
   + 35/17 * sin(6 * t + 61/13) + 67/23 * sin(7 * t + 32/23) + 23/11 * sin(8 * t + 257/57)_
   + 13/12 * sin(9 * t + 32/23) + 14/33 * sin(10 * t + 20/39) + 18/29 * sin(11 * t + 48/49) _
   + 3/10 * sin(12 * t + 23/19) + 9/16 * sin(14 * t + 96/77) + 9/11 * sin(15 * t + 112/27) _
   + 16/47 * sin(16 * t + 31/27) + 5/12 * sin(17 * t + 36/73) + 9/37 * sin(18 * t + 121/30) _
   + 9/28 * sin(19 * t + 32/31) + 5037/13) * Heaviside(63 * pi - t) * Heaviside( t - 59 * pi) _
   + (-37/56 * sin(44/29 - 8 * t) - 3/10 * sin(27/19 - 2 * t) + 268/33 * sin( t + 11/7) _
   + 431/49 * sin(3 * t + 36/23) + 88/89 * sin(4 * t + 95/63) + 25/18 * sin(5 * t + 53/33)_
   + 262/27 * sin(6 * t + 155/33) + 11/20 * sin(7 * t + 91/20) + 24/17 * sin(9 * t + 14/9)_
   + 8/21 * sin(10 * t + 32/23) + 17/20 * sin(11 * t + 37/23) + 120/23 * sin(12 * t + 103/22)_
   + 16501/36) * Heaviside(59 * pi - t) * Heaviside(t - 55 * pi) + (-92/61 * sin(23/15 - 9 * t) _
   - 75/34 * sin(25/16 - 7 * t) - 424/77 * sin(36/23 - 6 * t) - 17/5 * sin(58/37 - 2 * t) _
   + 72/41 * sin(t + 11/7) + 1/11 * sin(3 * t + 29/19) + 96/19 * sin(4 * t + 146/31) _
   + 21/8 * sin(5 * t + 155/33) + 244/23 * sin(8 * t + 52/33) + 47/35 * sin(10 * t + 36/23) _
   + 4/19 * sin(11 * t + 121/26) + 25/23 * sin(12 * t + 36/23) + 5/28 * sin(13 * t + 31/22)_
   + 57/35 * sin(14 * t + 11/7) + 34/29 * sin(15 * t + 25/16) + 12/17 * sin(16 * t + 20/13) _
   + 3065/6) * Heaviside(55 * pi - t) * Heaviside(t - 51 * pi) + (-1/24 * sin(31/20 - 24 * t) _
   - 26/29 * sin(43/29 - 16 * t) - 5/22 * sin(22/15 - 15 * t) - 5/41 * sin(24/17 - 12 * t)_
   - 167/32 * sin(17/11 - 4 * t) - 21/20 * sin(58/37 - 2 * t) + 4/23 * sin( t + 46/29) _
   + 18/25 * sin(3 * t + 44/29) + 55/24 * sin(5 * t + 13/8) + 229/18 * sin(6 * t + 8/5) _
   + 10/27 * sin(7 * t + 157/35) + 39/19 * sin(8 * t + 35/22) + 1/15 * sin(9 * t + 88/19) _
   + 3/7 * sin(10 * t + 37/23) + 3/7 * sin(11 * t + 18/11) + 1/15 * sin(13 * t + 509/113) _
   + 1/7 * sin(14 * t + 69/44) + 13/28 * sin(17 * t + 18/11) + 19/27 * sin(18 * t + 82/49) _
   + 5/34 * sin(19 * t + 37/20) + 7/12 * sin(20 * t + 23/14) + 4/27 * sin(21 * t + 89/19)_
   + 13/38 * sin(22 * t + 28/17) + 1/14 * sin(23 * t + 32/19) + 19681/40) _
   * Heaviside(51 * pi - t) * Heaviside( t - 47 * pi) + (-1/335 * sin(81/61 - 12 * t)_
   - 6/23 * sin(190/127 - 10 * t) - 71/32 * sin(45/29 - 6 * t) + 421/20 * sin( t + 11/7)_
   + 162/29 * sin(2 * t + 47/30) + 53/7 * sin(3 * t + 58/37) + 130/23 * sin(4 * t + 11/7)_
   + 49/18 * sin(5 * t + 11/7) + 20/11 * sin(7 * t + 63/40) + 9/11 * sin(8 * t + 11/7) _
   + 47/41 * sin(9 * t + 36/23) + 29/35 * sin(11 * t + 41/26) + 6107/19) _
   * Heaviside(47 * pi - t) * Heaviside( t - 43 * pi) + (-61/41 * sin(36/23 - 5 * t)_
   + 678/17 * sin( t + 47/10) + 33/13 * sin(2 * t + 77/17) + 80/27 * sin(3 * t + 121/26)_
   + 7/19 * sin(4 * t + 14/9) + 19/44 * sin(6 * t + 33/19) + 7247/20) _
   * Heaviside(43 * pi - t) * Heaviside( t - 39 * pi) + (-17/29 * sin(69/44 - 5 * t) _
   - 195/73 * sin(25/16 - 3 * t) - 4/19 * sin(31/20 - 2 * t) - 987/19 * sin(47/30 - t) _
   + 14/37 * sin(4 * t + 36/23) + 9/22 * sin(6 * t + 35/23) + 9671/29) _
   * Heaviside(39 * pi - t) * Heaviside(t - 35 * pi) + (-17/7 * sin(41/29 - 24 * t) _
   - 149/25 * sin(98/65 - 23 * t) - 51/11 * sin(43/28 - 20 * t) - 110/17 * sin(36/23 - 17 * t) _
   - 9/5 * sin(39/25 - 13 * t) - 35/27 * sin(31/20 - 11 * t) - 155/29 * sin(39/25 - 8 * t) _
   - 13/17 * sin(39/25 - 7 * t) - 135/28 * sin(36/23 - 4 * t) + 3875/27 * sin( t + 74/47) _
   + 8/3 * sin(2 * t + 88/19) + 764/65 * sin(3 * t + 52/33) + 3/2 * sin(5 * t + 5/3) _
   + 97/65 * sin(6 * t + 41/26) + 175/38 * sin(9 * t + 52/33) + 2/27 * sin(10 * t + 89/21)_
   + 583/146 * sin(12 * t + 59/37) + 2/21 * sin(14 * t + 41/10) + 47/39 * sin(15 * t + 149/32)_
   + 109/17 * sin(16 * t + 46/29) + 71/26 * sin(18 * t + 53/34) + 26/31 * sin(19 * t + 27/19) _
   + 61/23 * sin(21 * t + 39/25) + 17/32 * sin(22 * t + 38/27) + 11/30 * sin(25 * t + 45/26) _
   + 86/31 * sin(26 * t + 41/25) + 1/10 * sin(27 * t + 163/41) + 13/17 * sin(28 * t + 33/20) _
   + 2/21 * sin(29 * t + 55/29) + 51/76 * sin(30 * t + 39/22) + 1310/13) _
   * Heaviside(35 * pi - t) * Heaviside(t - 31 * pi) + (-82/23 * sin(3/23 - t) _
   + 31/27 * sin(2 * t + 97/25) + 161/80 * sin(3 * t + 279/76) + 25294/57) _
   * Heaviside(31 * pi - t) * Heaviside( t - 27 * pi) + (-95/47 * sin(11/7 - 3 * t) _
   + 36/19 * sin(t + 31/9) + 17/11 * sin(2 * t + 2/9) + 48/25 * sin(4 * t + 67/28) _
   + 10/7 * sin(5 * t + 82/25) + 17/22 * sin(6 * t + 57/16) + 13253/33) _
   * Heaviside(27 * pi - t) * Heaviside( t - 23 * pi) + (6219/14 - 1013/59 * sin(17/14 - t))_
   * Heaviside(23 * pi - t) * Heaviside( t - 19 * pi) + (10841/27 - 486/25 * sin(29/26 - t)) _
   * Heaviside(19 * pi - t) * Heaviside( t - 15 * pi) + (-11/28 * sin(7/23 - 15 * t) _
   - 2/15 * sin(28/19 - 13 * t) - 1/16 * sin(29/24 - 11 * t) - 37/18 * sin(8/13 - 3 * t) _
   + 459/32 * sin( t + 38/15) + 176/13 * sin(2 * t + 178/41) + 191/25 * sin(4 * t + 21/5) _
   + 13/5 * sin(5 * t + 115/33) + 37/23 * sin(6 * t + 39/23) + 15/17 * sin(7 * t + 1/7) _
   + 13/40 * sin(8 * t + 89/31) + 6/19 * sin(9 * t + 65/14) + 7/15 * sin(10 * t + 102/37) _
   + 7/29 * sin(12 * t + 55/21) + 11/38 * sin(14 * t + 59/38) + 3/10 * sin(16 * t + 50/23) + 11875/28)_
   * Heaviside(15 * pi - t) * Heaviside( t - 11 * pi) + (-10/31 * sin(27/23 - 6 * t) - 5/33 * sin(8/27 - 4 * t) _
   + 586/23 * sin( t + 80/29) + 102/25 * sin(2 * t + 87/23) + 17/23 * sin(3 * t + 54/43) _
   + 13/16 * sin(5 * t + 13/24) + 8400/19) * Heaviside(11 * pi - t) * Heaviside( t - 7 * pi) _
   + (-151/6 * sin(21/37 - t) + 77/20 * sin(2 * t + 49/19) + 17/22 * sin(3 * t + 52/19) _
   + 28/17 * sin(4 * t + 62/19) + 11/20 * sin(5 * t + 38/31) + 5146/13) _
   * Heaviside(7 * pi - t) * Heaviside( t - 3 * pi) + (-4/27 * sin(45/29 - 28 * t) _
   - 7/19 * sin(25/21 - 26 * t) - 27/40 * sin(11/21 - 25 * t) - 1/3 * sin(16/21 - 23 * t) _
   - 15/37 * sin(37/36 - 22 * t) - 10/21 * sin(4/15 - 21 * t) - 19/24 * sin(27/19 - 20 * t) _
   - 7/17 * sin(1/10 - 8 * t) - 12/59 * sin(32/45 - 7 * t) - 294/29 * sin(21/52 - 4 * t) _
   - 1277/47 * sin(4/23 - 2 * t) + 6507/22 * sin( t + 32/17) + 917/43 * sin(3 * t + 35/13) _
   + 1165/137 * sin(5 * t + 5/24) + 169/24 * sin(6 * t + 12/29) + 19/24 * sin(9 * t + 155/43) _
   + 49/18 * sin(10 * t + 57/35) + 25/32 * sin(11 * t + 43/30) + 21/29 * sin(12 * t + 75/16) _
   + 135/136 * sin(13 * t + 59/27) + 13/15 * sin(14 * t + 31/35) + 49/65 * sin(15 * t + 79/20) _
   + 10/23 * sin(16 * t + 184/49) + 25/16 * sin(17 * t + 55/12) + 51/77 * sin(18 * t + 64/19) _
   + 6/17 * sin(19 * t + 84/29) + 9/13 * sin(24 * t + 3/31) + 4/15 * sin(27 * t + 13/12) _
   + 8/27 * sin(29 * t + 53/34) + 5/26 * sin(30 * t + 9/19) + 7/27 * sin(31 * t + 41/16) _
   + 2/9 * sin(32 * t + 37/24) + 1/20 * sin(33 * t + 17/27) + 6/31 * sin(34 * t + 145/31) _
   + 4/11 * sin(35 * t + 27/7) + 5147/20) _
   * Heaviside(3 * pi - t) * Heaviside(t + pi)) * Heaviside(sqr(sgn(sin( t/2))))

   plot 400+x/02,250+y/02 ' Martien Chef
   plot 100+x/10,100+y/10 ' Adjoint gauche
   plot 700+x/10,100+y/10 ' Adjoint droit
next t
locate 5,2 : ? "Une touche pour sortir ..."

repeat : until len(inkey())

rem ================================================================================================
' la fonction de Heaviside (egalement fonction echelon unite, fonction marche d'escalier),
' du nom de Oliver Heaviside, est la fonction indicatrice de R+.
' C'est donc la fonction H (discontinue en 0) prenant la valeur 1 pour tous les reels positifs et
' la valeur 0 pour les reels strictement negatifs
FUNCTION Heaviside(h)
   if h < 0 then return 0 else return 1
END_FUNCTION
rem =================================================================================================

Spoiler:

Sujet: Re: Les programmes de papydall Mer 25 Nov 2020 - 2:40

Un autre Martien, moins moche

Code:: rem ============================================================================================
rem BATMAN
rem ============================================================================================

dim x,y,t,p,w,h
p = pi/2880
w = 800 : h = 600

mode 3,"BATMAN",w,h
cls
for t = 0 to 44 * pi step p
   x = ((-2/5 * sin(11/8 - 7 * t) + 364/11 * sin( t + 1/6) + 7/6 * sin(2 * t + 24/7) + 19/6 * sin(3 * t + 15/4)_
   + 2/5 * sin(4 * t + 38/13) + 7/5 * sin(5 * t + 4/7) + 2/5 * sin(6 * t + 35/9) + 1/8 * sin(8 * t + 22/7) _
   + 1/3 * sin(9 * t + 1) + 412/5) * Heaviside(43 * pi - t) * Heaviside( t - 39 * pi) + (46 * sin( t + 11/7) _
   + 3/5 * sin(2 * t + 4) + 24/5 * sin(3 * t + 5/3) + 4/9 * sin(4 * t + 13/4) + 13/7 * sin(5 * t + 9/5) _
   + 2/7 * sin(6 * t + 5/2) + 251/3) * Heaviside(39 * pi - t) * Heaviside( t - 35 * pi) _
   + (-17/11 * sin(1/6 - 4 * t) - 4/5 * sin(5/6 - 2 * t) + 476/5 * sin( t + 9/4) + 39/4 * sin(3 * t + 25/7) _
   + 9/7 * sin(5 * t + 32/7) + 9/8 * sin(6 * t + 5/7) + 2/7 * sin(7 * t + 4/7) + 1085/13) _
   * Heaviside(35 * pi - t) * Heaviside( t - 31 * pi) + (-18/7 * sin(28/27 - 3 * t) _
   - 11/8 * sin(3/4 - 2 * t) - 235/9 * sin(5/4 - t) + 1105/6) _
   * Heaviside(31 * pi - t) * Heaviside(t - 27 * pi) + (201/8 * sin( t + 11/6) _
   + 13/9 * sin(2 * t + 12/5) + 22/9 * sin(3 * t + 87/43) - 153/8) _
   * Heaviside(27 * pi - t) * Heaviside(t - 23 * pi) + (-51/5 * sin(1 - t) _
   + 5/7 * sin(2 * t + 5/3) + 435/4) * Heaviside(23 * pi - t) * Heaviside(t - 19 * pi)_
   + (58/5 * sin( t + 5/3) + 5/9 * sin(2 * t + 83/21) + 5/4 * sin(3 * t + 5/3) _
   + 1/32 * sin(4 * t + 6/7) + 359/7) * Heaviside(19 * pi - t) * Heaviside(t - 15 * pi) _
   + (-15/8 * sin(14/9 - 6 * t) - 4/3 * sin(2/3 - 5 * t) - 259/11 * sin(7/6 - t) _
   + 123/5 * sin(2 * t + 14/3) + 9/4 * sin(3 * t + 1/5) + 9/5 * sin(4 * t + 37/8) + 1405/6)_
   * Heaviside(15 * pi - t) * Heaviside( t - 11 * pi) + (-5/6 * sin(4/5 - 7 * t) _
   - 31/15 * sin(4/7 - 3 * t) + 95/4 * sin(t + 19/18) + 226/9 * sin(2 * t + 11/8) _
   + 3/2 * sin(4 * t + 8/7) + 11/8 * sin(5 * t + 1/10) + 16/9 * sin(6 * t + 5/6) _
   + 2/5 * sin(8 * t + 1) - 208/3) * Heaviside(11 * pi - t) * Heaviside(t - 7 * pi) _
   + (-2/5 * sin(13/14 - 47 * t) - 5/6 * sin(2/3 - 42 * t) - 11/9 * sin(1/13 - 38 * t) _
   - 4/5 * sin(1/2 - 37 * t) - 5/2 * sin(11/8 - 27 * t) - 30/7 * sin(5/8 - 17 * t) _
   - 35/6 * sin(1/5 - 15 * t) - 189/19 * sin(4/5 - 11 * t) + 664/5 * sin( t + 2/3) _
   + 1013/6 * sin(2 * t + 11/3) + 226/3 * sin(3 * t + 12/5) + 74/5 * sin(4 * t + 27/11)_
   + 49 * sin(5 * t + 4/3) + 435/11 * sin(6 * t + 7/6) + 703/27 * sin(7 * t + 70/23) _
   + 114/7 * sin(8 * t + 21/5) + 47/7 * sin(9 * t + 16/5) + 101/7 * sin(10 * t + 37/10) _
   + 189/8 * sin(12 * t + 1/10) + 38/3 * sin(13 * t + 9/7) + 11/2 * sin(14 * t + 1/3) _
   + 34/7 * sin(16 * t + 1/21) + 61/12 * sin(18 * t + 9/5) + 21/8 * sin(19 * t + 29/10) _
   + 49/10 * sin(20 * t + 19/6) + 43/8 * sin(21 * t + 8/9) + 47/12 * sin(22 * t + 12/5) _
   + 13/4 * sin(23 * t + 7/5) + 49/11 * sin(24 * t + 2/3) + 23/5 * sin(25 * t + 3/2) _
   + 11/6 * sin(26 * t + 13/4) + 2/5 * sin(28 * t + 29/10) + 39/19 * sin(29 * t + 68/23) _
   + 1/2 * sin(30 * t + 39/11) + 3/2 * sin(31 * t + 3/8) + 29/9 * sin(32 * t + 16/7) _
   + 11/7 * sin(33 * t + 18/5) + 5/3 * sin(34 * t + 19/5) + 3/5 * sin(35 * t + 17/11) _
   + 1/5 * sin(36 * t + 25/8) + 7/5 * sin(39 * t + 17/8) + 1/4 * sin(40 * t + 61/15) _
   + 9/4 * sin(41 * t + 27/7) + 3/7 * sin(43 * t + 21/5) + sin(44 * t + 19/7) _
   + 5/4 * sin(45 * t + 11/4) + 3/8 * sin(46 * t + 25/6) + 408/5) _
   * Heaviside(7 * pi - t) * Heaviside( t - 3 * pi) + (-24/7 * sin(16/11 - 12 * t) _
   - 12/7 * sin(10/9 - 8 * t) - 27/4 * sin(4/3 - 5 * t) - 3/7 * sin(14/15 - 4 * t) _
   - 18/5 * sin(3/2 - 2 * t) + 895/3 * sin(t + 9/4) + 412/11 * sin(3 * t + 3/7) _
   + 32/5 * sin(6 * t + 4/5) + 14/9 * sin(7 * t + 23/7) + 1/4 * sin(9 * t + 9/2) _
   + 67/17 * sin(10 * t + 3/8) + 1/4 * sin(11 * t + 18/5) + 9/7 * sin(13 * t + 15/4) _
   + 1/7 * sin(14 * t + 21/8) + 5/6 * sin(15 * t + 11/5) + 5/7 * sin(16 * t + 32/7) _
   + 1/4 * sin(17 * t + 20/7) + 3/8 * sin(18 * t + 18/7) + 2/7 * sin(19 * t + 12/7) _
   + 2/5 * sin(20 * t + 5/7) + 582/7) _
   * Heaviside(3 * pi - t) * Heaviside( t + pi)) * Heaviside(sqr(sgn(sin( t/2))))

   y = ((-20/21 * sin(12/11 - 5 * t) - 33/8 * sin(11/8 - t) + 19/7 * sin(2 * t + 13/7)_
   + 27/14 * sin(3 * t + 4/3) + 12/13 * sin(4 * t + 9/4) + 1/6 * sin(6 * t + 7/10) _
   + 3/5 * sin(7 * t + 16/7) + 1/5 * sin(8 * t + 19/5) + 5/11 * sin(9 * t + 3/5) - 3771/10)_
   * Heaviside(43 * pi - t) * Heaviside(t - 39 * pi) + (28/5 * sin( t + 22/7) _
   + 12/7 * sin(2 * t + 8/5) + 6/5 * sin(3 * t + 22/7) + 5/6 * sin(4 * t + 13/8) _
   + 3/5 * sin(5 * t + 13/4) + 1/4 * sin(6 * t + 15/8) - 3431/12) _
   * Heaviside(39 * pi - t) * Heaviside(t - 35 * pi) + (-7/8 * sin(1/12 - 5 * t)_
   - 11/7 * sin(16/17 - 3 * t) - 33/5 * sin(1/4 - 2 * t) + 24/5 * sin( t + 27/7) _
   + 37/5 * sin(4 * t + 8/7) + 14/9 * sin(6 * t + 23/10) + 4/5 * sin(7 * t + 8/5) _
   - 2125/9) * Heaviside(35 * pi - t) * Heaviside( t - 31 * pi) + (127/8 * sin(t + 30/7)_
   + 41/21 * sin(2 * t + 15/8) + 13/8 * sin(3 * t + 9/2) - 104/3)_
   * Heaviside(31 * pi - t) * Heaviside(t - 27 * pi) + (140/9 * sin( t + 21/5) _
   + 23/12 * sin(2 * t + 8/5) + 9/5 * sin(3 * t + 30/7) - 317/9)_
   * Heaviside(27 * pi - t) * Heaviside( t - 23 * pi) + (-1/3 * sin(6/5 - 2 * t)_
   + 52/7 * sin(t + 23/5) + 374/7) * Heaviside(23 * pi - t) _
   * Heaviside( t - 19 * pi) + (-3/8 * sin(9/7 - 2 * t) + 185/23 * sin(t + 25/6) _
   + 16/11 * sin(3 * t + 18/5) + 3/8 * sin(4 * t + 3/4) + 367/7) _
   * Heaviside(19 * pi - t) * Heaviside( t - 15 * pi) + (-8/9 * sin(11/12 - 4 * t)_
   - 29/4 * sin(11/7 - 3 * t) + 80 * sin( t + 47/10) + 29/6 * sin(2 * t + 10/7) _
   + 17/5 * sin(5 * t + 23/5) + 3/5 * sin(6 * t + 10/11) + 5245/38) _
   * Heaviside(15 * pi - t) * Heaviside( t - 11 * pi) + (645/8 * sin( t + 23/5) _
   + 5 * sin(2 * t + 7/5) + 53/7 * sin(3 * t + 30/7) + 1/2 * sin(4 * t + 26/9) _
   + 23/7 * sin(5 * t + 17/4) + 3/4 * sin(6 * t + 3/2) + 3/2 * sin(7 * t + 25/6) _
   + 2/7 * sin(8 * t + 5/2) + 691/5) * Heaviside(11 * pi - t) * Heaviside( t - 7 * pi) _
   + (-11/6 * sin(4/3 - 47 * t) - 7/4 * sin(9/7 - 35 * t) - 29/8 * sin(4/3 - 31 * t) _
   - 31/9 * sin(1/12 - 29 * t) - 4 * sin(1/5 - 28 * t) - 13/4 * sin(1/6 - 27 * t) _
   - 39/5 * sin(6/7 - 26 * t) - 52/5 * sin(1/3 - 25 * t) - 17/6 * sin(3/2 - 24 * t) _
   - 123/13 * sin(1/9 - 23 * t) - 25/4 * sin(24/23 - 22 * t) - 87/10 * sin(11/10 - 15 * t)_
   - 239/30 * sin(1/18 - 11 * t) - 105/13 * sin(2/9 - 9 * t) - 251/12 * sin(1 - 6 * t)_
   - 1606/7 * sin(10/7 - t) + 2155/14 * sin(2 * t + 20/7) + 69/4 * sin(3 * t + 4/9) _
   + 535/6 * sin(4 * t + 4/9) + 217/6 * sin(5 * t + 9/2) + 59/4 * sin(7 * t + 17/6) _
   + 359/15 * sin(8 * t + 20/7) + 42/5 * sin(10 * t + 33/13) + 137/8 * sin(12 * t + 7/10) _
   + 344/15 * sin(13 * t + 50/11) + 35/3 * sin(14 * t + 5/3) + 53/6 * sin(16 * t + 129/32) _
   + 17/2 * sin(17 * t + 39/10) + 35/3 * sin(18 * t + 3/4) + 38/3 * sin(19 * t + 26/7) _
   + 35/4 * sin(20 * t + 16/7) + 55/7 * sin(21 * t + 51/13) + 39/7 * sin(30 * t + 7/2) _
   + 17/7 * sin(32 * t + 1/3) + 61/15 * sin(33 * t + 25/6) + 12/7 * sin(34 * t + 13/7) _
   + 5/7 * sin(36 * t + 15/4) + sin(37 * t + 11/4) + 31/16 * sin(38 * t + 7/6) _
   + 10/9 * sin(39 * t + 7/2) + 3/5 * sin(40 * t + 31/8) + 7/6 * sin(41 * t + 11/4) _
   + 7/4 * sin(42 * t + 40/9) + 7/5 * sin(43 * t + 19/6) + 13/9 * sin(44 * t + 1/19) _
   + 1/3 * sin(45 * t + 34/11) + 6/7 * sin(46 * t + 1/4) + 35/6)_
   * Heaviside(7 * pi - t) * Heaviside( t - 3 * pi) + (-27/8 * sin(5/4 - 17 * t)_
   - 614/15 * sin(8/7 - 3 * t) + 3065/8 * sin( t + 19/5) + 352/3 * sin(2 * t + 23/8) _
   + 132/5 * sin(4 * t + 14/13) + 9 * sin(5 * t + 1/4) + 128/7 * sin(6 * t + 12/5) _
   + 106/5 * sin(7 * t + 14/3) + 17/2 * sin(8 * t + 5/8) + 8/3 * sin(9 * t + 29/10) _
   + 53/9 * sin(10 * t + 11/6) + 47/10 * sin(11 * t + 25/6) + 121/40 * sin(12 * t + 1/5) _
   + 7/6 * sin(13 * t + 18/7) + 6/5 * sin(14 * t + 6/7) + 7/4 * sin(15 * t + 5/7) _
   + 6/5 * sin(16 * t + 37/12) + sin(18 * t + 7/8) + 3/8 * sin(19 * t + 68/23) _
   + 29/15 * sin(20 * t + 12/5) + 575/8) * Heaviside(3 * pi - t)_
   * Heaviside( t + pi)) * Heaviside(sqr(sgn(sin( t/2))))

   plot 400+x/02,250+y/02 ' Le Chef
   plot 100+x/10,100+y/10 ' Adjoint gauche
   plot 700+x/10,100+y/10 ' Adjoint droit
next t
locate 5,2 : ? "Une touche pour sortir ..."

repeat : until len(inkey())

rem ================================================================================================
' la fonction de Heaviside (egalement fonction echelon unite, fonction marche d'escalier),
' du nom de Oliver Heaviside, est la fonction indicatrice de R+.
' C'est donc la fonction H (discontinue en 0) prenant la valeur 1 pour tous les reels positifs et
' la valeur 0 pour les reels strictement negatifs
FUNCTION Heaviside(h)
   if h < 0 then return 0 else return 1
END_FUNCTION
rem ============================================================================

Spoiler:

Sujet: Re: Les programmes de papydall Mer 25 Nov 2020 - 2:49

... Et avant d'aller Sleep

, voici un papillon Martio-Terrestre

Code:: rem ============================================================================================
rem BUTTERFLY
rem ============================================================================================

dim x,y,t,p,w,h
p = pi/2880
w = 800 : h = 600

mode 3,"BUTTERFLY",w,h
cls
for t = 0 to 72 * pi step p
   x = ((-13/7 * sin(8/5 - 10 * t) - 161/20 * sin(8/5 - 5 * t) - 7/3 * sin(8/5 - 4 * t) - 118 * sin(8/5 - t)_
   + 406/11 * sin(2 * t + 8/5) + 17/5 * sin(3 * t + 8/5) + 2/5 * sin(6 * t + 8/5) + 3/4 * sin(7 * t + 8/5)_
   + 1/12 * sin(8 * t + 32/7) + 4 * sin(9 * t + 14/3) + 247) _
   * Heaviside(31 * pi - t) * Heaviside(t - 27 * pi) + (-10/11 * sin(3/2 - 10 * t) _
   - 11/4 * sin(3/2 - 8 * t) - 82/3 * sin(8/5 - 2 * t) + 122 * sin( t + 8/5) + 48/7 * sin(3 * t + 14/3) _
   + 7/8 * sin(4 * t + 5/3) + 31/3 * sin(5 * t + 8/5) + 31/8 * sin(6 * t + 8/5) + 6/7 * sin(7 * t + 8/5)_
   + 2/3 * sin(9 * t + 3/2) + 3677/6) * Heaviside(27 * pi - t) * Heaviside(t - 23 * pi)_
   + (-1/2 * sin(6/7 - 20 * t) - 2/3 * sin(4/3 - 18 * t) - 2/3 * sin(4/5 - 15 * t) - 2/3 * sin(2/3 - 13 * t)_
   - 2/5 * sin(4/5 - 12 * t) - 27/4 * sin(1/2 - 7 * t) - 29/4 * sin(6/5 - 2 * t) + 335/7 * sin( t + 8/3)_
   + 36/5 * sin(3 * t + 5/3) + 13/2 * sin(4 * t + 7/4) + 47/8 * sin(5 * t + 1/4) + 76/11 * sin(6 * t + 13/4) _
   + 4/3 * sin(8 * t + 5/3) + 2 * sin(9 * t + 18/5) + 9/5 * sin(10 * t + 6/7) + 3/2 * sin(11 * t + 4) _
   + 1/5 * sin(14 * t + 18/5) + 4/5 * sin(16 * t + 5/4) + 2/3 * sin(17 * t + 21/5) + 2/3 * sin(19 * t + 11/6)_
   + 1/4 * sin(21 * t + 11/7) + 1/3 * sin(22 * t + 1/2) + 861/2) * Heaviside(23 * pi - t) * Heaviside(t - 19 * pi)_
   + (-9/5 * sin(1 - 19 * t) - 4/5 * sin(1 - 18 * t) - 2 * sin(2/3 - 17 * t) - 8/3 * sin(4/3 - 14 * t) _
   + 5895/7 * sin(t + 13/4) + 687/8 * sin(2 * t + 1/4) + 398/5 * sin(3 * t + 1/3) + 206/7 * sin(4 * t + 11/3) _
   + 165/2 * sin(5 * t + 1/2) + 255/8 * sin(6 * t + 2/3) + 128/5 * sin(7 * t + 35/9) + 21/2 * sin(8 * t + 33/8) _
   + 29/5 * sin(9 * t + 12/11) + 41/4 * sin(10 * t + 17/4) + 5 * sin(11 * t + 7/5) + 23/4 * sin(12 * t + 4/3)_
   + 19/3 * sin(13 * t + 14/3) + 19/3 * sin(15 * t + 7/4) + 3/2 * sin(16 * t + 9/5) + 3/4 * sin(20 * t + 2/3) _
   + 2164/5) * Heaviside(19 * pi - t) * Heaviside( t - 15 * pi) + (-43/3 * sin(3/4 - 11 * t) _
   - 48/5 * sin(8/7 - 10 * t) + 631/3 * sin( t + 14/3) + 203/4 * sin(2 * t + 8/3) + 473/4 * sin(3 * t + 3/2)_
   + 139/4 * sin(4 * t + 1) + 237/5 * sin(5 * t + 32/7) + 535/6 * sin(6 * t + 11/6) _
   + 1863/19 * sin(7 * t + 14/3) + 229/5 * sin(8 * t + 2/3) + 93/4 * sin(9 * t + 5/4) _
   + 163/9 * sin(12 * t + 2/5) + 133/5 * sin(13 * t + 1) + 18 * sin(14 * t + 5/3) _
   + 41/8 * sin(15 * t + 17/9) + sin(16 * t + 8/5) - 205/3)_
   * Heaviside(15 * pi - t) * Heaviside( t - 11 * pi) + (-46/3 * sin(4/3 - 12 * t) _
   - 113/4 * sin(2/3 - 2 * t) - 297/2 * sin(3/5 - t) + 223/3 * sin(3 * t + 1/4) _
   + 167/2 * sin(4 * t + 34/11) + 851/10 * sin(5 * t + 22/5) + 557/6 * sin(6 * t + 11/6) _
   + 44/3 * sin(7 * t + 19/10) + 114/5 * sin(8 * t + 9/4) + 133/5 * sin(9 * t + 7/3) _
   + 80/3 * sin(10 * t + 19/6) + 16 * sin(11 * t + 17/4) + 37/3 * sin(13 * t + 7/8) _
   + 16/3 * sin(14 * t + 2) + 33/8 * sin(15 * t + 5/6) + 13/2 * sin(16 * t + 7/4) + 373/3) _
   * Heaviside(11 * pi - t) * Heaviside(t - 7 * pi) + (-35/3 * sin(3/5 - 14 * t)_
   - 414/5 * sin(1/13 - 6 * t) - 129/4 * sin(1/4 - 5 * t) - 26 * sin(7/5 - 4 * t) _
   + 647/5 * sin(t + 14/5) + 279/5 * sin(2 * t + 1/7) + 1191/10 * sin(3 * t + 17/7) _
   + 77/2 * sin(7 * t + 21/11) + 152/3 * sin(8 * t + 29/10) + 39 * sin(9 * t + 4/3) _
   + 53/2 * sin(10 * t + 3) + 25/4 * sin(11 * t + 2) + 40/3 * sin(12 * t + 5/4) _
   + 71/4 * sin(13 * t + 40/13) + 261/20 * sin(15 * t + 3/2) + 16/3 * sin(16 * t + 4/5) _
   + 2951/4) * Heaviside(7 * pi - t) * Heaviside(t - 3 * pi) + (-52/5 * sin(5/6 - 9 * t)_
   - 578/5 * sin(6/7 - 6 * t) - 721/18 * sin(4/5 - 3 * t) + 29/4 * sin(10 * t) _
   + 1690/7 * sin( t + 5/3) + 95 * sin(2 * t + 9/5) + 38 * sin(4 * t + 15/4) _
   + 92 * sin(5 * t + 7/4) + 283/4 * sin(7 * t + 2) + 161/3 * sin(8 * t + 10/3) _
   + 47/4 * sin(11 * t + 8/3) + 114/5 * sin(12 * t + 23/8) + 41/3 * sin(13 * t + 7/2) _
   + 14/3 * sin(14 * t + 5/4) + 58/3 * sin(15 * t + 1/2) + 41/4 * sin(16 * t + 17/4) + 2908/3) _
   * Heaviside(3 * pi - t) * Heaviside( t + pi)) * Heaviside(sqr(sgn( sin( t/2))))

   y = ((-5/4 * sin(11/7 - 10 * t) - 19/3 * sin(8/5 - 6 * t) - 1321/20 * sin(8/5 - 2 * t) _
   + 599/4 * sin( t + 8/5) + 58/5 * sin(3 * t + 8/5) + 11/3 * sin(4 * t + 14/3) _
   + 29/3 * sin(5 * t + 8/5) + 9/5 * sin(7 * t + 8/5) + 8/5 * sin(8 * t + 14/3) _
   + 11/3 * sin(9 * t + 8/5) + 1559/2) * Heaviside(31 * pi - t) * Heaviside( t - 27 * pi)_
   + (-1/3 * sin(3/2 - 10 * t) - 8/3 * sin(8/5 - 8 * t) - 29/14 * sin(8/5 - 6 * t) _
   - 22/3 * sin(8/5 - 4 * t) - 589/10 * sin(8/5 - 2 * t) + 481/3 * sin( t + 8/5) _
   + 37/4 * sin(3 * t + 8/5) + 26/3 * sin(5 * t + 8/5) + 22/7 * sin(7 * t + 8/5) _
   + 17/16 * sin(9 * t + 8/5) + 3874/5) * Heaviside(27 * pi - t) * Heaviside(t - 23 * pi) _
   + (-1/20 * sin(7/6 - 22 * t) - 1/4 * sin(4/3 - 17 * t) - 1/3 * sin(4/3 - 15 * t)_
   - 3/5 * sin(3/4 - 13 * t) - 15/7 * sin(1/2 - 11 * t) - 12/5 * sin(1/12 - 9 * t) _
   + 1001/4 * sin( t + 17/4) + 32/3 * sin(2 * t + 57/14) + 23 * sin(3 * t + 28/9) _
   + 16/3 * sin(4 * t + 17/5) + 33/5 * sin(5 * t + 7/4) + 4 * sin(6 * t + 8/3) _
   + 23/5 * sin(7 * t + 3/4) + 2 * sin(8 * t + 27/13) + 2/5 * sin(10 * t + 8/5) _
   + 1/2 * sin(12 * t + 15/4) + 10/9 * sin(14 * t + 39/10) + 7/8 * sin(16 * t + 32/11) _
   + 3/4 * sin(18 * t + 7/3) + 1/3 * sin(19 * t + 3/2) + 1/3 * sin(20 * t + 5/3) _
   + 2/5 * sin(21 * t + 4/5) + 1415/6) * Heaviside(23 * pi - t) * Heaviside( t - 19 * pi)_
   + (-59/4 * sin(1/18 - 13 * t) - 39/5 * sin(1/6 - 12 * t) - 55/3 * sin(1/4 - 11 * t)_
   - 15 * sin(1/3 - 10 * t) - 13/5 * sin(1/9 - 9 * t) - 85/4 * sin(3/5 - 8 * t) - 22/5 * sin(2/3 - 7 * t)_
   - 591/4 * sin(4/3 - 2 * t) - 536 * sin(3/2 - t) + 295 * sin(3 * t + 15/8) _
   + 27/2 * sin(4 * t + 7/4) + 209/4 * sin(5 * t + 2) + 201/8 * sin(6 * t + 11/5) _
   + 21/2 * sin(14 * t + 1/10) + 35/6 * sin(15 * t + 1/3) + 14/3 * sin(16 * t + 3/4) _
   + 13 * sin(17 * t + 1/3) + 2 * sin(18 * t + 6/7) + 36/5 * sin(19 * t + 2/3) _
   + 14/3 * sin(20 * t + 1) + 775/2) * Heaviside(19 * pi - t) * Heaviside(t - 15 * pi)_
   + (-76/5 * sin(1/3 - 15 * t) - 4 * sin(5/4 - 13 * t) - 31/3 * sin(7/5 - 12 * t)_
   - 49/3 * sin(12/11 - 11 * t) - 122/5 * sin(1/2 - 8 * t) - 526/7 * sin(5/6 - 6 * t) _
   - 561/8 * sin(1 - 3 * t) - 55/2 * sin(2/5 - 2 * t) + 1027/5 * sin(t + 6/7) _
   + 323/5 * sin(4 * t + 31/10) + 215/6 * sin(5 * t + 4/3) + 71/3 * sin(7 * t + 7/3) _
   + 47/4 * sin(9 * t + 17/5) + 85/4 * sin(10 * t + 13/3) + 72/5 * sin(14 * t + 14/3) _
   + 87/8 * sin(16 * t + 4/3) + 3168/5) * Heaviside(15 * pi - t) * Heaviside(t - 11 * pi) _
   + (-35/6 * sin(3/4 - 13 * t) - 7 * sin(7/5 - 12 * t) - 46/3 * sin(8/7 - 8 * t) _
   - 181/4 * sin(1/8 - 4 * t) - 327/4 * sin(1/7 - 2 * t) + 320/3 * sin( t + 23/6) _
   + 169/5 * sin(3 * t + 15/4) + 347/4 * sin(5 * t + 29/7) + 239/3 * sin(6 * t + 12/5) _
   + 47/4 * sin(7 * t + 8/3) + 35/4 * sin(9 * t + 5/2) + 35/2 * sin(10 * t + 18/5) _
   + 118/7 * sin(11 * t + 23/6) + 10 * sin(14 * t + 7/4) + 25/4 * sin(15 * t + 32/11) _
   + 39/5 * sin(16 * t + 7/4) + 442/5) * Heaviside(11 * pi - t) * Heaviside(t - 7 * pi) _
   + (-12 * sin(1/5 - 12 * t) - 61/2 * sin(1/2 - 11 * t) - 804/11 * sin(3/2 - 3 * t) _
   + 167/3 * sin(2 * t) + 275/4 * sin(8 * t) + 29/4 * sin(15 * t) + 373/3 * sin( t + 19/5) _
   + 66/5 * sin(4 * t + 5/2) + 161/3 * sin(5 * t + 9/4) + 102/5 * sin(6 * t + 8/3) _
   + 143/4 * sin(7 * t + 1/12) + 222/5 * sin(9 * t + 22/5) + 47/2 * sin(10 * t + 2/3) _
   + 7/5 * sin(13 * t + 3/2) + 7 * sin(14 * t + 7/6) + 181/10 * sin(16 * t + 10/3) + 223/3) _
   * Heaviside(7 * pi - t) * Heaviside( t - 3 * pi) + (-31/6 * sin(1/6 - 15 * t) _
   - 12 * sin(8/5 - 14 * t) - 541/10 * sin(11/10 - 6 * t) + 640/3 * sin( t + 15/14)_
   + 306/5 * sin(2 * t + 3/2) + 221/4 * sin(3 * t + 1/4) + 131/3 * sin(4 * t + 8/3) _
   + 47/3 * sin(5 * t + 13/7) + 38 * sin(7 * t + 18/7) + 181/5 * sin(8 * t + 2/3) _
   + 49/4 * sin(9 * t + 3/4) + 103/6 * sin(10 * t + 22/5) + 43/5 * sin(11 * t + 3/4)_
   + 14/3 * sin(12 * t + 1/5) + 55/3 * sin(13 * t + 4/3) + 34/7 * sin(16 * t + 8/3) + 3182/5)_
* Heaviside(3 * pi - t) * Heaviside( t + pi)) * Heaviside(sqr(sgn( sin(t/2))))
   plot 300+x/04,250+y/04
   plot 60+x/10,100+y/10
   plot 650+x/10,100+y/10
next t
locate 5,2 : ? "Une touche pour sortir ..."

repeat : until len(inkey())

rem ================================================================================================
' la fonction de Heaviside (egalement fonction echelon unite, fonction marche d'escalier),
' du nom de Oliver Heaviside, est la fonction indicatrice de R+.
' C'est donc la fonction H (discontinue en 0) prenant la valeur 1 pour tous les reels positifs et
' la valeur 0 pour les reels strictement negatifs
FUNCTION Heaviside(h)
   if h < 0 then return 0 else return 1
END_FUNCTION
rem ============================================================================

Spoiler:

Sujet: Re: Les programmes de papydall Mer 25 Nov 2020 - 2:52

Merci Papydall pour tous ces nombreux partages !

Bonne nuit ! Sleep

Nombre de messages : 2709 Date d'inscription : 13/09/2009

J'ai essayé de les faire marcher,
ça ne fonctionne pas, chez moi.
Ca bute contre : mode 3,"POUR JJN4 NOTRE MARTIEN PREFERE",w,h
c'est quoi ce « mode », je n'ai pas ça dans mes placards martiens !?!
scratch

Sujet: Re: Les programmes de papydall Mer 25 Nov 2020 - 16:21

Tu es dans le section Crocodile Basic mon ami !!

lol!

Nombre de messages : 2709 Date d'inscription : 13/09/2009

Ah oui !!!
J'avais oublié cette histoire de crocrodile !
Wink

Sujet: Re: Les programmes de papydall Ven 27 Nov 2020 - 9:05

papydall a écrit:: Tu peux les télécharger à partir de :
https://github.com/glasyalabolas/fb-noise

Merci pour la référence, papydall Smile

Voici une version légèrement modifiée du programme :

Code:: ' ===============================================================================
' Croco_Noise.bas
' Papydall le 18 / 11 / 2020
' Adaptation de fb-noise.bas utilisant fb-noise.bi
' (https://github.com/glasyalabolas/fb-noise)
' ===========================================================================

dim perm%(511) ' Tableau de 512 permutations
   ' (les permutations 256 a 511 sont identiques a celles de 0 a 255)
dim grad2%(11,1) ' Tableau des gradients
dim w,h ' Dimensions de la fenetre d'affichage

w = 512 : h = 512

mode 3,"Croco_Noise",w,h

Init_Permutations ' Initialiser le tableau des permutations
Init_Gradient ' Initialiser le tableau des gradients
Generate_Texture ' Demo

repeat : until inkey() <> "" ' Attente d'une touche

end ' Fin du boulot

' ================================================================================

SUB Generate_Texture()

   dim x,y,c%,n
   for y = 0 to h - 1
   for x = 0 to w - 1
   ' ------------------------ Basic patterns --------------------------------------
   ' Essayer une a une les lignes n = ...

   n = blobbyPattern(x, y, w, 20.0, 20.0, 0, 0)
   ' n = circularSinePattern(x, y, w, 10.0, w * 0.5, w * 0.5, 0)
   ' n = sinePattern(x, y, w * 0.5, 10.0, 10.0)
   ' n = remap_overload(sinePattern(x, y, w * 0.5, 10.0, 10.0 ))
   ' n = checkerPattern(x, y, 16.0, 16.0)

   ' ----------------------- Basic noise functions ------------------------------

   ' n = worley(int(x), int(y), int(w), 32, 0)
   ' n = remap_overload(turbulence( x, y, 32))
   ' n = remap_overload(simplex(x / w * 6.5, y / w * 6.5))

   ' ----------------------- Try composing some! --------------------------------

   ' n = remap_overload(sinePattern(x, y, w * 0.5, 10.0, 10.0) + turbulence(x, y, 16 ) * 2.0)
   ' n = circularSinePattern(x, y, w, 20.0, w * 0.5, w * 0.5, turbulence(x, y, * 0.03)
   ' n = blobbyPattern(x, y, w, 20.0, 20.0,turbulence(x, y, 16.0) * 0.05, turbulence(y, x, 16.0) * 0.05)
   ' n = worley(int(x + turbulence(x, y, 16.0) * 15.0), int(y + turbulence(y, x, 16.0) * 5.0), int(w), 15, w * 0.2)

   ' ------------------------- Remap the values to grayscale ---------------------
   c = n * 255
   plot x, h-y, rgb(c, c, c)
   next
   next
END_SUB
' ============================================================================
SUB Init_Permutations()
   dim i%
   for i = 0 to 255
   read perm(i) : perm(i+256) = perm(i)
   next i
END_SUB
' ============================================================================
SUB Init_Gradient()
   grad2(00,0) = 1 : grad2(00,1) = 1
   grad2(01,0) = -1 : grad2(01,1) = 1
   grad2(02,0) = 1 : grad2(02,1) = -1
   grad2(03,0) = -1 : grad2(03,1) = -1

   grad2(04,0) = 1 : grad2(04,1) = 0
   grad2(05,0) = -1 : grad2(05,1) = 0
   grad2(06,0) = 1 : grad2(06,1) = 0
   grad2(07,0) = -1 : grad2(07,1) = 0

   grad2(08,0) = 0 : grad2(08,1) = 1
   grad2(09,0) = 0 : grad2(09,1) = -1
   grad2(10,0) = 0 : grad2(10,1) = 1
   grad2(11,0) = 0 : grad2(11,1) = -1
END_SUB
' ============================================================================
' ------------------------------------------------------------------------------
' Les 256 premieres permutations
data 151,160,137, 91, 90, 15,131, 13,201, 95, 96, 53,194,233, 7,225
data 140, 36,103, 30, 69,142, 8, 99, 37,240, 21, 10, 23,190, 6,148
data 247,120,234, 75, 0, 26,197, 62, 94,252,219,203,117, 35, 11, 32
data 57,177, 33, 88,237,149, 56, 87,174, 20,125,136,171,168, 68,175
data 74,165, 71,134,139, 48, 27,166, 77,146,158,231, 83,111,229,122
data 60,211,133,230,220,105, 92, 41, 55, 46,245, 40,244,102,143, 54
data 65, 25, 63,161, 1,216, 80, 73,209, 76,132,187,208, 89, 18,169
data 200,196,135,130,116,188,159, 86,164,100,109,198,173,186, 3, 64
data 52,217,226,250,124,123, 5,202, 38,147,118,126,255, 82, 85,212
data 207,206, 59,227, 47, 16, 58, 17,182,189, 28, 42,223,183,170,213
data 119,248,152, 2, 44,154,163, 70,221,153,101,155,167, 43,172, 9
data 129, 22, 39,253, 19, 98,108,110, 79,113,224,232,178,185,112,104
data 218,246, 97,228,251, 34,242,193,238,210,144, 12,191,179,162,241
data 81, 51,145,235,249, 14,239,107, 49,192,214, 31,181,199,106,157
data 184, 84,204,176,115,121, 50, 45,127, 4,150,254,138,236,205, 93
data 222,114, 67, 29, 24, 72,243,141,128,195, 78, 66,215, 61,156,180
' ------------------------------------------------------------------------------
' ============================================================================
' -1 .. 1
FUNCTION noise1(x%)
   x = ( x shl 13 ) xor x
   return ( ( 1.0 - ( ( x * ( x * x * 15731 + 789221) + _
   1376312589) and &h7fffffff) / 1073741824.0 ) )
END_FUNCTION
' ============================================================================
' 0 .. 1 range
function noise1n(x% )
   return ( ( noise1( x ) * 0.5 ) + 0.5 )
end_function
' ============================================================================
' -1 .. 1 range
function noise2(x%, y%)
   dim n%
   n = x + y * 57
   n = ( n shl 13 ) xor n
   return ( ( 1.0 - ( ( n * ( n * n * 15731 + 789221 ) + _
   1376312589 ) and &h7fffffff ) / 1073741824.0 ) )
end_function
' ============================================================================
' 0 .. 1 range
function noise2n(x%,y%)
   return ( ( noise2( x, y ) * 0.5 ) + 0.5 )
end_function
' ============================================================================
' Floating-point modulus
function fMod(n,d)
   return( n - int( n / d ) * d )
end_function
' ============================================================================
' Clamps a value 'v' between two limits, 'a' and 'b'
function fClamp(v,a,b)
   dim temp
   if v < b then temp = v else temp = b
   if a > v then return a else return temp
end_function
' ============================================================================
' Wraps a value 'v' between two values, 'a' and 'b'
function fWrap(v,a,b)
   dim range
   range = b - a
   return( fMod( ( fMod( v - a, range ) + range ), range + a ) )
end_function
' ============================================================================
' Remaps a function in the -1 .. 1 range to the 0 .. 1 range.
function remap_overload(v)
   return ( fClamp( v * 0.5 + 0.5, 0.0, 1.0 ) )
end_function
' ============================================================================
' Remaps a value from one range into another
function remap(x, start1, end1, start2, end2)
   return( ( x - start1 ) * ( end2 - start2 ) / ( end1 - start1 ) + start2 )
end_function
' ============================================================================
' Bilinear interpolated smoothed noise -1 .. 1 range
function smoothedNoise(x,y)
   dim fractX,fractY
   fractX = frac(x)
   fractY = frac(y) '

   dim x1%,y1%,x2%,y2%
   x1 = int( x )
   y1 = int( y )
   x2 = int( x - 1.0 )
   y2 = int( y - 1.0 )

   dim a1,a2,a3,a4
   a1 = fractX * fractY * noise2( x1, y1 )
   a2 = fractX * ( 1.0 - fractY ) * noise2( x1, y2 )
   a3 = ( 1.0 - fractX ) * fractY * noise2( x2, y1 )
   a4 = ( 1.0 - fractX ) * ( 1.0 - fractY ) * noise2( x2, y2 )

   return a1 + a2 + a3 + a4

end_function
' ============================================================================
' Creates a turbulence texture (aka Value Noise). -1 .. 1 range
function turbulence(x,y, size)
   dim value,initialSize
   value = 0.0
   initialSize = size

   while( size >= 1.0 )
   value = value + smoothedNoise( x / size, y / size ) * size
   size = size / 2.0
   wend

   value = value / initialSize

   return fClamp( value, -1.0, 1.0 )
end_function
' ============================================================================
' Worley noise euclidean distance function
function wn_dist_euclidean(x1,y1,x2,y2)
   return sqr( ( x1 - x2 ) ^ 2 + ( y1 - y2 ) ^ 2 )
end_function
' ============================================================================
' Worley noise Manhattan distance function
function wn_dist_manhattan(x1,y1,x2,y2)
   return abs( x1 - x2 ) + abs( y1 - y2 )
end_function
' ============================================================================
' Worley noise squared distance function
function wn_dist_squared(x1,y1,x2,y2)
   return max( abs( ( x1 - x2 ) ), abs( ( y1 - y2 ) ) )
end_function
' ============================================================================
' Worley noise result combinator functions
function wn_result_1(F,S,T, correction)
   return ( F ^ 2 ) / ( S * T )
end_function
' ============================================================================
function wn_result_2(F,S,T,correction)
   return F / correction
end_function
' ============================================================================
function wn_result_3(F,S,T,correction)
   return S / correction
end_function
' ============================================================================
function wn_result_4(F,S,T,correction)
   return T / correction
end_function
' ============================================================================
function wn_result_5(F,S,T,correction)
   return 2.0 * F / ( S + T )
end_function
' ============================================================================
function wn_result_6(F,S,T,correction)
   return F / S
end_function
' ===========================================================================
function wn_result_7(F,S,T,correction)
   return ( S - F ) / correction
end_function
' ===========================================================================
function wn_result_8(F,S,T,correction)
   return ( T - F ) / correction
end_function
' ===========================================================================
function wn_result_9(F,S,T,correction)
   return ( T - S ) / correction
end_function
' ============================================================================
' Worley noise (aka 'Cellular noise') 0 .. 1 range

function worley(x%,y%,size%,cellSize,correction )
   dim firstPoint,secondPoint,thirdPoint,dist,xp,yp
   firstPoint = 2 * cellSize
   secondPoint = 2 * cellSize
   thirdPoint = 2 * cellSize

   dim numCells%,cellX%,cellY%,cell%,cellPoint%
   numCells = int( size% / cellSize ) + 1
   cellX = int( x% / cellSize )
   cellY = int( y% / cellSize )
   cell = numCells * cellY + cellX

   dim i%,j%
   for i% = -1 to 1
   for j% = -1 to 1
   cellPoint = cell + i% + j% * numCells
   xp = ( cellX + i% ) * cellSize + noise1n(cellPoint) * cellSize
   yp = ( cellY + j% ) * cellSize + noise1n(cellPoint + 10) * cellSize
   dist = wn_dist_euclidean(creal(x), creal(y), creal(xp), creal(yp))

   if firstPoint > dist then
   thirdPoint = secondPoint
   secondPoint = firstPoint
   firstPoint = dist
   elseif secondPoint > dist then
   thirdPoint = secondPoint
   secondPoint = dist
   elseif thirdPoint > dist then
   thirdPoint = dist
   end_if
   next j%
   next i%

   return fClamp(wn_result_1(firstPoint, secondPoint, thirdPoint, correction ), -1, 1 )
end_function
' ============================================================================
' Simplex noise. -1 .. 1 range

function simplex(x,y)

   const SN_F2 = 0.5 * ( sqr( 3.0 ) - 1.0 )
   const SN_G2 = ( 3.0 - sqr( 3.0 ) ) / 6.0
   const SN_G22 = SN_G2 + SN_G2

   dim s : s = ( x + y ) * SN_F2
   dim i%,j%
   i = int( x + s )
   j = int( y + s )
   dim t,x0,y0
   t = ( i + j ) * SN_G2
   x0 = x - ( i - t )
   y0 = y - ( j - t )
   dim i1%, j1%

   i = i and 255
   j = j and 255

   if( x0 > y0 ) then
   i1 = 1
   j1 = 0
   else
   i1 = 0
   j1 = 1
   end_if

   dim x1,y1,x2,y2
   x1 = x0 - i1 + SN_G2
   y1 = y0 - j1 + SN_G2
   x2 = x0 - 1.0 + SN_G22
   y2 = y0 - 1.0 + SN_G22
   dim ii%,jj%,ind%
   ii = i
   jj = j

   dim n

   t = 0.5 - x0 * x0 - y0 * y0

   if( t < 0.0 ) then
   n = 0.0
   else
   ind = perm( i + perm( j ) ) mod 12
   n = t * t * t * t * ( grad2( ind, 0 ) * x0 + _
   grad2( ind, 1 ) * y0 )
   end_if

   t = 0.5 - x1 * x1 - y1 * y1

   if( t >= 0.0 ) then
   ind = perm( i + i1 + perm( j + j1 ) ) mod 12

   n = n + t * t * t * t * ( grad2( ind, 0 ) * x1 + _
   grad2( ind, 1 ) * y1 )
   end_if

   t = 0.5 - x2 * x2 - y2 * y2

   if( t >= 0.0 ) then
   i = i + 1
   j = j + 1
   ind = perm( i + perm( j ) ) mod 12
   n += t * t * t * t * ( grad2( ind, 0 ) * x2 + _
   grad2( ind, 1 ) * y2 )
   end_if

   return 70.0 * n
end_function
' ============================================================================
' Creates a sinusoidal wave pattern. -1 .. 1 range
function sinePattern(x,y,size,xPeriod,yPeriod )
   return sin( ( x * xPeriod / size + y * yPeriod / size ) )
end_function
' ============================================================================
' Creates a circular sinusoidal pattern 0 .. 1 range
function circularSinePattern(x,y,size,period,centerX, centerY, bias )
   dim xp,yp,dist
   xp = ( x - centerX ) / size
   yp = ( y - centerY ) / size
   dist = sqr( xp ^ 2 + yp ^ 2 ) + bias

   return abs( sin( 2.0 * period * dist ) )
end_function
' ===========================================================================
' Creates a blobby-like pattern. 0 .. 1 range
function blobbyPattern(x,y,size,xPeriod,yPeriod,xDisp,yDisp)
   dim a1,a2
   a1 = sin( ( ( x - size * 0.5 ) / size + xDisp ) * xPeriod )
   a2 = sin( ( ( y - size * 0.5 ) / size + yDisp ) * yPeriod )
   return abs((a1 + a2)*0.5)
end_function
' ===========================================================================
' Creates a checkerboard pattern 0 .. 1 range (either one or the other)
function checkerPattern(x,y,sizeX,sizeY)
   dim temp
   if ( int( x / sizeX ) + int( y / sizeY ) ) mod 2 = 1 then
   temp = 0.0
   else
   temp = 1.0
   end_if
   return temp
end_function

En prime, une référence sur le bruit de Worley :

http://weber.itn.liu.se/~stegu/TNM084-2017/worley-originalpaper.pdf

Il y a même un crocodile ( à deux têtes ! )

Sujet: Re: Les programmes de papydall Sam 28 Nov 2020 - 1:38

jean_debord a écrit:: Il y a même un crocodile ( à deux têtes ! )

Voici un crocodile (à une seule tête Embarassed

) en Crocodile Basic.

Code:: rem ============================================================================================
rem CROCODILE CURVE
rem ============================================================================================

dim x,y,t,p,w,h
p = pi/2880
w = 800 : h = 600

mode 3,"CROCODILE CURVE",w,h
pen rgb(0,0,250) : paper rgb(250,255,250) : cls
for t = 0 to 88 * pi step p
   x = ((-7/10 * sin(14/9 - 41 * t) - 4/9 * sin(7/5 - 32 * t) - 15 * sin(11/7 - 8 * t)_
   - 177/2 * sin(11/7 - 2 * t) + 275/4 * sin( t + 11/7) + 639/10 * sin(3 * t + 11/7)_
   + 221/5 * sin(4 * t + 11/7) + 40/3 * sin(5 * t + 11/7) + 57/5 * sin(6 * t + 11/7)_
   + 40/3 * sin(7 * t + 11/7) + 445/37 * sin(9 * t + 11/7) + 37/3 * sin(10 * t + 11/7)_
   + 141/10 * sin(11 * t + 33/7) + 27/7 * sin(12 * t + 37/8) + 5/9 * sin(13 * t + 11/5) _
   + 111/7 * sin(14 * t + 33/7) + 25/4 * sin(15 * t + 13/8) + 204/11 * sin(16 * t + 33/7) _
   + 9/4 * sin(17 * t + 49/11) + 55/4 * sin(18 * t + 33/7) + 2/3 * sin(19 * t + 17/9) _
   + 47/16 * sin(20 * t + 8/5) + 7/2 * sin(21 * t + 14/3) + 5/2 * sin(22 * t + 13/8) _
   + 38/11 * sin(23 * t + 11/7) + 30/7 * sin(24 * t + 14/3) + 35/6 * sin(25 * t + 37/8)_
   + 24/5 * sin(26 * t + 37/8) + 23/5 * sin(27 * t + 14/3) + 16/15 * sin(28 * t + 9/2) _
   + 3/7 * sin(29 * t + 7/4) + 4/9 * sin(30 * t + 22/5) + 4/9 * sin(31 * t + 11/6) _
   + 53/9 * sin(33 * t + 11/7) + 26/7 * sin(34 * t + 47/10) + 13/4 * sin(35 * t + 23/5) _
   + 10/7 * sin(36 * t + 37/8) + 8/7 * sin(37 * t + 8/5) + 1/4 * sin(38 * t + 5/3) _
   + 25/24 * sin(39 * t + 11/7) + sin(40 * t + 8/5) + 2/5 * sin(42 * t + 14/3) _
   + 4/7 * sin(43 * t + 14/9) + 1/3 * sin(44 * t + 11/7) + 1/11 * sin(45 * t + 2/3) _
   + 8/5 * sin(46 * t + 8/5) + 1/3 * sin(47 * t + 13/8) + 9/5 * sin(48 * t + 14/3) _
   + 3/8 * sin(49 * t + 14/9) + 4/9 * sin(50 * t + 11/7) + 5/4 * sin(51 * t + 37/8) _
   + 10/9 * sin(52 * t + 37/8) + 4/3 * sin(53 * t + 11/7) + 5/6 * sin(54 * t + 14/9) _
   + 4/7 * sin(55 * t + 32/7) + 2 * sin(56 * t + 14/3) + 1/6 * sin(57 * t + 13/3) _
   + 4/7 * sin(58 * t + 5/3) + 2/3 * sin(59 * t + 37/8) + 1/5 * sin(60 * t + 30/7) _
   + 2/5 * sin(61 * t + 8/5) + 1/11 * sin(62 * t + 35/17) - 5188/7) _
   * Heaviside(87 * pi - t) * Heaviside( t - 83 * pi) + (-5/3 * sin(11/7 - 7 * t)_
   + 119 * sin( t + 11/7) + 339/8 * sin(2 * t + 11/7) + 18 * sin(3 * t + 11/7) _
   + 54/5 * sin(4 * t + 33/7) + 469/39 * sin(5 * t + 11/7) + 71/11 * sin(6 * t + 11/7)_
   + 3/4 * sin(8 * t + 8/5) + 27/4 * sin(9 * t + 11/7) + 8/3 * sin(10 * t + 33/7) _
   + 9/7 * sin(11 * t + 8/5) + 1/4 * sin(12 * t + 3/2) - 9093/8) _
   * Heaviside(83 * pi - t) * Heaviside( t - 79 * pi) + (-3/7 * sin(11/7 - 8 * t)_
   - 22/3 * sin(11/7 - 2 * t) - 7/5 * sin(11/7 - t) + 161/9 * sin(3 * t + 11/7)_
   + 17/6 * sin(4 * t + 8/5) + 4/3 * sin(5 * t + 11/7) + 1/8 * sin(6 * t + 12/7) _
   + 11/6 * sin(7 * t + 11/7) + 2/3 * sin(9 * t + 11/7) + 1/7 * sin(10 * t + 14/9) _
   + 1/6 * sin(11 * t + 11/7) + 1/45 * sin(12 * t + 10/7) - 9987/7)_
   * Heaviside(79 * pi - t) * Heaviside( t - 75 * pi) + (-21 * sin(11/7 - 2 * t)_
   - 25/4 * sin(11/7 - t) + 64/5 * sin(3 * t + 11/7) + 3 * sin(4 * t + 8/5) _
   + 21/5 * sin(5 * t + 11/7) + 3/5 * sin(6 * t + 14/3) + 11/7 * sin(7 * t + 8/5) _
   + 2/7 * sin(8 * t + 17/10) + 4/3 * sin(9 * t + 8/5) + 1/9 * sin(10 * t + 9/2) _
   + 7/8 * sin(11 * t + 8/5) + 3/8 * sin(12 * t + 5/3) - 8692/7) _
   * Heaviside(75 * pi - t) * Heaviside( t - 71 * pi) + (-17/9 * sin(3/2 - 54 * t)_
   - 15/8 * sin(16/11 - 53 * t) - 2/3 * sin(10/7 - 52 * t) - 6/5 * sin(10/7 - 51 * t)_
   - 2/9 * sin(3/2 - 50 * t) - 13/7 * sin(14/9 - 47 * t) - 12/5 * sin(11/7 - 46 * t) _
   - 10/7 * sin(17/11 - 40 * t) - 3/2 * sin(14/9 - 36 * t) - 40/7 * sin(3/2 - 35 * t) _
   - 31/5 * sin(3/2 - 34 * t) - 23/6 * sin(19/13 - 32 * t) - 41/4 * sin(3/2 - 31 * t) _
   - 54/5 * sin(17/11 - 30 * t) - 50/7 * sin(11/7 - 24 * t) - 5/3 * sin(3/2 - 23 * t)_
   - 4/7 * sin(17/11 - 19 * t) - 76/7 * sin(14/9 - 17 * t) - 46/7 * sin(14/9 - 16 * t) _
   - 15/16 * sin(3/2 - 15 * t) - 21/4 * sin(17/11 - 14 * t) - 95/6 * sin(14/9 - 13 * t) _
   - 71/4 * sin(11/7 - 12 * t) - 50/7 * sin(17/11 - 11 * t) - 221/5 * sin(11/7 - 10 * t) _
   - 461/13 * sin(11/7 - 8 * t) - 562/7 * sin(11/7 - 6 * t) - 436/5 * sin(11/7 - 4 * t) _
   - 337/5 * sin(11/7 - 3 * t) - 405/8 * sin(11/7 - t) + 3133/8 * sin(2 * t + 11/7) _
   + 190/3 * sin(5 * t + 11/7) + 57/14 * sin(7 * t + 3/2) + 13/8 * sin(9 * t + 3/2) _
   + 38/11 * sin(18 * t + 13/8) + 4/5 * sin(20 * t + 33/7) + 39/7 * sin(21 * t + 8/5) _
   + 2/7 * sin(22 * t + 47/10) + 25/7 * sin(25 * t + 13/8) + 7/3 * sin(26 * t + 14/3) _
   + 88/9 * sin(27 * t + 8/5) + 116/11 * sin(28 * t + 13/8) + 52/7 * sin(29 * t + 8/5) _
   + 6/11 * sin(33 * t + 13/12) + 17/4 * sin(37 * t + 13/8) + 9/5 * sin(38 * t + 5/3) _
   + 1/9 * sin(39 * t + 22/5) + 4/3 * sin(41 * t + 8/5) + 1/5 * sin(42 * t + 40/9) _
   + 11/7 * sin(43 * t + 8/5) + 9/5 * sin(44 * t + 13/8) + 21/11 * sin(45 * t + 5/3) _
   + 4/5 * sin(48 * t + 7/4) + 7/4 * sin(49 * t + 8/5) + 2/7 * sin(55 * t + 8/5) _
   + 5/4 * sin(56 * t + 13/8) + 5/6 * sin(57 * t + 13/8) + 6/11 * sin(58 * t + 11/6) _
   - 4267/5) * Heaviside(71 * pi - t) * Heaviside( t - 67 * pi) + (-16/7 * sin(3/2 - 55 * t) _
   - 11/12 * sin(10/7 - 48 * t) - 44/15 * sin(10/7 - 37 * t) - 13/4 * sin(7/5 - 35 * t)_
   - 6/11 * sin(13/9 - 34 * t) - 7/8 * sin(20/13 - 33 * t) - 1/2 * sin(6/5 - 32 * t) _
   - 329/22 * sin(17/11 - 25 * t) - 49/3 * sin(3/2 - 23 * t) - 2/5 * sin(2/7 - 21 * t)_
   - 20/3 * sin(17/11 - 16 * t) - 116/11 * sin(11/7 - 14 * t) - 11/2 * sin(14/9 - 13 * t) _
   - 62/5 * sin(14/9 - 11 * t) - 32/3 * sin(14/9 - 7 * t) - 243/5 * sin(11/7 - 3 * t) _
   + 971/5 * sin(t + 11/7) + 2023/6 * sin(2 * t + 11/7) + 88/3 * sin(4 * t + 8/5) _
   + 183/8 * sin(5 * t + 11/7) + 78/5 * sin(6 * t + 8/5) + 118/3 * sin(8 * t + 11/7) _
   + 17/4 * sin(9 * t + 3/2) + 132/5 * sin(10 * t + 8/5) + 130/9 * sin(12 * t + 8/5) _
   + 6 * sin(15 * t + 8/5) + 29/15 * sin(17 * t + 13/7) + 15/2 * sin(18 * t + 3/2) _
   + sin(19 * t + 30/7) + 379/18 * sin(20 * t + 33/7) + 161/9 * sin(22 * t + 11/7) _
   + 69/14 * sin(24 * t + 37/8) + 7/5 * sin(26 * t + 5/3) + 24/5 * sin(27 * t + 11/7) _
   + 17/5 * sin(28 * t + 11/7) + 23/2 * sin(29 * t + 8/5) + 47/8 * sin(30 * t + 17/11) _
   + 5/3 * sin(31 * t + 13/7) + 5/3 * sin(36 * t + 8/5) + 3/4 * sin(38 * t + 12/7) _
   + 1/6 * sin(39 * t + 9/2) + 11/4 * sin(40 * t + 11/7) + 31/7 * sin(41 * t + 8/5) _
   + 7/5 * sin(42 * t + 11/7) + 2/3 * sin(43 * t + 13/3) + 20/7 * sin(44 * t + 11/7) _
   + 37/8 * sin(45 * t + 11/7) + 7/5 * sin(46 * t + 3/2) + 33/8 * sin(47 * t + 11/7) _
   + 1/4 * sin(49 * t + 16/7) + 12/5 * sin(50 * t + 3/2) + 7/5 * sin(51 * t + 5/3) _
   + 33/17 * sin(52 * t + 11/7) + 22/7 * sin(53 * t + 11/7) + 1/4 * sin(54 * t + 50/11) _
   + 3/8 * sin(56 * t + 14/9) + 1/4 * sin(57 * t + 1/14) - 5162/5)_
   * Heaviside(67 * pi - t) * Heaviside( t - 63 * pi) + (-7/8 * sin(16/11 - 4 * t)_
   - 83/6 * sin(11/7 - 3 * t) + 601/30 * sin(t + 11/7) + 145/6 * sin(2 * t + 11/7) _
   - 1553/4) * Heaviside(63 * pi - t) * Heaviside( t - 59 * pi) _
   + (-41/2 * sin(11/7 - 3 * t) + 123/5 * sin(t + 11/7) + 111/5 * sin(2 * t + 11/7)_
   - 2576/5) * Heaviside(59 * pi - t) * Heaviside( t - 55 * pi) _
   + (206/9 * sin(t + 11/7) + 7/6 * sin(2 * t + 8/5) - 23041/36) _
   * Heaviside(55 * pi - t) * Heaviside( t - 51 * pi) _
   + (-101/5 * sin(11/7 - 3 * t) + 91/4 * sin(t + 11/7) _
   + 21/2 * sin(2 * t + 11/7) + 2251/4) _
   * Heaviside(51 * pi - t) * Heaviside(t - 47 * pi) _
   + (160/9 * sin(t + 11/7) + 73/7 * sin(2 * t + 11/7) _
   + 101/8 * sin(3 * t + 33/7) + 3477/7) _
   * Heaviside(47 * pi - t) * Heaviside( t - 43 * pi) + (-4 * sin(11/7 - 3 * t) _
   + 13/3 * sin(t + 11/7) + 215/7 * sin(2 * t + 11/7) + 4687/11) _
   * Heaviside(43 * pi - t) * Heaviside( t - 39 * pi) + (-8/5 * sin(14/9 - 6 * t)_
   - 36/7 * sin(11/7 - 5 * t) - 7/5 * sin(14/9 - 4 * t) - 22 * sin(11/7 - 3 * t) _
   + 123/5 * sin(t + 11/7) + 36/5 * sin(2 * t + 11/7) - 1018/9)_
   * Heaviside(39 * pi - t) * Heaviside( t - 35 * pi) + (- sin(3/2 - 4 * t) _
   - 298/11 * sin(11/7 - 3 * t) + 31 * sin(t + 11/7) + 94/7 * sin(2 * t + 11/7) _
   - 161/5) * Heaviside(35 * pi -t) * Heaviside(t - 31 * pi)_
   + (-45/4 * sin(11/7 - 3 * t) + 87/5 * sin(t + 11/7) + 211/10 * sin(2 * t + 11/7)_
   + 15/14 * sin(4 * t + 14/9) - 2497/12) _
   * Heaviside(31 * pi - t) * Heaviside( t - 27 * pi) + (-8/3 * sin(3/2 - 32 * t) _
   - 33/4 * sin(3/2 - 25 * t) - 47/7 * sin(20/13 - 22 * t) - 25/3 * sin(3/2 - 20 * t)_
   - 9/5 * sin(4/3 - 19 * t) - 97/7 * sin(14/9 - 14 * t) - 29/4 * sin(14/9 - 11 * t)_
   - 78/7 * sin(3/2 - 7 * t) - 417/7 * sin(11/7 - 6 * t) - 411/7 * sin(11/7 - 4 * t) _
   - 1051/10 * sin(11/7 - 2 * t) - 643/5 * sin(11/7 - t) + 325/9 * sin(3 * t + 11/7) _
   + 581/10 * sin(5 * t + 8/5) + 49/5 * sin(8 * t + 12/7) + 683/8 * sin(9 * t + 8/5) _
   + 158/5 * sin(10 * t + 13/8) + 136/9 * sin(12 * t + 13/8) + 57/8 * sin(13 * t + 5/3) _
   + 55/7 * sin(15 * t + 13/8) + 22/7 * sin(16 * t + 5/3) + 37/5 * sin(17 * t + 5/3) _
   + 49/6 * sin(18 * t + 12/7) + 29/5 * sin(21 * t + 13/8) + 5/4 * sin(23 * t + 13/8) _
   + 11/5 * sin(24 * t + 8/5) + 11/6 * sin(26 * t + 12/7) + 25/8 * sin(27 * t + 5/3) _
   + 15/8 * sin(28 * t + 33/7) + 17/5 * sin(29 * t + 13/8) + 16/15 * sin(30 * t + 41/9)_
   + 13/3 * sin(31 * t + 5/3) - 3301/22) _
   * Heaviside(27 * pi - t) * Heaviside( t - 23 * pi) + (-2/9 * sin(11/7 - 28 * t)_
   - 4/5 * sin(3/2 - 27 * t) - 13/5 * sin(17/11 - 23 * t) - 7/2 * sin(11/7 - 18 * t)_
   - 20/3 * sin(14/9 - 10 * t) - 35/4 * sin(3/2 - 9 * t) - 287/16 * sin(20/13 - 8 * t) _
   - 267/14 * sin(14/9 - 7 * t) - 440/7 * sin(11/7 - 4 * t) + 291/4 * sin(t + 11/7) _
   + 33/2 * sin(2 * t + 8/5) + 621/8 * sin(3 * t + 11/7) + 19/9 * sin(5 * t + 3/2)_
   + 147/5 * sin(6 * t + 8/5) + 141/10 * sin(11 * t + 8/5) + 35/12 * sin(12 * t + 23/5) _
   + 37/4 * sin(13 * t + 8/5) + 127/18 * sin(14 * t + 33/7) + 196/15 * sin(15 * t + 8/5) _
   + 86/17 * sin(16 * t + 14/3) + 33/7 * sin(17 * t + 8/5) + 5/3 * sin(19 * t + 8/5) _
   + 5/4 * sin(20 * t + 7/4) + 7/4 * sin(21 * t + 12/7) + 27/14 * sin(22 * t + 8/5) _
   + 10/3 * sin(24 * t + 13/8) + 4/9 * sin(25 * t + 9/2) + 7/6 * sin(26 * t + 5/3) _
   + 9/10 * sin(29 * t + 13/8) + 4990/9) * Heaviside(23 * pi - t) * Heaviside( t - 19 * pi)_
   + (-5/4 * sin(9/7 - 11 * t) - 121/10 * sin(14/9 - 10 * t) - 158/5 * sin(11/7 - 6 * t) _
   - 621/11 * sin(14/9 - 5 * t) - 292/5 * sin(11/7 - 4 * t) - 381 * sin(11/7 - 2 * t) _
   + 2245/7 * sin(t + 11/7) + 311/7 * sin(3 * t + 8/5) + 274/5 * sin(7 * t + 8/5) _
   + 128/3 * sin(8 * t + 8/5) + 115/11 * sin(9 * t + 8/5) + 104/11 * sin(12 * t + 8/5)_
   - 2678/7) * Heaviside(19 * pi - t) * Heaviside( t - 15 * pi) _
   + (-8/3 * sin(24/23 - 73 * t) - 3/4 * sin(4/7 - 72 * t) - 5/3 * sin(3/2 - 70 * t)_
   - 11/5 * sin(34/33 - 67 * t) - 3/7 * sin(1/3 - 66 * t) - 12/7 * sin(12/11 - 63 * t) _
   - 9/7 * sin(3/4 - 62 * t) - 2/3 * sin(45/44 - 61 * t) - sin(6/5 - 58 * t) _
   - 3/4 * sin(4/5 - 57 * t) - 12/7 * sin(1 - 56 * t) - 8/5 * sin(4/7 - 55 * t) _
   - 21/4 * sin(5/4 - 54 * t) - 25/7 * sin(11/7 - 52 * t) - 16/5 * sin(10/7 - 48 * t) _
   - 37/36 * sin(3/4 - 46 * t) - 13/4 * sin(3/2 - 45 * t) - 32/13 * sin(16/11 - 43 * t) _
   - 29/3 * sin(10/7 - 35 * t) - 5/3 * sin(9/7 - 28 * t) - 19 * sin(11/7 - 24 * t) _
   - 91/15 * sin(7/6 - 17 * t) - 247/4 * sin(13/9 - 16 * t) - 13/4 * sin(1/33 - 15 * t)_
   - 97/6 * sin(16/11 - 14 * t) - 10 * sin(7/5 - 13 * t) - 101/5 * sin(14/9 - 10 * t) _
   - 130/7 * sin(3/2 - 8 * t) - 22/5 * sin(4/3 - 7 * t) - 272/7 * sin(14/9 - 6 * t) _
   - 740/19 * sin(11/7 - 4 * t) - 187/6 * sin(16/11 - 3 * t) - 2489/6 * sin(11/7 - 2 * t) _
   + 1277/4 * sin(t + 11/7) + 701/28 * sin(5 * t + 11/7) + 15/4 * sin(9 * t + 7/5) _
   + 149/10 * sin(11 * t + 8/5) + 4/3 * sin(12 * t + 30/7) + 137/4 * sin(18 * t + 5/3)_
   + 61/7 * sin(19 * t + 22/5) + 479/15 * sin(20 * t + 9/5) + 635/9 * sin(21 * t + 7/4) _
   + 71/5 * sin(22 * t + 41/9) + 81/5 * sin(23 * t + 3/2) + 152/5 * sin(25 * t + 12/7) _
   + 41/9 * sin(26 * t + 12/5) + 15/4 * sin(27 * t + 12/7) + 19/18 * sin(29 * t + 5/2) _
   + 170/13 * sin(30 * t + 7/4) + 77/19 * sin(31 * t + 14/3) + 3/5 * sin(32 * t + 30/7) _
   + 16/5 * sin(33 * t + 17/10) + 24/23 * sin(34 * t + 1/21) + 34/3 * sin(36 * t + 9/5) _
   + 22/9 * sin(37 * t + 13/6) + 3/2 * sin(38 * t + 10/3) + 26/3 * sin(39 * t + 11/6) _
   + 15/16 * sin(40 * t + 25/8) + 6/5 * sin(41 * t + 15/8) + 2/3 * sin(42 * t + 3/2) _
   + 37/7 * sin(44 * t + 7/4) + 5/7 * sin(47 * t + 16/17) + 35/9 * sin(49 * t + 17/10) _
   + 17/6 * sin(50 * t + 9/2) + 86/17 * sin(51 * t + 7/4) + 20/7 * sin(53 * t + 13/9) _
   + 4/5 * sin(59 * t + 5/2) + 6/5 * sin(60 * t + 25/12) + 5/9 * sin(64 * t + 13/7) _
   + 7/8 * sin(65 * t + 9/4) + 15/14 * sin(68 * t + 15/7) + 71/35 * sin(69 * t + 39/19) _
   + sin(71 * t + 8/5) + 5/8 * sin(74 * t + 4/3) + 5/7 * sin(75 * t + 22/9) _
   + 1/3 * sin(76 * t + 29/7) + 5/4 * sin(77 * t + 9/4) + 9/8 * sin(78 * t + 22/9)_
   + 3/5 * sin(79 * t + 13/5) + 4/9 * sin(80 * t + 9/4) - 1143/7) _
   * Heaviside(15 * pi - t) * Heaviside( t - 11 * pi) + (-8/3 * sin(7/5 - 34 * t) _
   - 9/5 * sin(4/3 - 33 * t) - 19/8 * sin(17/11 - 30 * t) - 3/2 * sin(11/7 - 28 * t)_
   - 8/7 * sin(7/5 - 27 * t) - 23/12 * sin(16/11 - 26 * t) - 6/5 * sin(13/9 - 25 * t)_
   - 53/4 * sin(16/11 - 22 * t) - 43/10 * sin(7/5 - 21 * t) - 11/4 * sin(3/2 - 20 * t) _
   - 13/5 * sin(16/11 - 15 * t) - 167/24 * sin(16/11 - 14 * t) - 7/4 * sin(6/5 - 13 * t)_
   - 13 * sin(3/2 - 12 * t) - 91/5 * sin(3/2 - 11 * t) - 237/8 * sin(17/11 - 10 * t) _
   - 98/3 * sin(11/7 - 8 * t) - 17/8 * sin(3/2 - 5 * t) - 468/5 * sin(11/7 - 2 * t) _
   - 397/7 * sin(11/7 - t) + 34/5 * sin(3 * t + 14/9) + 24/7 * sin(4 * t + 8/5) _
   + 8/5 * sin(6 * t + 9/2) + 158/7 * sin(7 * t + 8/5) + 37 * sin(9 * t + 8/5) _
   + 13/5 * sin(16 * t + 5/3) + 3 * sin(17 * t + 5/3) + 15/4 * sin(18 * t + 12/7) _
   + 34/9 * sin(19 * t + 13/8) + 37/9 * sin(23 * t + 8/5) + 65/9 * sin(24 * t + 5/3) _
   + 14/5 * sin(29 * t + 8/5) + 19/6 * sin(31 * t + 12/7) + 4/3 * sin(32 * t + 7/4) + 5756/7) _
   * Heaviside(11 * pi - t) * Heaviside( t - 7 * pi) + (-8/5 * sin(7/5 - 32 * t) _
   - 5/3 * sin(14/9 - 31 * t) - 61/8 * sin(11/7 - 20 * t) - 42/5 * sin(3/2 - 19 * t)_
   - 122/5 * sin(11/7 - 13 * t) - 143/12 * sin(14/9 - 10 * t) - 13/6 * sin(17/11 - 9 * t)_
   - 73/4 * sin(11/7 - 8 * t) - 47/7 * sin(3/2 - 7 * t) - 423/7 * sin(11/7 - 6 * t) _
   - 16/15 * sin(43/42 - 5 * t) - 401/4 * sin(11/7 - 4 * t) + 1361/20 * sin(t + 33/7) _
   + 199/6 * sin(2 * t + 11/7) + 1211/22 * sin(3 * t + 11/7) + 49/3 * sin(11 * t + 11/7)_
   + 51/8 * sin(12 * t + 11/7) + 16/5 * sin(14 * t + 3/2) + 19/4 * sin(15 * t + 8/5) _
   + 23/4 * sin(16 * t + 5/3) + 128/9 * sin(17 * t + 8/5) + 7/5 * sin(18 * t + 3/2) _
   + 29/6 * sin(21 * t + 8/5) + 93/7 * sin(22 * t + 8/5) + 17/6 * sin(23 * t + 5/3) _
   + 19/5 * sin(24 * t + 14/3) + 2/3 * sin(25 * t + 8/5) + 15/4 * sin(26 * t + 5/3) _
   + 7/2 * sin(27 * t + 5/3) + 7/6 * sin(28 * t + 8/5) + 6/7 * sin(29 * t + 3/2) _
   + 6/5 * sin(30 * t + 5/3) + 2891/12) * Heaviside(7 * pi - t) * Heaviside( t - 3 * pi) _
   + (-25/6 * sin(14/9 - 31 * t) - 23/4 * sin(14/9 - 27 * t) - 24/7 * sin(14/9 - 17 * t) _
   - 59/7 * sin(11/7 - 15 * t) - 324/7 * sin(11/7 - 6 * t) - 405/8 * sin(11/7 - 5 * t) _
   - 203/6 * sin(11/7 - 3 * t) + 1074/7 * sin(t + 11/7) + 225 * sin(2 * t + 11/7) _
   + 219/10 * sin(4 * t + 11/7) + 34/11 * sin(7 * t + 32/7) + 95/6 * sin(8 * t + 14/3)_
   + 83/5 * sin(9 * t + 13/8) + 136/7 * sin(10 * t + 33/7) + 125/3 * sin(11 * t + 33/7)_
   + 7/2 * sin(12 * t + 7/4) + 38/9 * sin(13 * t + 23/5) + 50/3 * sin(14 * t + 14/3) _
   + 3 * sin(16 * t + 8/5) + 159/20 * sin(18 * t + 11/7) + 17/7 * sin(19 * t + 11/7) _
   + 9/4 * sin(20 * t + 17/11) + 55/18 * sin(21 * t + 8/5) + 7/2 * sin(22 * t + 33/7)_
   + 36/5 * sin(23 * t + 33/7) + 4 * sin(24 * t + 5/3) + 21/5 * sin(25 * t + 14/3) _
   + 7/4 * sin(26 * t + 23/5) + 17/4 * sin(28 * t + 13/8) + 17/5 * sin(29 * t + 33/7)_
   + 29/4 * sin(30 * t + 8/5) - 16512/19) _
   * Heaviside(3 * pi - t) * Heaviside( t + pi)) * Heaviside(sqr(sgn(sin( t/2))))

   y= ((-45/7 * sin(11/7 - 28 * t) - 9/5 * sin(11/7 - 20 * t) - 67/8 * sin(14/9 - 13 * t)_
   - 38/11 * sin(11/7 - 10 * t) - 54/5 * sin(11/7 - 7 * t) - 6/5 * sin(11/7 - 6 * t)_
   - 1/8 * sin(1/2 - 4 * t) + 317/6 * sin(t + 11/7) + 67/5 * sin(2 * t + 11/7) _
   + 4/9 * sin(3 * t + 14/3) + 58/7 * sin(5 * t + 11/7) + 7 * sin(8 * t + 8/5)_
   + 17/11 * sin(9 * t + 33/7) + 39/11 * sin(11 * t + 11/7) + 7/2 * sin(12 * t + 11/7)_
   + 56/3 * sin(14 * t + 11/7) + 2/5 * sin(15 * t + 1/4) + 32/3 * sin(16 * t + 11/7)_
   + 81/16 * sin(17 * t + 33/7) + 41/5 * sin(18 * t + 14/3) + 1/12 * sin(19 * t + 9/4)_
   + 11/7 * sin(21 * t + 37/8) + 48/7 * sin(22 * t + 33/7) + 12/7 * sin(23 * t + 8/5) _
   + 16/3 * sin(24 * t + 3/2) + 19/3 * sin(25 * t + 20/13) + 14/5 * sin(26 * t + 3/2) _
   + 3/5 * sin(27 * t + 9/2) + 31/6 * sin(29 * t + 11/7) + 13/8 * sin(30 * t + 13/9) _
   + 5/9 * sin(31 * t + 7/4) + 25/13 * sin(32 * t + 14/3) + sin(33 * t + 8/5)_
   + 1/4 * sin(34 * t + 7/4) + 24/7 * sin(35 * t + 14/3) + 1/4 * sin(36 * t + 23/6) _
   + 13/6 * sin(37 * t + 14/3) + 1/3 * sin(38 * t + 22/5) + 4/9 * sin(39 * t + 41/9) _
   + 1/12 * sin(40 * t + 56/19) + 1/6 * sin(41 * t + 20/13) + 3/4 * sin(42 * t + 17/11)_
   + 1/9 * sin(43 * t + 8/5) + 9/5 * sin(44 * t + 23/5) + 25/13 * sin(45 * t + 14/3) _
   + 5/9 * sin(46 * t + 12/7) + 2/5 * sin(47 * t + 23/5) + 4/9 * sin(48 * t + 22/5) _
   + 11/8 * sin(49 * t + 32/7) + 7/5 * sin(50 * t + 14/3) + 5/6 * sin(51 * t + 8/5) _
   + 6/7 * sin(52 * t + 14/3) + 21/22 * sin(53 * t + 14/3) + 7/6 * sin(54 * t + 3/2) _
   + 53/18 * sin(55 * t + 17/11) + 1/4 * sin(56 * t + 4/3) + 4/3 * sin(57 * t + 14/3) _
   + 1/5 * sin(58 * t + 23/5) + 7/13 * sin(59 * t + 8/5) + 11/10 * sin(60 * t + 14/3) _
   + 1/7 * sin(61 * t + 23/11) + 19/20 * sin(62 * t + 8/5) + 236/3)_
   * Heaviside(87 * pi - t) * Heaviside( t - 83 * pi) + (-1/5 * sin(7/5 - 11 * t) _
   - 69/10 * sin(11/7 - 9 * t) - 17/6 * sin(11/7 - 7 * t) - 51/8 * sin(11/7 - 4 * t) _
   + 11/3 * sin(t + 11/7) + 103/5 * sin(2 * t + 11/7) + 23/11 * sin(3 * t + 8/5) _
   + 31/3 * sin(5 * t + 11/7) + 20/3 * sin(6 * t + 33/7) + 9/2 * sin(8 * t + 11/7) _
   + 11/6 * sin(10 * t + 8/5) + 13/8 * sin(12 * t + 8/5) - 421/2) _
   * Heaviside(83 * pi - t) * Heaviside( t - 79 * pi) + (-1/2 * sin(11/7 - 11 * t) _
   - 9/5 * sin(11/7 - 4 * t) - 113/16 * sin(11/7 - t) + 67/3 * sin(2 * t + 11/7) _
   + 32/9 * sin(3 * t + 11/7) + 8/5 * sin(5 * t + 33/7) + 1/8 * sin(6 * t + 17/11) _
   + 1/7 * sin(7 * t + 33/7) + 8/9 * sin(8 * t + 8/5) + 2/7 * sin(9 * t + 8/5) _
   + 1/9 * sin(10 * t + 14/9) + 3/7 * sin(12 * t + 8/5) + 767/9) _
   * Heaviside(79 * pi - t) * Heaviside( t - 75 * pi) + (-180/7 * sin(11/7 - t) _
   + 103/4 * sin(2 * t + 11/7) + 126/11 * sin(3 * t + 11/7) + 11/7 * sin(4 * t + 8/5) _
   + 5/8 * sin(5 * t + 8/5) + 2/5 * sin(6 * t + 33/7) + 1/5 * sin(7 * t + 8/5) _
   + 2/7 * sin(8 * t + 47/10) + 2/3 * sin(9 * t + 8/5) + 1/5 * sin(10 * t + 5/3) _
   + 1/4 * sin(11 * t + 8/5) + 2/5 * sin(12 * t + 33/7) + 223/4) _
   * Heaviside(75 * pi - t) * Heaviside(t - 71 * pi) + (-5/9 * sin(17/11 - 57 * t)_
   - 2/3 * sin(7/5 - 56 * t) - 43/22 * sin(13/9 - 55 * t) - 8/3 * sin(16/11 - 54 * t)_
   - 3/4 * sin(11/8 - 53 * t) - 3/2 * sin(11/7 - 50 * t) - 5/6 * sin(14/9 - 48 * t) _
   - 18/7 * sin(17/11 - 47 * t) - 5/4 * sin(3/2 - 46 * t) - 11/7 * sin(3/2 - 43 * t) _
   - 10/3 * sin(11/7 - 40 * t) - 120/11 * sin(3/2 - 36 * t) - 11/2 * sin(3/2 - 35 * t) _
   - 61/7 * sin(14/9 - 32 * t) - 44/7 * sin(14/9 - 26 * t) - 7/6 * sin(11/7 - 24 * t) _
   - 1/5 * sin(4/3 - 23 * t) - sin(3/2 - 22 * t) - 72/11 * sin(14/9 - 19 * t) _
   - 44/7 * sin(14/9 - 18 * t) - 13/8 * sin(11/7 - 17 * t) - 99/25 * sin(17/11 - 16 * t) _
   - 71/10 * sin(14/9 - 15 * t) - 116/11 * sin(11/7 - 13 * t) - 88/7 * sin(14/9 - 12 * t)_
   - 53/5 * sin(11/7 - 10 * t) - 96/5 * sin(11/7 - 9 * t) - 81/2 * sin(11/7 - 5 * t) _
   - 77 * sin(11/7 - 3 * t) - 166/3 * sin(11/7 - t) + 971/8 * sin(2 * t + 11/7) _
   + 737/9 * sin(4 * t + 11/7) + 73/6 * sin(6 * t + 11/7) + 19/5 * sin(7 * t + 8/5) _
   + 31/9 * sin(8 * t + 11/7) + 6 * sin(11 * t + 8/5) + 58/7 * sin(14 * t + 8/5) _
   + 7/4 * sin(20 * t + 8/5) + 5/4 * sin(21 * t + 8/5) + 2/7 * sin(25 * t + 7/5) _
   + 15/14 * sin(27 * t + 13/8) + 2/5 * sin(28 * t + 9/2) + 26/3 * sin(29 * t + 8/5) _
   + 5/2 * sin(30 * t + 5/3) + 4/5 * sin(31 * t + 8/5) + 8/5 * sin(33 * t + 11/7) _
   + 9/4 * sin(34 * t + 8/5) + 6/7 * sin(37 * t + 3/2) + 66/13 * sin(38 * t + 13/8) _
   + 5/9 * sin(39 * t + 14/9) + 7/4 * sin(41 * t + 5/3) + 4/9 * sin(42 * t + 9/5) _
   + 1/15 * sin(44 * t + 21/22) + 39/11 * sin(45 * t + 8/5) + 5/6 * sin(49 * t + 13/8) _
   + 2/5 * sin(51 * t + 5/3) + 5/11 * sin(52 * t + 13/9) + 4/3 * sin(58 * t + 5/3) - 1321/7) _
   * Heaviside(71 * pi - t) * Heaviside( t - 67 * pi) + (-1/4 * sin(5/7 - 55 * t) _
   - 5/6 * sin(4/3 - 53 * t) - 3/4 * sin(3/2 - 48 * t) - 17/4 * sin(11/7 - 46 * t) _
   - 28/9 * sin(17/11 - 38 * t) - 32/7 * sin(19/13 - 36 * t) - 75/7 * sin(17/11 - 34 * t)_
   - 19/6 * sin(14/9 - 33 * t) - 18/17 * sin(10/7 - 32 * t) - 86/17 * sin(14/9 - 31 * t)_
   - 41/4 * sin(14/9 - 24 * t) - 31/7 * sin(3/2 - 22 * t) - 1/2 * sin(17/11 - 14 * t) _
   - 12/7 * sin(3/2 - 12 * t) - 174/7 * sin(11/7 - 7 * t) - 191/8 * sin(11/7 - 5 * t) _
   - 716/5 * sin(11/7 - t) + 181/9 * sin(2 * t + 11/7) + 248/5 * sin(3 * t + 11/7)_
   + 389/13 * sin(4 * t + 11/7) + 157/4 * sin(6 * t + 8/5) + 41/4 * sin(8 * t + 8/5) _
   + 59/8 * sin(9 * t + 17/11) + 107/7 * sin(10 * t + 8/5) + 17/11 * sin(11 * t + 8/5) _
   + 32/3 * sin(13 * t + 8/5) + 43/4 * sin(15 * t + 33/7) + 88/7 * sin(16 * t + 11/7) _
   + 51/13 * sin(17 * t + 14/9) + 361/24 * sin(18 * t + 14/3) + 24/5 * sin(19 * t + 17/11) _
   + 44/5 * sin(20 * t + 11/7) + 1/2 * sin(21 * t + 9/7) + 39/5 * sin(23 * t + 47/10) _
   + 13 * sin(25 * t + 8/5) + 3/2 * sin(26 * t + 3/2) + 21/10 * sin(27 * t + 12/7) _
   + 14/13 * sin(28 * t + 31/7) + 106/21 * sin(29 * t + 11/7) + 34/33 * sin(30 * t + 16/9) _
   + 18/5 * sin(35 * t + 8/5) + 5/6 * sin(37 * t + 33/16) + 7/2 * sin(39 * t + 5/3) _
   + 4 * sin(40 * t + 11/7) + 1/7 * sin(41 * t + 7/2) + 7/2 * sin(42 * t + 37/8) _
   + 6/5 * sin(43 * t + 3/2) + 18/5 * sin(44 * t + 11/7) + 3/5 * sin(45 * t + 9/7)_
   + 13/12 * sin(47 * t + 14/3) + 3/8 * sin(49 * t + 59/13) + 19/7 * sin(50 * t + 8/5) _
   + 1/10 * sin(51 * t + 14/9) + 3/4 * sin(52 * t + 41/9) + 8/3 * sin(54 * t + 47/10) _
   + 5/8 * sin(56 * t + 8/5) + 1/3 * sin(57 * t + 14/3) - 92/7) _
   * Heaviside(67 * pi - t) * Heaviside(t - 63 * pi) + (79/6 * sin( t + 33/7) _
   + 200/9 * sin(2 * t + 11/7) + 55/8 * sin(3 * t + 8/5) + 2/7 * sin(4 * t + 13/8) _
   + 3113/5) * Heaviside(63 * pi - t) * Heaviside( t - 59 * pi) + (-54/7 * sin(11/7 -t) _
   + 159/7 * sin(2 * t + 11/7) + 89/11 * sin(3 * t + 11/7) + 3279/5)_
   * Heaviside(59 * pi - t) * Heaviside( t - 55 * pi) + (29/6 * sin(t + 11/7) _
   + 123/5 * sin(2 * t + 11/7) + 3092/5) * Heaviside(55 * pi - t) * Heaviside( t - 51 * pi)_
   + (-41/10 * sin(11/7 -t) + 124/5 * sin(2 * t + 11/7) + 21/4 * sin(3 * t + 8/5) _
   + 4663/11) * Heaviside(51 * pi -t) * Heaviside(t - 47 * pi) + (39/5 * sin(t + 33/7) _
   + 167/9 * sin(2 * t + 11/7) + 15/2 * sin(3 * t + 11/7) + 1772/5) _
   * Heaviside(47 * pi - t) * Heaviside( t - 43 * pi) + (-233/13 * sin(11/7 - t) _
   + 23/9 * sin(2 * t + 11/7) + 25/2 * sin(3 * t + 11/7) + 7124/17)_
   * Heaviside(43 * pi - t) * Heaviside( t - 39 * pi) + (-5/2 * sin(11/7 - 6 * t) _
   - 7/2 * sin(11/7 - 4 * t) - 8/5 * sin(11/7 - t) + 49/2 * sin(2 * t + 11/7) _
   + 1/6 * sin(3 * t + 11/7) + sin(5 * t + 11/7) - 46/7) _
   * Heaviside(39 * pi - t) * Heaviside( t - 35 * pi) + (-1/8 * sin(10/7 - 4 * t) _
   + 7/5 * sin(t + 8/5) + 407/17 * sin(2 * t + 11/7) + 11/10 * sin(3 * t + 8/5) _
   + 239/3) * Heaviside(35 * pi - t) * Heaviside( t - 31 * pi) + (208/19 * sin(t + 33/7)_
   + 163/8 * sin(2 * t + 11/7) + 63/8 * sin(3 * t + 8/5) + 14/15 * sin(4 * t + 8/5) + 587/12) _
   * Heaviside(31 * pi - t) * Heaviside(t - 27 * pi) + (-1/11 * sin(2/3 - 29 * t)_
   - 8/7 * sin(14/9 - 28 * t) - 50/11 * sin(3/2 - 25 * t) - 491/12 * sin(14/9 - 8 * t) _
   - 11 * sin(3/2 - 7 * t) - 352/27 * sin(11/7 - 3 * t) + 79/7 * sin(t + 33/7) _
   + 14 * sin(2 * t + 11/7) + 15/2 * sin(4 * t + 8/5) + 41/10 * sin(5 * t + 33/7) _
   + 9/4 * sin(6 * t + 33/7) + 150/7 * sin(9 * t + 8/5) + 173/8 * sin(10 * t + 13/8)_
   + 13/3 * sin(11 * t + 14/3) + 46/3 * sin(12 * t + 8/5) + 14/3 * sin(13 * t + 12/7) _
   + 11/3 * sin(14 * t + 13/8) + 1/3 * sin(15 * t + 27/11) + 5/7 * sin(16 * t + 7/4)_
   + 51/8 * sin(17 * t + 13/8) + 37/9 * sin(18 * t + 7/4) + 6 * sin(19 * t + 5/3) _
   + 5/2 * sin(20 * t + 5/3) + 4/7 * sin(21 * t + 23/5) + 43/42 * sin(22 * t + 5/3) _
   + 2/7 * sin(23 * t + 7/2) + 11/6 * sin(24 * t + 11/7) + 4/9 * sin(26 * t + 10/7)_
   + 1/4 * sin(27 * t + 23/5) + 1/5 * sin(30 * t + 15/7) + 25/13 * sin(31 * t + 7/4) _
   + 5/7 * sin(32 * t + 9/5) - 1072/5) * Heaviside(27 * pi - t) * Heaviside( t - 23 * pi)_
   + (-4/5 * sin(13/9 - 24 * t) - 51/8 * sin(3/2 - 18 * t) - 27/7 * sin(13/9 - 17 * t) _
   - 23/3 * sin(14/9 - 11 * t) - 69/7 * sin(19/13 - 10 * t) - 227/8 * sin(14/9 - 9 * t) _
   - 1699/7 * sin(11/7 - t) + 1891/8 * sin(2 * t + 8/5) + 1513/24 * sin(3 * t + 8/5) _
   + 12 * sin(4 * t + 33/7) + 95/4 * sin(5 * t + 8/5) + 155/4 * sin(6 * t + 8/5) _
   + 292/7 * sin(7 * t + 8/5) + 170/13 * sin(8 * t + 8/5) + 38/3 * sin(12 * t + 8/5)_
   + 29/7 * sin(13 * t + 7/4) + 94/9 * sin(14 * t + 13/8) + 5/7 * sin(15 * t + 25/13) _
   + 32/11 * sin(16 * t + 11/7) + 9/10 * sin(19 * t + 8/5) + 5/2 * sin(20 * t + 7/4)_
   + 31/5 * sin(21 * t + 5/3) + 8/7 * sin(22 * t + 13/7) + 11/5 * sin(23 * t + 8/5) _
   + 2/3 * sin(25 * t + 13/8) + 9/10 * sin(26 * t + 8/5) + 5/6 * sin(27 * t + 9/2) _
   + 17/6 * sin(28 * t + 5/3) + 2/7 * sin(29 * t + 34/11) + 1537/7) _
   * Heaviside(23 * pi - t) * Heaviside( t - 19 * pi) + (-59/4 * sin(17/11 - 10 * t) _
   - 30 * sin(14/9 - 9 * t) - 968/19 * sin(11/7 - 5 * t) - 393/14 * sin(11/7 - 4 * t)_
   - 302/9 * sin(11/7 - 3 * t) - 98/5 * sin(11/7 - 2 * t) - 2052/11 * sin(11/7 - t) _
   + 30 * sin(6 * t + 8/5) + 53/4 * sin(7 * t + 8/5) + 127/11 * sin(8 * t + 8/5) _
   + 37/6 * sin(11 * t + 33/7) + 86/5 * sin(12 * t + 8/5) + 3748/9) _
   * Heaviside(19 * pi - t) * Heaviside(t - 15 * pi) + (-2/5 * sin(26/25 - 79 * t) _
   - 4/7 * sin(6/11 - 78 * t) - 3/2 * sin(7/6 - 72 * t) - 5/3 * sin(1/3 - 71 * t) _
   - 13/4 * sin(15/14 - 70 * t) - 9/7 * sin(13/9 - 67 * t) - 2/7 * sin(7/5 - 65 * t) _
   - 1/2 * sin(16/17 - 63 * t) - 3/2 * sin(10/11 - 62 * t) - 3/2 * sin(9/10 - 61 * t) _
   - sin(5/4 - 59 * t) - 5/8 * sin(3/7 - 58 * t) - 19/5 * sin(11/9 - 57 * t)_
   - 19/5 * sin(4/3 - 55 * t) - 64/13 * sin(7/6 - 51 * t) - 8/7 * sin(1/2 - 50 * t)_
   - 23/6 * sin(7/5 - 48 * t) - 43/5 * sin(9/7 - 46 * t) - 29/4 * sin(5/4 - 44 * t)_
   - 3 * sin(5/4 - 43 * t) - 13/3 * sin(9/7 - 41 * t) - 41/7 * sin(15/16 - 40 * t) _
   - 31/3 * sin(9/7 - 39 * t) - 93/10 * sin(4/3 - 33 * t) - 47/6 * sin(7/6 - 32 * t) _
   - 21/4 * sin(4/3 - 31 * t) - 11/2 * sin(7/5 - 29 * t) - 37/2 * sin(11/8 - 27 * t) _
   - 92/31 * sin(1 - 26 * t) - 42/5 * sin(5/4 - 23 * t) - 201/8 * sin(11/8 - 22 * t)_
   - 55/9 * sin(9/7 - 21 * t) - 201/10 * sin(3/2 - 17 * t) - 47/4 * sin(3/2 - 14 * t) _
   - 41/5 * sin(3/2 - 13 * t) - 4 * sin(14/9 - 8 * t) - 5/2 * sin(4/3 - 7 * t) _
   - 47/5 * sin(16/11 - 6 * t) - 69/14 * sin(11/7 - 5 * t) - 225/2 * sin(11/7 - 2 * t) _
   - 2064/7 * sin(11/7 - t) + 9/4 * sin(28 * t) + 7/8 * sin(52 * t) _
   + 332/7 * sin(3 * t + 8/5) + 71/7 * sin(4 * t + 12/7) + 3/8 * sin(9 * t + 25/7) _
   + 55/7 * sin(10 * t + 5/3) + 30/7 * sin(11 * t + 5/3) + 29/4 * sin(12 * t + 8/5) _
   + 30/7 * sin(15 * t + 11/7) + 47/7 * sin(16 * t + 10/7) + 295/14 * sin(18 * t + 9/5) _
   + 526/9 * sin(19 * t + 7/4) + 211/9 * sin(20 * t + 11/6) + 31/5 * sin(24 * t + 12/7) _
   + sin(25 * t + 35/12) + sin(30 * t + 3/2) + 41/4 * sin(34 * t + 12/7) _
   + 9/5 * sin(35 * t + 14/3) + 30/7 * sin(36 * t + 9/2) + 67/4 * sin(37 * t + 11/6)_
   + 21/4 * sin(38 * t + 25/13) + 7/2 * sin(42 * t + 13/8) + 67/33 * sin(45 * t + 3/5) _
   + 12/7 * sin(47 * t + 1/2) + 1/3 * sin(49 * t + 6/7) + 7/9 * sin(53 * t + 41/9) _
   + 7/9 * sin(54 * t + 4/3) + 11/5 * sin(56 * t + 9/7) + 4/9 * sin(60 * t + 8/7) _
   + 1/10 * sin(64 * t + 14/15) + 10/11 * sin(66 * t + 16/11) + 2/3 * sin(68 * t + 16/7) _
   + 13/9 * sin(69 * t + 7/4) + 7/5 * sin(73 * t + 23/12) + 4/7 * sin(74 * t + 17/4)_
   + 1/4 * sin(75 * t + 53/18) + 10/7 * sin(76 * t + 2) + 2/9 * sin(77 * t + 22/5) _
   + 3/8 * sin(80 * t + 5/3) + 5803/11) * Heaviside(15 * pi - t) * Heaviside( t - 11 * pi) _
   + (-6/5 * sin(3/2 - 34 * t) - 2/3 * sin(14/9 - 31 * t) - 14/9 * sin(20/13 - 30 * t) _
   - 8/5 * sin(3/2 - 25 * t) - 8/5 * sin(16/11 - 24 * t) - 2 * sin(10/7 - 18 * t)_
   - 112/9 * sin(3/2 - 17 * t) - 53/7 * sin(3/2 - 16 * t) - 85/14 * sin(14/9 - 12 * t)_
   - 69/4 * sin(14/9 - 10 * t) - 30/7 * sin(14/9 - 9 * t) + 743/8 * sin(t + 33/7)_
   + 181 * sin(2 * t + 8/5) + 139/5 * sin(3 * t + 13/8) + 371/4 * sin(4 * t + 8/5) _
   + 125/9 * sin(5 * t + 5/3) + 312/7 * sin(6 * t + 8/5) + 97/6 * sin(7 * t + 13/8)_
   + 175/8 * sin(8 * t + 8/5) + 41/5 * sin(11 * t + 8/5) + 2/3 * sin(13 * t + 31/15)_
   + 146/7 * sin(14 * t + 5/3) + 79/5 * sin(15 * t + 5/3) + 5 * sin(19 * t + 5/3) _
   + 22/3 * sin(20 * t + 5/3) + 9/7 * sin(21 * t + 9/5) + 4/9 * sin(22 * t + 27/14) _
   + 2 * sin(23 * t + 12/7) + 25/12 * sin(26 * t + 7/4) + 9/8 * sin(27 * t + 7/4) _
   + 7/4 * sin(28 * t + 7/4) + 28/9 * sin(29 * t + 12/7) + 1/3 * sin(32 * t + 81/40) _
   + 41/9 * sin(33 * t + 12/7) + 713/5) * Heaviside(11 * pi - t) * Heaviside( t - 7 * pi) _
   + (-19/5 * sin(3/2 - 30 * t) - 31/3 * sin(14/9 - 20 * t) - 8/7 * sin(4/3 - 19 * t) _
   - 117/5 * sin(11/7 - 8 * t) - 241/4 * sin(11/7 - 6 * t) - 45/8 * sin(14/9 - 4 * t) _
   + 551/7 * sin(t + 33/7) + 3297/17 * sin(2 * t + 11/7) + 302/5 * sin(3 * t + 33/7)_
   + 103/6 * sin(5 * t + 11/7) + 118/5 * sin(7 * t + 11/7) + 82/7 * sin(9 * t + 8/5) _
   + 2/7 * sin(10 * t + 10/3) + 223/7 * sin(11 * t + 8/5) + 5/2 * sin(12 * t + 9/5) _
   + 33/2 * sin(13 * t + 13/8) + 65/4 * sin(14 * t + 8/5) + 57/5 * sin(15 * t + 13/8) _
   + 32/5 * sin(16 * t + 13/8) + 25/7 * sin(17 * t + 8/5) + 1/4 * sin(18 * t + 10/11) _
   + 5/3 * sin(21 * t + 3/2) + 29/5 * sin(22 * t + 11/7) + 9/7 * sin(23 * t + 11/6) _
   + 11/2 * sin(24 * t + 33/7) + 17/4 * sin(25 * t + 11/7) + 17/4 * sin(26 * t + 13/8) _
   + 34/7 * sin(27 * t + 17/10) + 2/5 * sin(28 * t + 12/5) + 21/8 * sin(29 * t + 7/5)_
   + 17/4 * sin(31 * t + 14/3) + 23/6 * sin(32 * t + 11/7) - 821/3) _
   * Heaviside(7 * pi - t) * Heaviside( t - 3 * pi) + (-35/9 * sin(3/2 - 30 * t)_
   - 1/9 * sin(7/5 - 28 * t) - 29/8 * sin(3/2 - 25 * t) - 3/5 * sin(4/3 - 23 * t) _
   - 7/3 * sin(3/2 - 20 * t) - 11/8 * sin(14/9 - 19 * t) - 15/4 * sin(14/9 - 15 * t)_
   - 117/7 * sin(11/7 - 7 * t) - 57/10 * sin(14/9 - 6 * t) + 11/8 * sin(t + 7/5) _
   + 679/8 * sin(2 * t + 11/7) + 148/3 * sin(3 * t + 11/7) + 115/4 * sin(4 * t + 11/7)_
   + 7/5 * sin(5 * t + 4/3) + 3/5 * sin(8 * t + 177/44) + 18/5 * sin(9 * t + 23/5) _
   + 101/17 * sin(10 * t + 14/3) + 85/4 * sin(11 * t + 33/7) + 32/7 * sin(12 * t + 13/8) _
   + 19/4 * sin(13 * t + 8/5) + 23/3 * sin(14 * t + 33/7) + 13/3 * sin(16 * t + 11/7) _
   + 33/5 * sin(17 * t + 33/7) + 31/7 * sin(18 * t + 8/5) + 18/5 * sin(21 * t + 11/7) _
   + 24/5 * sin(22 * t + 8/5) + 27/8 * sin(24 * t + 20/13) + 41/10 * sin(26 * t + 11/7) _
   + 4/5 * sin(27 * t + 8/5) + 7/4 * sin(29 * t + 14/9) + 5/7 * sin(31 * t + 12/7) - 3065/7) _
   * Heaviside(3 * pi - t) * Heaviside( t + pi)) * Heaviside(sqr(sgn( sin( t/2))))
   plot 450+x/10,300+y/10

next t
locate 5,2 : ? "Une touche pour sortir ..."

repeat : until len(inkey())

rem ================================================================================================
' la fonction de Heaviside (egalement fonction echelon unite, fonction marche d'escalier),
' du nom de Oliver Heaviside, est la fonction indicatrice de R+.
' C'est donc la fonction H (discontinue en 0) prenant la valeur 1 pour tous les reels positifs et
' la valeur 0 pour les reels strictement negatifs
FUNCTION Heaviside(h)
   if h < 0 then return 0 else return 1
END_FUNCTION
rem ================================================================================================

Spoiler:

Sujet: Re: Les programmes de papydall Sam 28 Nov 2020 - 8:26

Très réussi ce crocodile !

Merci papydall Smile

Sujet: vivement 2021 Sam 28 Nov 2020 - 10:10

Alors là ...

CHAPEAU

YAPUKA l'animer et lui construire une famille

+ Je vous présente mes meilleurs vœux npour 2021

(Au moins cette fois-ci, je ne serai pas en retard)

Spoiler:

Nombre de messages : 2709 Date d'inscription : 13/09/2009

Ce sont vraiment des vœux d'actualité !
lol!

» Welcome Papydall
» Bienvenue à PRO Positif Plus !
» Lister les polices disponibles sur votre ordinateur
» Pour papydall
» Les Papillons de Papydall