diff options
Diffstat (limited to 'src/interp/bc-solve.boot')
| -rw-r--r-- | src/interp/bc-solve.boot | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/interp/bc-solve.boot b/src/interp/bc-solve.boot index 7ccace8a..e3062226 100644 --- a/src/interp/bc-solve.boot +++ b/src/interp/bc-solve.boot @@ -184,26 +184,26 @@ bcCreateVariableString(i) == strconc('"x",STRINGIMAGE i) bcMakeUnknowns(number)== - apply(function strconc,[strconc(bcCreateVariableString(i)," ") for i in 1..number]) + apply(function strconc,[strconc(bcCreateVariableString(i),'" ") for i in 1..number]) bcMakeEquations(i,number)== - number =1 => strconc(bcCreateVariableString(1),"^2+1") + number =1 => strconc(bcCreateVariableString(1),'"^2+1") bcCreateVariableString(i) strconc( strconc( - apply(function strconc,[strconc(bcCreateVariableString(j),"+") for j in 1..number]),"1"), - strconc("-2*",strconc(bcCreateVariableString(i),"^2"))) + apply(function strconc,[strconc(bcCreateVariableString(j),'"+") for j in 1..number]),'"1"), + strconc('"-2*",strconc(bcCreateVariableString(i),'"^2"))) bcMakeLinearEquations(i,number)== number = 1 => bcCreateVariableString(1) number = 2 => - i=1 => strconc(bcCreateVariableString(1),strconc("+",bcCreateVariableString(2))) - strconc(bcCreateVariableString(1),strconc("-",bcCreateVariableString(2))) + i=1 => strconc(bcCreateVariableString(1),strconc('"+",bcCreateVariableString(2))) + strconc(bcCreateVariableString(1),strconc('"-",bcCreateVariableString(2))) strconc( strconc( - apply(function strconc,[strconc(bcCreateVariableString(j),"+") for j in 1..number]),"1"), - strconc("-2*",bcCreateVariableString(i))) + apply(function strconc,[strconc(bcCreateVariableString(j),'"+") for j in 1..number]),'"1"), + strconc('"-2*",bcCreateVariableString(i))) bcInputEquationsEnd htPage == |