Università di Bologna - Facoltà di Ingegneria II - Sede di Forlì

Fisica Generale Interattiva prof. Domenico Galli

Caduta di una sfera in un fluido viscoso (resistenza viscosa)

Punto materiale sferico soggetto alla forza peso, alla forza idrostatica e alla resistenza viscosa esercitata dal fluido

Soluzione mediante il metodo di Runge-Kutta del IV ordine

• Densità sfera = 7860 kg/m³, Raggio sfera = 0.001 m, Densità fluido = 963 kg/m³, Viscosità fluido = 1.11 kg m^-1 s^-1, Altezza iniziale = 0 m, Intervallo di tempo = 0.007 s, Intervallo di scansione = 7 · 10^-5 s (pallino di ferro che cade nell'olio di ricino).

    for(i=0;t<tMax;)
    {
      // algoritmo di Runge-Kutta IV ordine
      k1=v*deltaT;
      j1=a*deltaT;
      vm1=v+j1/2;
      am1=-gamma*g-beta*(v+j1/2);
      k2=vm1*deltaT;
      j2=am1*deltaT;
      vm2=v+j2/2;
      am2=-gamma*g-beta*(v+j2/2);
      k3=vm2*deltaT;
      j3=am2*deltaT;
      vf=v+j3;
      af=-gamma*g-beta*(v+j3);
      k4=vf*deltaT;
      j4=af*deltaT;
      z=z+(k1+2*k2+2*k3+k4)/6;
      v=v+(j1+2*j2+2*j3+j4)/6;
      a=-gamma*g-beta*v;
      // fine algoritmo di Runge-Kutta IV ordine
      t=t+deltaT;
      i++;
      if(t>tMax)break;
      // se ci sono > 10000 punti, memorizza 1 punto ogni storePeriod punti
      if(i%storePeriod==0)
      {
        lzt.add(new Point2D.Float((float)t,(float)z));
        lvt.add(new Point2D.Float((float)t,(float)v));
        lat.add(new Point2D.Float((float)t,(float)a));
        lvz.add(new Point2D.Float((float)z,(float)v));
      }
    }