vuoi
o PayPal
tutte le volte che vuoi
PROGRAM balistica
IMPLICIT NONE
REAL,EXTERNAL::accx,accy
REAL::h0,alfa,v0,vx,vy,df,hf,x,y,m,p,dt,t
REAL,DIMENSION(3):: ro =(/0.0,1.275E+03,1.494E+03/)
REAL,DIMENSION(3):: ris
REAL,DIMENSION(5):: massa =(/.2,.225,.250,.275,.300/)
INTEGER::i,j
DO i=1,5
m=massa(i)
DO j=1,3
t=0
dt=0
x=0
y=1.5
alfa=0
v0=100
vx=v0*cos(alfa)
vy=v0*sin(alfa)
p=ro(j)
DO WHILE(y>0)
vx=vx+accx(vx,m,p)*dt
x=x+vx*dt
vy=vy+accy(vy,m,p)*dt
y=y+vy*dt
dt=1.0E-04
t=t+dt
END DO
ris(j)=x
END DO
WRITE (*,*) m,ris(1),ris(2),ris(3)
END DO
END PROGRAM balistica
REAL FUNCTION f(v,p)
IMPLICIT NONE
REAL,PARAMETER::r=6.0E-03,cd=1.387E-02
REAL,INTENT(IN)::v,p
f=(3.14/4)*(r**2)*cd*p*(v**2)
END FUNCTION
REAL FUNCTION accx(vx,m,p)