Anteprima
Vedrai una selezione di 1 pagina su 4
Program balistica Pag. 1
1 su 4
D/illustrazione/soddisfatti o rimborsati
Disdici quando
vuoi
Acquista con carta
o PayPal
Scarica i documenti
tutte le volte che vuoi
Estratto del documento

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)

IMPLICIT NONE

Dettagli
Publisher
A.A. 2015-2016
4 pagine
SSD Scienze matematiche e informatiche INF/01 Informatica

I contenuti di questa pagina costituiscono rielaborazioni personali del Publisher Totpic di informazioni apprese con la frequenza delle lezioni di Laboratorio di calcolo numerico e informatica e studio autonomo di eventuali libri di riferimento in preparazione dell'esame finale o della tesi. Non devono intendersi come materiale ufficiale dell'università Università degli Studi di Roma Tor Vergata o del prof Berrilli Francesco.