Disegnare funzione con mathematica

[Pereira1]

Avevo postato questa richiesta in Ingegneria ma forse qui è più opportuno!
Dovrei disegnare la seguente funzione con Mathematica, su uno stesso grafico, ma non riesco.

(* DATI *)
Clear["Global`*"]
Fi = .1;
do = .18;
Ao = Pi*do^2/4;
Cd = .61;
g = 9.81;
A = 5;

hss = (Fi/(Ao*Cd))^2*(1/(2*9.81));

F[t_] := {
  If[t < 10, hSP = hss, hSP = 2*hss];
  DSolve[{h'[x] == (hSP - h[x])/A, h[10] == hss}, h, x]
  }
Plot[F[t],{t,0,70}].

Potete aiutarmi?

[yoshiharu]

"Pereira":
Plot[F[t],{t,0,70}].
[/code]

$F[t]$ e' il risultato di DSolve, quindi e' una lista, e contiene (a un certo livello) una regola di sostituzione. Per plottare devi usare qualcosa tipo

Plot[h[t] /. Flatten[F[t]],{t,0,70}]

[Pereira1]

Grazie!!! Sei stato gentilissimo, non conoscevo la funzione Flatten. Ora è tutto ok!