Теория

Математический алгоритм программы
Исходник  Matcad 14 -загрузить

Программа
Исходник программы -загрузить

global Boot,a, n1,t0,t,R,n

on beginsprite me

  my = sprite(me.spriteNum).member

  my.resetWorld()

  Boot =0

  a=0

  t0=0

  t =0

  n =0

  my.newTexture("backdrop", #fromCastmember, member("sky"))

  my.camera(1).insertBackdrop(1,my.texture("backdrop"), point(0,0), 0)

  ------------------------------------------------------------------------

  set the url of member "Trousers"="Trousers.swa"

  ------------------------------------------------------------------------

  --Установка начальных условий--------------------------

  member("my").model("Sphere01"). transform.identity()

  member("my").model("Sphere01").transform.translate(0,0,0 )

  -------------------------------------------------

end

on exitFrame me

  --set the url of member "Trousers"="Trousers.swa"

  if (a=1) then

    --музыка

    myButton

    --------------------------------------------

    --n1 =n1 + 1--счетчик

    --------------------------------------------

    --Алгорим обработки

    Round

    --Шаг за шагом

    --1 шаг

  end if

  --Sphere01

  go the frame

end

-- создания обработки данных

--Button

on  myButton

  if  Boot=0 then

    --set the url of member "Trousers"="Trousers.swa"

    play (member "Trousers")

    Boot=1

  end if

end  --myButton

----

on  Round

  ------------------------------------------------------------

  -----------------------------------------------------

  ---------------------------------------------

  -----------------------------------------

  --t = t0+(n1-1)*0.35 --сущность всей системы

  --Где

  --h(n)-h(0) =h(n)-h(n-1) =h(n+1)-h(n) =1 --приращение

  --h0-начальное условие

  -- n1 - счетчик

  -----------------------------------------

  ---------------------------------------------

  -----------------------------------------------------

  n =n + 1--счетчик

  t =0+n*0.1--

  --power(base, exponent)

  --power(2,3)--возведениие в степень b число а  например 222=8

  --e=2.71828

  --abs

  --put sqrt(25.0)=5

  -------------------------------------------------------------------------------------------------------------

  E=30*(power(2.718,-t/20))

  u=aTan(-0.055)

  If sin(t+u)  >= 0 then

    member("my").model("Sphere01").translate(0,1,1*E*(1*cos(t)-(1/20)*1*sin(t)))

    ----------------------------------------------------------------------------------------------------------------------------

  else

    member("my").model("Sphere01").translate(0,1,-1*E*(1*cos(t)-(1/20)*1*sin(t)))

  end if

end  -- Round

--member("my").model("SphereZZ"&SN&n).transform.position

Назад