Mathematica недокументированное Динамическое решение необходимо

Question

Я пытаюсь, чтобы ползунок обновил производное значение для 2 полиномиальных кривых и вернул его динамически в переменную, которая будет использоваться вне динамического диапазона.Я получаю ползунок для перемещения и значение для комбинированных линий для всего диапазона х, но не возвращаемое значение, которое будет использоваться за пределами динамического ползунка.Что мне не хватает?Спасибо!

cyL= 58.770000000000046` - 3.557000000000158` x - 
   3.525333333333144` x^2 + 4.987999999999908` x^3 - 
   1.3386666666666487` x^4;

cyA[y_] := -35.13365403304179` - 0.009572400388682331` x + 
   0.08989310009715228` x^2 - 0.01687074829931251` x^3;

change= -0.17006802721089645` + 62.92517006802724` x - 
   6.802721088435384` x^2;

В приведенной ниже части создаются ползунки, которые отображают правильные значения в первом ползунке, но не во втором.

Column[{Slider[Dynamic[x, Automatic]], Dynamic[cyL /. x -> change]},
{Slider[Dynamic[g, Automatic]], Dynamic[cyA /. y -> change]}]

Answer 1

Я не совсем уверен, что понимаю, что вы хотите сделать с переменной change, но вот версия, которая работает с обоими ползунками, обновляя их соответствующие функции:

cyL[x_] := 
  58.770000000000046` - 3.557000000000158` x - 
   3.525333333333144` x^2 + 4.987999999999908` x^3 - 
   1.3386666666666487` x^4;

cyA[y_] := -35.13365403304179` - 0.009572400388682331` y + 
   0.08989310009715228` y^2 - 0.01687074829931251` y^3;

change[x_] := -0.17006802721089645` + 62.92517006802724` x - 
   6.802721088435384` x^2;

Column[{{Slider[Dynamic[x, Automatic]], 
   Dynamic[cyL[change[x]]]}, {Slider[Dynamic[g, Automatic]], 
   Dynamic[cyA[change[g]]]}}]