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$

closed as off-topic by Szabolcs, Carl Woll, m_goldberg, Nasser, Henrik Schumacher Apr 12 '18 at 6:26

This question appears to be off-topic. The users who voted to close gave these specific reasons:

  • "This question cannot be answered without additional information. Questions on problems in code must describe the specific problem and include valid code to reproduce it. Any data used for programming examples should be embedded in the question or code to generate the (fake) data must be included." – m_goldberg, Nasser, Henrik Schumacher
  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – Szabolcs, Carl Woll
If this question can be reworded to fit the rules in the help center, please edit the question.

  • $\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