Services & Resources / Wolfram Forums
MathGroup Archive
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

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

Search the Archive


  • To: mathgroup at
  • Subject: [mg55092] webMathematica
  • From: "Flurchick, Kenneth M" <FLURCHICKK at MAIL.ECU.EDU>
  • Date: Sat, 12 Mar 2005 02:36:39 -0500 (EST)
  • Sender: owner-wri-mathgroup at

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]]]; 

Any clues?

  • 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