ПРИЛОЖЕНИЕ В
(справочное)
ГОСТ Р ИСО I05-.J03—99
Листинг компьютерной программы для расчета цветовых различий
20
Для расчета цветовых различий можно использовать программу, написанную на языке BASIC. Специ
фические формы программы могутпотребовать ее модификации для использования в некоторых компьютерных
системах.
10 ’ CMC (L:C) COLOUR DIFFERENCE FORMULA
•аяапаяааяаяаяаяаяаяааааяаяаяаяаяаяаяаяяа
30 ’ Input data and print results
40
’ аааяаяааяаяаяаяаиаяаиаяяаяаяаяаяаяаяаияа
50 INPUT ” Input CMC (lx) weighting factors T . *c* " : L. C
60 INPUT ” Input X. Y, Z of reference ” ; X(l>, X<2). X<3)
65 LPRINT ’*X, Y, Z of reference ” ; X(l). X(2), X<3) : GOSUB 160 : LI - CL : Al - CA : Bl - CB
70 INPUT •*X. Y, Z of specimen” ; X(l), X(2). X(3)
75 LPRINT ”X. Y, Z ofspecimen M: X(l). X(2), X(3>
SO GOSUB 230
90 LPRINT ” L*. a*, b*. Hue angle of reference " ; LI. Al. Bl. Ill
100 LPRINT " L*. a*. b*. Hue angle of specimen **; L2. A2. B2, H2
110 LPRINT " DL/1S1 DC/cSc DH/Sh (": L: " : "C")
120 LPRINT DL: DC: DH: DE : LPRINT : GOTO 60
130 ’ яаяаяаяаяаяааяаяаяаяаяаааяаяяаяаяаяаиаяя
140 ’ Calculate L*. a*, b* values <d65/l0)
150 ’ яаяаяаяаяаяааяаяаяаяаааяаяааяаяаваяаяаяа
200
160 X (I) - X (I) / 94. 811 : X <2) - X (2) / 100 : X (3) / 107.304
170 FOR I =1 TO 3:1F X (1) < 8.856001E - 0.3 THEN FX (I) « 7.787* X (1) + 16 / 116 ELSE FX (1) =
-X (IK (1/3)
180 NEXT
190 CL - 116* FX (2) - 16: CA - 500* (FX (1) - FX (2)): CB - 200* (FX (2) - FX (3)): RETURN
’ ааяаяаяаяаяаяяаааяаяаяаяаяаяаиаяааяаяаяа
210 ’Calculate CMC colour difference
220 ’ ааяаяаяаяаиаиааааяаяаяаяаяаяаяаяяаяаяаяа
230 DL - L 2 - LI : Cl - SQR (Bl* Bl + Al* Al) : C2 - SQR (B2* B2+ A2* A2): DC = C 2 -C I
240 SI - DL*DL + (A2 - Al)* (A2 - Al) 4 (B2 - Bl)* (B2 - Bl)
250 DH - 0:AA - Si —DL* DL —DC* DC : IF AA < 0 THEN 260 ELSE DH - SQR <AA>
260 IF (A2*B2) - 0 THEN 280 ELSE H2 - 180- SGH (B2>* 90 - ATN (A2/B2)* 57.3
270 GOTO 300
280 BB2 - SGN (ABS (B2)):AA2 - SGH (A2 + B2)
290 H2-90* (BB2-AA2+1)
300 IF (Al* Bl) - 0 THEN 320 ELSE Hi - 180-SG H (Bl)* 9 0 - ATN (Al/BI)* 57.3
310 GOTO 340
320 BBI - SGH (ABS(BI)) :AAI = SGH (Al + Bl)
330 HI = 90* (BBI - AAI * I)
340 IF HI < 164 OR HI > - 345 THEN 350 EJSE GOTO 360
350 T - . 36 + ABS (. 4* COS ((HI + 35) / 57.3» : GOTO 370
360 T - . 56 + ABS (. 2* COS ((HI + 168) / 57.3»
370 SL - . 040975* LI / (I + . 01765* LI) : IF LI < - 16 THEN LET SL- . 511
380 SC - .0638* Cl /(1 + 0.0131* Cl) + .638; F - SQR (Cl ’ 4/(C l л 4+ I900)):SH « SC* <T* F + I - F):
DL = DL / (L* SL) : DC = DC / (C* SC):DH=DH / SH
385 DA - H2 - HI: IF ABS (DA) > 180 THEN Yl - -1 ELSE Yl - I
386 Y2 - Yl* DA : IF Y2 < - 0 THEN DH - -D H
390 DE - SQR (DL* DL + DC* DC + DH* DH)
400 RETURN
7