Separate input/output files
- To: mathgroup at smc.vnet.net
- Subject: [mg87076] Separate input/output files
- From: Narasimham <mathma18 at hotmail.com>
- Date: Mon, 31 Mar 2008 02:03:43 -0500 (EST)
A typical Mathematica notebook contains input and output together.
With the objective of separating input and output for convenience and
also eliminating repeated input commands and statements, I like to
write two separate smaller files somewhat as under:
------
Harmonic.in
Constant [{yi,ydi,w,tmax} = { 1.,.2, 1.,8.}];
NDSolve[{Y''[t]+w^2 Y[t]==0, Y[0]==yi,Y'[0]==ydi},Y,{t,0,tmax}];
y[t_]= Y[t] /.First[%] ;
(* above two lines to be labelled ODE *)
Plot[y'[t],{t,0,tmax}];
(* above line to be labelled PLT*)
yi=2.; w=7. ; tmax= 4 ;
Table[ {t,y[t],y'[t]}, {t,0,tmax,tmax/15.}]//ColumnForm
(* above line to be labelled TABL*)
Plot[y[t],{t,0,tmax}];
(* Only tmax = 4 takes effect but not yi and w, the quantities inside
NDSolve curly barckets, do not take effect *)
------------
Harmonic.run
yi = 1.6; w = 2; tmax= 4.;
ODE
PLT
ydi = 2.; w = 1.2; tmax= 2.5 ;
ODE
PLT
TABL
---------------
Harmonic.out
(* Contains output for ODE, PLT,TAB for changed input parameters,
Harmonic.run lines echoed before respective outputs *)
-------------
How to make such a file separation possible? Such separation I believe
is convenient for dynamical simulation exercises.
Best Regards,
Narasimham