/* --------------------------------- */
/* save as fb.h */
/* --------------------------------- */
#define LOOP 2*300
/* --------------------------------- */
double s = 1./2.;
/* --------------------------------- */
double F(
double t)
{
return( (t) );
}
char Feq[] = "t";
/* --------------------------------- */
double dF(
double t)
{
return( (1.) );
}
char dFeq[] = "1";
/* --------------------------------- */
/* ---------------------------------
Laplace transform of F(t)
--------------------------------- */
double f(
double s)
{
return((1./(s*s)));
}
char feq[] = "(1/s^2)";
/* --------------------------------- */
double f_s(
double s)
{
return( (s*(1./(s*s))-F(0)));
}
char f_seq[] = "(s)*(1/s^2)-0";
char f2seq[] = "1/(s)";
/* ---------------------------------- */
/* ---------------------------------- */
double b = 100.; char beq[] = "100";
double a = 0.; char aeq[] = "0";
/* ---------------------------------- */
/* ---------------------------------- */
char Mathematica_eq[] =
"integrate e**(-s*t)*(1) dt"
" from t=0 to infinity";
/* ---------------------------------- */
/* ---------------------------------- */