syntax problem?
- To: mathgroup@smc.vnet.net
- Subject: [mg12341] syntax problem?
- From: phpcp <phpcp@csv.warwick.ac.uk>
- Date: Thu, 7 May 1998 18:52:27 -0400
- Organization: University of Warwick, UK
Hi!
The following code is simple but doesnt seem to work! Please could
someone help.
cheers,
Sanjay.
\(chi0[t_]\ := \ t^2\ + \ 1; \n
a0[t_]\ := \
3\ t\ /\((2\ \((chi0[t])\)^3)\)\ - \ 3/\((2\ \((chi0[t])\)^2)\)\
- \
3/\((4\ chi0[t])\); \n
f1[t_]\ := \ chi0[t]*\((2*a0[t]*chi0[t]\ + 1)\); \n
f2[t_]\ := \ 3*\((2*f1[t]\ + \ 1)\); \n
g1[t_, n_]\ := \
f1[t]\ - \ \((chi0[t])\)^2\ \((4\ a0[t]\ + \ n^2)\)\
f1[t]/f2[t]; \n
G2[t_, n_] = D[g1[t, n], t]; \n
g2[t_, n_]\ := \ \((G2[x, n])\) /. x\ -> \ t; \n
h1[t_, n_]\ := \ n^2\ \((a0[t]\ \((chi0[t])\)^2\ + \ chi0[t])\);
\n
h2[t_, n_]\ := \ \((chi0[t])\)^2\ n^2\ f1[t]/f2[t]; \n
H3[t_, n_]\ := \ D[h2[t, n], t]; \n
h3[t_, n_]\ := \ \((H3[x, n])\) /. \ x\ -> \ t; \n
DSolve[\(chi1'\)[t]\ + \ n^2\ chi1[t]*g1[t, n]\ + \ g2[t, n]\ - \
h1[t, n]\ - \ n^2\ h2[t, n]\ - \ h3[t, n]\ == \ 0, \
chi1[t],
t]; \)], "Input"]
},
FrontEndVersion->"X 3.0",
ScreenRectangle->{{0, 1152}, {0, 900}}, WindowSize->{520, 563},
WindowMargins->{{202, Automatic}, {Automatic, 127}} ]
(***********************************************************************
Cached data follows. If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at the
top of the file. The cache data will then be recreated when you save
this file from within Mathematica.
***********************************************************************)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[1709, 49, 880, 17, 251, "Input"] }
]
*)
(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)