Message Boards Message Boards

GROUPS:

Slider value change on output

Posted 3 months ago
515 Views
|
1 Reply
|
0 Total Likes
|

Hello, As, "d" changes the values of "s" and "t" must also change. Similar to "c" also : as "c" changes the values of "s" and "t" must also change. I have tried to do it, but as I move slider "d", the values of "s" and "t" remain same. Thanks for help to resolve same

Clear[p, t]
sol2 = Table[
   Take[Solve[
     -10 p - 26 t == 5 &&
      -5.3 p + 19 t == (var1 - 50),
     {p, t}]], {var1, 10, 20}];

pSol1 = p /. sol2 // Flatten;

Column@Flatten[
   var2 = Solve[
       # == 0.42 - 2.4 s + 1.52 c &&
        d == 15 - 1.4 s + 0.4258 c, {d, s}] & /@ pSol1, 1];

d[c_] = d /. var2 // Flatten;
s[c_] = s /. var2 // Flatten;
var10[c_] = Column@Flatten[Sqrt[c]/(s /. var2 // Flatten)];

Dynamic[Manipulate[
  TextGrid[
   {{"s", "t"},
    {Column[s[c]],
     var10[c]}},
   Frame -> All,
   Background -> {Automatic, 1 -> LightYellow},
   ItemStyle -> {Automatic, 1 -> Bold},
   Alignment -> {Center, Automatic, {{{2, -1}, {1, -1}} -> "."}}],
  {c, 10, 30, 1, Appearance -> {"Labeled", "Open"}},
  {d, 2, 12, Appearance -> {"Labeled", "Open"}}], 
 SaveDefinitions -> True]
POSTED BY: Ma oj
Answer

Your Manipulate body only depends on c, not on d.

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract