1
$\begingroup$

I have the following command in Mathematica Developer Cloud:

ClearAll["Global`*"];
Remove["Global`*"];

{Z, Y} = 
  AsymptoticDSolveValue[
    {y'''[t] == (c1 - t^2)*z[t], 
     z'''[t] == (-c2 - t^2)*y[t], 
     y[0] == 0, y'[0] == 1, y''[0] == 1, 
     z[0] == 0, z'[0] == 1, z''[0] == 1}, 
    {z, y}, {t, 0, 10}]

WorkingPrecision -> 30

Plot[Evaluate[{Z, Y} /. c1 -> 1 /. c2 -> 1], {t, -7, 7}, 
  PlotLegends -> {"z[t]", "y[t]"}]

TexForm[output]

This outputs a plot and the series functions. How can I generate the series functions in Tex format also? I tried TexForm, but I am not sure it helped.

$\endgroup$
  • $\begingroup$ The output is not only a plot, but also series functions. It is those that are needed in Tex form. Thanks for pointing this out. I will clarify that in the OP. $\endgroup$ – user287546 Apr 10 '18 at 11:12
  • $\begingroup$ TeXForm works fine for me. If it doesn't work for you, please show a complete example. $\endgroup$ – Szabolcs Apr 10 '18 at 12:26
  • $\begingroup$ ClearAll["Global*"]; Remove["Global*"];(* Clear and Remove all variables *) {Z, Y} = AsymptoticDSolveValue[{ y'''[t] == (c1 - t^2)*z[t], z'''[t] == (-c2 - t^2)*y[t], y[0] == 0, y'[0] == 1, y''[0] == 1, z[0] == 0, z'[0] == 1, z''[0] == 1}, {z, y}, {t, 0, 10}] WorkingPrecision -> 30 Plot[Evaluate[{Z, Y} /. c1 -> 1 /. c2 -> 1], {t, -7, 7}, PlotLegends -> {"z[t]", "y[t]"}] TexForm $\endgroup$ – user287546 Apr 11 '18 at 10:18
  • $\begingroup$ I can't read your code because it is not formatted correctly. It should be included in the main post (not a comment) and placed in a code block. However, I can see that you misspelt TeXForm (capital X) and that you did not actually apply it at all (it's a function). $\endgroup$ – Szabolcs Apr 11 '18 at 12:00
  • 2
    $\begingroup$ Your OP still has Texform instead of TeXForm. You also don't include the definition of output. $\endgroup$ – Carl Woll Apr 11 '18 at 15:30