ГОСТ РИСО 1Q5-J03—
Приложение С
(информативное)
Компьютерная программа для расчета цветового различия
Здесь представлена простая программа испытаний, написанная на языке BASIC, для
расчета Д£«пс. Специфическиеособенностизтой программы могут потребовать ее
модификации при использовании на некоторых компьютерных системах
10 ’CMC (L:C) COLOUR DIFFERENCE FORMULA
20
ш т ж ж т ж т т ж т ж т ж т т ят ят
30 ’Input data and print results
40
50 INPUT "Input CMC (I:c) weighting factors T, ’c’";L,C
60 INPUT "Input X,Y,Z of reference"* (1),X(2),X(3)
65 LPRINT "X.Y.Z of reference";X(1),X(2),X(3) :GOSUB 160 :L1=CL :A1=CA :B1=CB
70 INPUT "Input X,Y,Z of specimenf’;X(1),X(2),X(3)
75 LPRINT "X,Y,Z OF specimen ";X(1),X(2),X(3) :GOSUB 160 :I
_
2=CL :A2=CA :B2=CB
80 GOSUB230
90 LPRlNT "L*. a*,b*. Hue angle of reference ";L1 ,A1,B1,H1
100 LPRINT "L*, a*,b*. Hue angle of specimen ";L2,A2,B2,H2
110 LPRINT" DUISI DC/cSc DH’Sh DEcmc(";L;":’’C")"
120 LPRIITT DL;DC;DH;DE : LPRINT : GOTO 60
130
140 ’Calculate L*, a*, b* values (D65/10)
1so
160 X(1)=X(1)/94.811:X(2)=X(2)/100:X(3)=X (3)/107.304
170 FOR 1=1 TO 3:IF X(I)<(6/29)A3 THEN FX(I)=841/108*X(0+4/29 ELSE FX(l)=X(l)A(1/3)
180 NEXT
190 CL=116*FX(2)-16:CA=500*(FX(1)-FX(2)):CB=200*(FX(2)-FX(3)):RETURN
200
’ш ш ш ш ж ж ж ж т ж н ш м т ю ш ###
210 ’Calculate CMC colour difference
220
’т т жт жт т Ф жт жт жт т ят ят
10