6 format code
source | link
 `DynamicModule[DynamicModule[ 
      {a = 0, b = 0, c = 0}, 
      Deploy[ 
       Style[ 
        Panel[ 
         Grid[ 
          Transpose[
        {
        {
        Style["input a ", Red],
        Style["input b", Red],
        Style["input c", Red],
    "here is the equation",
    "here is the value of the discriminant",
    "here are the roots"},

     {InputField[Dynamic[a], Number],
     InputField[Dynamic[b], Number],
     InputField[Dynamic[c], Number],
     InputField[Dynamic[a*x^2 + b*x + c],Enabled -> False],
     InputField[Dynamic[b]^2 - (4*Dynamic[a]*Dynamic[c]) , Enabled -> False],
     InputField[Dynamic[a b], Enabled -> False]}
            }
                ]
    , Alignment -> Right]
    , ImageMargins -> 10]
       , 
    DefaultOptions -> {InputField -> {ContinuousAction -> True, 
    FieldSize -> {{5, 30}, {1, Infinity}}}}]
    ]
    ]`]

I have discovered, via trial and error, that within an input field I cannot simply try something like
Solve[x^2 + a x + 1 == 0, x]Solve[x^2 + a x + 1 == 0, x] or Roots [ ]Roots[ ].

 `DynamicModule[ 
      {a = 0, b = 0, c = 0}, 
      Deploy[ 
       Style[ 
        Panel[ 
         Grid[ 
          Transpose[
        {
        {
        Style["input a ", Red],
        Style["input b", Red],
        Style["input c", Red],
    "here is the equation",
    "here is the value of the discriminant",
    "here are the roots"},

     {InputField[Dynamic[a], Number],
     InputField[Dynamic[b], Number],
     InputField[Dynamic[c], Number],
     InputField[Dynamic[a*x^2 + b*x + c],Enabled -> False],
     InputField[Dynamic[b]^2 - (4*Dynamic[a]*Dynamic[c]) , Enabled -> False],
     InputField[Dynamic[a b], Enabled -> False]}
            }
                ]
    , Alignment -> Right]
    , ImageMargins -> 10]
       , 
    DefaultOptions -> {InputField -> {ContinuousAction -> True, 
    FieldSize -> {{5, 30}, {1, Infinity}}}}]
    ]
    ]`

I have discovered, via trial and error, that within an input field I cannot simply try something like
Solve[x^2 + a x + 1 == 0, x] or Roots [ ].

 DynamicModule[ 
      {a = 0, b = 0, c = 0}, 
      Deploy[ 
       Style[ 
        Panel[ 
         Grid[ 
          Transpose[
        {
        {
        Style["input a ", Red],
        Style["input b", Red],
        Style["input c", Red],
    "here is the equation",
    "here is the value of the discriminant",
    "here are the roots"},

     {InputField[Dynamic[a], Number],
     InputField[Dynamic[b], Number],
     InputField[Dynamic[c], Number],
     InputField[Dynamic[a*x^2 + b*x + c],Enabled -> False],
     InputField[Dynamic[b]^2 - (4*Dynamic[a]*Dynamic[c]) , Enabled -> False],
     InputField[Dynamic[a b], Enabled -> False]}
            }
                ]
    , Alignment -> Right]
    , ImageMargins -> 10]
       , 
    DefaultOptions -> {InputField -> {ContinuousAction -> True, 
    FieldSize -> {{5, 30}, {1, Infinity}}}}]
    ]
    ]

I have discovered, via trial and error, that within an input field I cannot simply try something like
Solve[x^2 + a x + 1 == 0, x] or Roots[ ].

5 added 63 characters in body
source | link

I have discovered, via trial and error, that within an input field I cannot simply try something like   
Solve[x^2 + a x + 1 == 0, x] Roots or Roots [ ].

I think this is where the heart of my problem lies.

I have discovered, via trial and error, that within an input field I cannot simply try something like  Solve[x^2 + a x + 1 == 0, x] Roots [ ].

I have discovered, via trial and error, that within an input field I cannot simply try something like 
Solve[x^2 + a x + 1 == 0, x] or Roots [ ].

I think this is where the heart of my problem lies.

4 added 63 characters in body
source | link

The aim of my program was to modify Wolfram's dynamic calculator 
(which performs some additions only) to solvean addition subtraction and a quadratic equationproduct - in response to the user inputting two values used to perform these operations)
to now take three input and display on the three outputs:

[1] the quadratic equation to be solved
[2] the roots of this quadratic equation
[3] the discriminant of this equation

In the program I am trying to write there areThe three things (in red text) whichwhich you have to input are: 

first input box is coefficient a 
second input box is coefficient b 
third input box is coefficient c 

The aim of my program was to modify Wolfram's dynamic calculator (which performs some additions only) to solve a quadratic equation and display

[1] the equation [2] the roots [3] the discriminant

In the program I am trying to write there are three things (in red text) which you have to input:

first input box is coefficient a second input box is coefficient b third input box is coefficient c

The aim of my program was to modify Wolfram's dynamic calculator 
(which performs an addition subtraction and a product - in response to the user inputting two values used to perform these operations)
to now take three input and display on the three outputs:

[1] the quadratic equation to be solved
[2] the roots of this quadratic equation
[3] the discriminant of this equation

The three things (in red text) which you have to input are: 

first input box is coefficient a 
second input box is coefficient b 
third input box is coefficient c 

3 deleted 233 characters in body
source | link
2 added 909 characters in body
source | link
1
source | link