求一颜色算法(100分)

C

catfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #1

给予一个数字， 通过算法得出一系列颜色，颜色之间尽量容易分辨（该数字大概在20～30之间）

请大侠赐教

 

K

kouchun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #2

VAR aCOLOR:TCOLOR;
BEGIN
aCOLOR:=RGB(RANDOM(20)+20,RANDOM(20)+20,RANDOM(20)+20);
LABEL1.COLOR:=aColor;
END;

 

C

catfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #3

上面的算法不行， 在一个for循环里执行，得到的都是很很相近的颜色

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #4

procedure TForm1.Button1Click(Sender: TObject);
var AColor:TColor;
begin
Randomize;
AColor:=RGB(Round(Random(30)*8.5) Mod 255,Round(Random(30)*8.5) Mod 255,Round(Random(30)*8.5) Mod 255);
Label1.Color:=AColor;
end;

 

C

catfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #5

谢，

效果还不是很明显， 有其他算法吗

 

Z

zurich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #6

楼主说的‘不是很明显’是什么意思？

 

孤

孤独之孤

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-05-31

• #7

你可以先定义好颜色常数,如:ColorArr:array[20..30] of TColor = (crBlue,crYellow,...)
然后可以用给定的数取色了,如:myColor := ColorArr[21];

 

C

catfox

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-01

• #8

to zurich:

就是说颜色相差不大

 

X

xuxiaohan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-01

• #9

真惨，还有这样的问题。
通过算法得出一系列颜色？？是什么颜色，固定的？随机的？

 

C

cqbaobao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-01

• #10

http://www.efg2.com/Lab/Graphics/Colors/HSV.htm

去那个圆上取