Download - Wolfram Research

2.10 Nonlinear Symbolic Approximation 177
In[29]:= Plot3D[ivloadSimp[II],
{VLOAD, 0., 3.5}, {II, 0., 0.001},
AxesLabel −> {"VLOAD", "II", ""},
PlotLabel −> "IVLOAD (simplified system)"]
IVLOAD (simplified system)
0.0003
0.0002
0.0001
0
1
VLOAD
2
3
0
0.001
0.0008
0.0006
0.0004
II
0.0002
Out[29]= SurfaceGraphics
To show that the requested error bound is met, we plot the deviation of the output comparing the
original and the simplified system (note the plot range).
In[30]:= Plot3D[Abs[ivloadSimp[II]−ivload[VLOAD, II]],
{VLOAD, 0., 3.5}, {II, 0., 0.001},
PlotRange −> {0, 25.*^−6},
AxesLabel −> {"VLOAD", "II", ""},
PlotLabel −> "absolute error"]
absolute error
0.00002
0.00001
0
1
VLOAD
2
3
0
0.001
0.0008
0.0006
0.0004
II
0.0002
Out[30]= SurfaceGraphics
Further Postprocessing
In the final step we further reduce the complexity of the equation system by applying some standard
Mathematica functions to manipulate the equations symbolically. In this example it is possible to solve