Физика

Химия

Биология

Техника и    технологии

Программа исходник
Загрузить

global a,n,n1

property s,t,zmy,xmy

on beginsprite me

  myMember = sprite(me.spriteNum).member

  myMember.resetWorld()

  --Начальные данные

  s=0

  xmy=0

  a=0

  h=1

  n=0

  n1=0

end

on exitFrame me

  if (a=1) then

    h=1 --[метр]

    U0=18 --[метр]/cек

    u=45

    Ugol=PI/4.0

    x0=0

    If (xmy>=0) AND (xmy<=74) then

      a1=-9.8/(2*U0*U0*(cos(Ugol)*cos(Ugol)))

      b1=((sin (Ugol))/cos(Ugol))

      zmy=a1*((xmy+b1/(2*a1)))*((xmy+b1/(2*a1)))-(b1*b1/(4*a1))  

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

      member("my6").model("Sphere02").translate(U0*cos(Ugol ) ,0,(xmy)*(sin(Ugol))/cos(Ugol)+2*zmy,#world)

      n=n+1

      --xmy =x0+nh

      --nh

      -- xmy = n

      xmy =x0+n

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

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

      --xmy=xmy +1--шаг пути

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

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

    end if --xmy<=74

    If (xmy>=75 ) AND (xmy<=150) then

       a1=-9.8/(2*U0/1.5*U0/1.5*(cos(Ugol)*cos(Ugol)))

       b1=((sin (Ugol))/cos(Ugol))

      zmy=a1*((xmy-75+b1/(2*a1)))*((xmy-75+b1/(2*a1)))-(b1*b1/(4*a1))

      member("my6").model("Sphere02").translate(U0/1.5*cos(Ugol ) ,0,(xmy-75)*(sin(Ugol))/cos(Ugol)+2*zmy,#world)

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

      n1=n1+1

      --xmy =x0+nh

      xmy =75+n1

    end if --xmy<=150

  end if --a=1

  go the frame

end