SHARE
TWEET

Untitled

a guest Jun 18th, 2019 72 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Panel[Manipulate[tick; Dynamic[b = 8]; Dynamic[c = 4];
  2. Dynamic[uMin = -5]; Dynamic[uMax = 5];
  3. KFigE = Dynamic[
  4. Plot3D[dydx /. {B -> b, C -> c}, {x, uMin, uMax}, {y, uMin,
  5.   uMax}]],
  6. Grid[{
  7. {Style["PLOT", "Title"], SpanFromLeft, SpanFromLeft},
  8. {Style["Start:", Blue, Bold, 15]},
  9. {Style["Initial Conditions", Blue, Bold, 15]},
  10. {Style["b", Bold, 12],
  11.  InputField[Dynamic[b], Number, Background -> Lighter[Gray, 0.7],
  12.   ImageSize -> 80],
  13.  Style["uMin", Bold, 12],
  14.  InputField[Dynamic[uMin], Number,
  15.   Background -> Lighter[Gray, 0.7], ImageSize -> 80]},
  16. {Style["c", Bold, 12],
  17.  InputField[Dynamic[c], Number, Background -> Lighter[Gray, 0.7],
  18.   ImageSize -> 80],
  19.  Style["uMax", Bold, 12],
  20.  InputField[Dynamic[uMax], Number,
  21.   Background -> Lighter[Gray, 0.7], ImageSize -> 80]},
  22. {Button["Do it", tick = Not[tick],
  23.   Background -> Lighter[Green, 0.5], ImageSize -> {80, 40}],
  24.  Button["Clear", {dydx = Null, b = Null, c = Null},
  25.   Background -> LightRed, ImageSize -> {80, 40}],
  26.  Button["Export",
  27.   Export[SystemDialogInput["FileSave", "untitled"], KFigE],
  28.   Background -> LightBlue, ImageSize -> {80, 40},
  29.   Method -> "Queued"]}}, Spacings -> {2, 1}],
  30.   {{dydx, 3*(B*x + C*y), "Equation", None},
  31.   Background -> Lighter[Gray, 0.7], ImageSize -> 200},
  32.   {{tick, False}, None}, TrackedSymbols :> {tick},
  33.   ControlPlacement -> Left]]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top