MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

webMathematica


GentleBeings
I am trying, a simple task in webMatematica
print some strings in color
it seems to fail
the code I am using works in the notebook but not in the web page

numberOfCurves = 7; 
  m11 = 10; 
  y = Table[aa*x + 20, 
    {aa, m11/numberOfCurves, 
     m11, m11/numberOfCurves}]
  ps = Table[{Hue[Random[]], 
     Thickness[0.005]}, {i, 1, numberOfCurves}]
  Print["The equations are:"]; 
  For[j = 1, j <= numberOfCurves, j++, 
    a = ToString[y[[j]]]; 
    q = StyleForm[StringJoin["y = ", a],FontColor -> ps[[j,1]]]; 
    Print[q]; 
   ];

Any clues?
kenf


  • Prev by Date: Pattern gremlins.
  • Next by Date: Re: substrings at the end of words
  • Previous by thread: Re: Pattern gremlins.
  • Next by thread: Weird behavior of NumberForm in ver 5.1