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