sv = s0 + c Log[e + a/v] + R Log[v - b] ; RowBox[{s0 = 0, ;,  , c = 1, ;,  , RowBox[{RowBox[{RowBox[{R = 1 ;, =, 0.1}], ;}], =, 1}], ;}]

[Graphics:../HTMLFiles/index_5.gif]


Created by Mathematica  (May 15, 2005)