Hi everyone,
I am trying to plot an equation that predicts partition coefficients using Mathematica.
I got as far as I could using Sliders and Dynamic variables, but I am stuck in a very silly place here...
{Slider[Dynamic[rzero], {.1, 1.5, .1}], Dynamic[rzero], {Slider[Dynamic[E1], {50, 250, 5}], Dynamic[E1]}, Slider[Dynamic[Tempe], {500, 2000, 10}], Dynamic[Tempe], Slider[Dynamic[Dzero], {0.000001, 1, 0.00001}], Dynamic[Dzero], Dynamic[Plot[ Dzero*(((-910.17*E1)*((1/2*rzero*(ri - rzero)^2) + (1/3*(ri - rzero)^3)))/ Tempe), {ri, 0.1, 2}]]}
I know the above line is not elegant (I started only two days ago on the software), but it would be functional if I were to be able to plot the exponential for the equation involving dynamic variables. the idea was to calculate and plot Plot[Dzero*EXP[ of all the rest...], but the graph fails to show up.
As it is right now the graph shows but the values on the y axis are not partition coefficients rsrs...
Can anyone give me a hint?
Thanks in advance,
Adriana Alves, geologist
