MathGroup Archive 2005

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

Search the Archive

webMathematica

  • To: mathgroup at smc.vnet.net
  • 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 wolfram.com

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