Exportando funciones de interpolación a excel

Haz todo lo posible por comprender el código bien antes de adaptarlo a tu trabajo si tdeseas aportar algo puedes compartirlo con nosotros.

Solución:

Las funciones de interpolación que NDSolve los retornos contienen una cuadrícula irregular que refleja qué puntos se usaron para calcular la solución. No siempre, pero a menudo esta cuadrícula es una mejor opción que una cuadrícula regular como la que generaría con Table al exportar. Así es como puede exportar los datos como NDSolve lo generó:

a = 10^-2;
eq1 = hf'[t] == -a*(hf[t] - hs[t]), hs'[t] == a*(hf[t] - hs[t]), 
   hf[0] == 20, hs[0] == 0;
sol1 = NDSolve[eq1, hf, hs, t, 0, 100]

hfsol = hf /. First[sol1]
hssol = hs /. First[sol1]

data = #, hfsol[#], hssol[#] & /@ First[[email protected]"Coordinates"]
Export[FileNameJoin[$UserDocumentsDirectory, "sol.xlsx"], data]

a = 10^-2;
eq1 = hf'[t] == -a*(hf[t] - hs[t]), hs'[t] == a*(hf[t] - hs[t]),  hf[0] == 20, hs[0] == 0;
sol1 = NDSolve[eq1, hf, hs, t, 0, 100]

Ahora:

Plot[hf[t], hs[t] /. sol1, t, 0, 100]

Export["c:\test.xls", Table[Flatten[t, hf[t], hs[t] /. sol1], t, 0, 100]]

---

---

Utiliza Nuestro Buscador