%!PS-Adobe-3.0 EPSF-3.0 UE040-7A %%BoundingBox: 70 85 226 206 %START PDFDE011.EPS /pdfmark07 where {pop} {userdict /pdfmark07 /cleartomark load put} ifelse /languagelevel where {pop languagelevel} {1} ifelse 2 lt { userdict (<<) cvn ([) cvn load put userdict (>>) cvn (]) cvn load put} if [ /Title (PostScript pictures: http://130.149.60.45/~farbmetrik/UE04/) /Author (compare K. Richter "Computergrafik ...": ISBN 3-8007-1775-1) /Subject (goto: http://www.ps.bam.de or http://130.149.60.445/~farbmetrik) /Keywords (image reproduction, colour devices) /Creator (klaus.richter@me.com) /CreationDate (D:2014010112000) /ModDate (D:2014010112000) /DOCINFO pdfmark07 [ /View [ /FitB ] /DOCVIEW pdfmark07 %END PDFDE011 %SETCMYK_OLV.PS /setcmyk_olvcolor %transfer cmyk to olv {/ncolor exch def /ycolor exch def /mcolor exch def /ccolor exch def ncolor 0 eq {1 ccolor sub 1 mcolor sub 1 ycolor sub setrgbcolor } {ccolor 0 eq mcolor 0 eq and ycolor 0 eq and {%only black n 1 ncolor sub dup dup setrgbcolor } {%cmy and black n 1 ccolor sub 1 ncolor sub mul 1 mcolor sub 1 ncolor sub mul 1 ycolor sub 1 ncolor sub mul setrgbcolor } ifelse } ifelse } bind def % !AUSTAUSCH Times-Roman -> Times-Roman-ISOLatin1=Times-I /Times-Roman findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /Times-ISOL1 exch definefont pop /Times-Italic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesI-ISOL1 exch definefont pop /Times-Bold findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesB-ISOL1 exch definefont pop /Times-BoldItalic findfont dup length dict begin {1 index /FID ne {def} {pop pop} ifelse }forall /Encoding ISOLatin1Encoding def currentdict end /TimesBI-ISOL1 exch definefont pop /FS {findfont exch scalefont setfont} bind def /MM {72 25.4 div mul} def /str {8 string } bind def /TK {240 /Times-ISOL1 FS} bind def /TM {290 /Times-ISOL1 FS} bind def /TG {340 /Times-ISOL1 FS} bind def /TIK {240 /TimesI-ISOL1 FS} bind def /TIM {290 /TimesI-ISOL1 FS} bind def /TIG {340 /TimesI-ISOL1 FS} bind def /TBK {240 /TimesB-ISOL1 FS} bind def /TBM {290 /TimesB-ISOL1 FS} bind def /TBG {340 /TimesB-ISOL1 FS} bind def /TBIK {240 /TimesBI-ISOL1 FS} bind def /TBIM {290 /TimesBI-ISOL1 FS} bind def /TBIG {340 /TimesBI-ISOL1 FS} bind def /SK {240 1 sub /Symbol FS} bind def /SM {290 1 sub /Symbol FS} bind def /SG {340 1 sub /Symbol FS} bind def %XCHA01.PS BEG /rec %x, y width heigth {/heigth exch def /width exch def moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colrecfi %x y width heigth c m y k {setcmyk_olvcolor rec fill} bind def /colrecst %x y width heigth c m y k {setcmyk_olvcolor rec stroke} bind def /rem %x, y width heigth {/heigth exch 0.5 mul def /width exch 0.5 mul def /yleftb exch heigth 0.5 mul add def /xleftb exch width 0.5 mul add def xleftb yleftb moveto width 0 rlineto 0 heigth rlineto width neg 0 rlineto closepath } bind def /colremfi %x y width heigth c m y k {setcmykcolor rem fill} bind def /colremst %x y width heigth c m y k {setcmykcolor rem stroke} bind def /tzr {0.0 1.0 1.0 0.0} bind def %Reproduktionsfarben /tzg {1.0 0.0 1.0 0.0} bind def /tzb {1.0 1.0 0.0 0.0} bind def /tzc {1.0 0.0 0.0 0.0} bind def /tzm {0.0 1.0 0.0 0.0} bind def /tzy {0.0 0.0 1.0 0.0} bind def /tzn {0.0 0.0 0.0 1.00} bind def %Graureihe /tzd {0.0 0.0 0.0 0.75} bind def /tzz {0.0 0.0 0.0 0.50} bind def /tzh {0.0 0.0 0.0 0.25} bind def /tzw {0.0 0.0 0.0 0.00} bind def /tfr {0.0 1.0 1.0 0.0 setcmyk_olvcolor} bind def %Reproduktionsfarben /tfg {1.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfb {1.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfc {1.0 0.0 0.0 0.0 setcmyk_olvcolor} bind def /tfm {0.0 1.0 0.0 0.0 setcmyk_olvcolor} bind def /tfy {0.0 0.0 1.0 0.0 setcmyk_olvcolor} bind def /tfn {0.0 0.0 0.0 1.00 setcmyk_olvcolor} bind def %Graureihe /tfd {0.0 0.0 0.0 0.75 setcmyk_olvcolor} bind def /tfz {0.0 0.0 0.0 0.50 setcmyk_olvcolor} bind def /tfh {0.0 0.0 0.0 0.25 setcmyk_olvcolor} bind def /tfw {0.0 0.0 0.0 0.00 setcmyk_olvcolor} bind def %For array: 5610=187*30=17*11*30 % =%17 data * 11 colours * 30 series /AVR2DA05 5610 array def %187*30 /AVR2DA05 [ % Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 0 % DUMMY AURI_HPPOTXY2_L5.DAT + ..Y4_L5.DAT + ..Y6_L5.DAT % Programm: RICHDA06.FOR 2014_04_01 % Output file: RICHDA06.TXT 2014_04_01 %000000 1 2 3 4 5 6 7 %123456789012345678901234567890123456789012345678901234567890123456789012345678 %210000 x y Y L delta_x delta_y delta_Y ObReJNSu______1 delta_L xg yg Lg % 11 297 WDN_WN 60cd/m**2 27 5 5 205564 0.3283 0.3627 0.2716E+02 0.8148E+02 0.00E+00 0.00E+00 0.90E-01 7 3 1 1 11 0.2700E+00 0.3252 0.3598 0.6000E+02 205574 0.3237 0.3584 0.1673E+02 0.5019E+02 0.00E+00 0.00E+00 0.70E-01 7 3 1 1 11 0.2100E+00 0.3252 0.3598 0.6000E+02 205584 0.3206 0.3552 0.1041E+02 0.3123E+02 0.00E+00 0.00E+00 0.60E-01 7 3 1 1 11 0.1800E+00 0.3252 0.3598 0.6000E+02 205594 0.3199 0.3543 0.6980E+01 0.2094E+02 0.00E+00 0.00E+00 0.40E-01 7 3 1 1 11 0.1200E+00 0.3252 0.3598 0.6000E+02 205604 0.3207 0.3553 0.4790E+01 0.1437E+02 0.00E+00 0.00E+00 0.40E-01 7 3 1 1 11 0.1200E+00 0.3252 0.3598 0.6000E+02 205614 0.3222 0.3571 0.3320E+01 0.9960E+01 0.00E+00 0.00E+00 0.30E-01 7 3 1 1 11 0.9000E-01 0.3252 0.3598 0.6000E+02 205624 0.3255 0.3594 0.2290E+01 0.6870E+01 0.00E+00 0.00E+00 0.30E-01 7 3 1 1 11 0.9000E-01 0.3252 0.3598 0.6000E+02 205634 0.3300 0.3612 0.1770E+01 0.5310E+01 -0.10E-03 0.00E+00 0.20E-01 7 3 1 1 11 0.6000E-01 0.3252 0.3598 0.6000E+02 205644 0.3347 0.3648 0.1270E+01 0.3810E+01 -0.20E-03 -0.10E-03 0.20E-01 7 3 1 1 11 0.6000E-01 0.3252 0.3598 0.6000E+02 205654 0.3400 0.3689 0.9200E+00 0.2760E+01 -0.30E-03 -0.20E-03 0.20E-01 7 3 1 0 11 0.6000E-01 0.3252 0.3598 0.6000E+02 205664 0.3464 0.3736 0.6400E+00 0.1920E+01 -0.60E-03 -0.40E-03 0.20E-01 7 3 1 0 11 0.6000E-01 0.3252 0.3598 0.6000E+02 % 11 231 WDN_TM 60cd/m**2 21 4 5 205563 0.3283 0.3627 0.2716E+02 0.8148E+02 -0.11E-02 0.70E-03 0.10E-01 7 3 1 1 11 0.3000E-01 0.3252 0.3598 0.6000E+02 205573 0.3237 0.3584 0.1673E+02 0.5019E+02 -0.11E-02 0.70E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205583 0.3206 0.3552 0.1041E+02 0.3123E+02 -0.13E-02 0.80E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205593 0.3199 0.3543 0.6980E+01 0.2094E+02 -0.15E-02 0.90E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205603 0.3207 0.3553 0.4790E+01 0.1437E+02 -0.18E-02 0.11E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205613 0.3222 0.3571 0.3320E+01 0.9960E+01 -0.21E-02 0.13E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205623 0.3255 0.3594 0.2290E+01 0.6870E+01 -0.27E-02 0.17E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205633 0.3300 0.3612 0.1770E+01 0.5310E+01 -0.30E-02 0.19E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205643 0.3347 0.3648 0.1270E+01 0.3810E+01 -0.38E-02 0.24E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205653 0.3400 0.3689 0.9200E+00 0.2760E+01 -0.44E-02 0.29E-02 0.00E+00 7 3 1 0 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205663 0.3464 0.3736 0.6400E+00 0.1920E+01 -0.60E-02 0.40E-02 0.00E+00 7 3 1 0 11 0.0000E+00 0.3252 0.3598 0.6000E+02 % 11 44 WDN_BY 60cd/m**2 4 0 5 205560 0.3283 0.3627 0.2716E+02 0.8148E+02 -0.70E-03 -0.60E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205570 0.3237 0.3584 0.1673E+02 0.5019E+02 -0.80E-03 -0.70E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205580 0.3206 0.3552 0.1041E+02 0.3123E+02 -0.10E-02 -0.90E-03 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205590 0.3199 0.3543 0.6980E+01 0.2094E+02 -0.12E-02 -0.11E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205600 0.3207 0.3553 0.4790E+01 0.1437E+02 -0.13E-02 -0.12E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205610 0.3222 0.3571 0.3320E+01 0.9960E+01 -0.18E-02 -0.16E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205620 0.3255 0.3594 0.2290E+01 0.6870E+01 -0.22E-02 -0.19E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205630 0.3300 0.3612 0.1770E+01 0.5310E+01 -0.25E-02 -0.22E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205640 0.3347 0.3648 0.1270E+01 0.3810E+01 -0.30E-02 -0.26E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205650 0.3400 0.3689 0.9200E+00 0.2760E+01 -0.40E-02 -0.34E-02 0.00E+00 7 3 1 0 11 0.0000E+00 0.3252 0.3598 0.6000E+02 205660 0.3464 0.3736 0.6400E+00 0.1920E+01 -0.56E-02 -0.48E-02 0.00E+00 7 3 1 0 11 0.0000E+00 0.3252 0.3598 0.6000E+02 % 22 308 QPN_QN 60cd/m**2 28 6 6 206675 0.3987 0.4175 0.1975E+03 0.5925E+03 0.00E+00 0.00E+00 0.12E+01 7 3 1 1 11 0.3480E+01 0.3977 0.4178 0.6000E+02 206685 0.3943 0.4155 0.1203E+03 0.3609E+03 0.00E+00 0.00E+00 0.69E+00 7 3 1 1 11 0.2070E+01 0.3977 0.4178 0.6000E+02 206695 0.3919 0.4140 0.7434E+02 0.2230E+03 0.00E+00 0.00E+00 0.41E+00 7 3 1 1 11 0.1230E+01 0.3977 0.4178 0.6000E+02 206705 0.3914 0.4136 0.4981E+02 0.1494E+03 0.00E+00 0.00E+00 0.28E+00 7 3 1 1 11 0.8400E+00 0.3977 0.4178 0.6000E+02 206715 0.3926 0.4140 0.3440E+02 0.1032E+03 0.00E+00 0.00E+00 0.18E+00 7 3 1 1 11 0.5400E+00 0.3977 0.4178 0.6000E+02 206725 0.3945 0.4140 0.2467E+02 0.7401E+02 0.00E+00 0.00E+00 0.15E+00 7 3 1 1 11 0.4500E+00 0.3977 0.4178 0.6000E+02 206735 0.3973 0.4153 0.1774E+02 0.5322E+02 0.00E+00 0.00E+00 0.10E+00 7 3 1 1 11 0.3000E+00 0.3977 0.4178 0.6000E+02 206745 0.4008 0.4166 0.1287E+02 0.3861E+02 0.00E+00 0.00E+00 0.10E+00 7 3 1 1 11 0.3000E+00 0.3977 0.4178 0.6000E+02 206755 0.4052 0.4185 0.9190E+01 0.2757E+02 -0.10E-03 0.00E+00 0.80E-01 7 3 1 1 11 0.2400E+00 0.3977 0.4178 0.6000E+02 206765 0.4102 0.4204 0.6620E+01 0.1986E+02 -0.10E-03 0.00E+00 0.60E-01 7 3 1 1 11 0.1800E+00 0.3977 0.4178 0.6000E+02 206775 0.4158 0.4226 0.4680E+01 0.1404E+02 -0.20E-03 -0.10E-03 0.50E-01 7 3 1 1 11 0.1500E+00 0.3977 0.4178 0.6000E+02 207785 0.3905 0.4137 0.5120E+01 0.1536E+02 0.10E-03 0.10E-03 0.70E-01 7 3 1 1 11 0.2100E+00 0.3977 0.4178 0.6000E+02 207795 0.3861 0.4114 0.3170E+01 0.9510E+01 0.20E-03 0.10E-03 0.50E-01 7 3 1 1 11 0.1500E+00 0.3977 0.4178 0.6000E+02 207805 0.3835 0.4094 0.1940E+01 0.5820E+01 0.30E-03 0.10E-03 0.40E-01 7 3 1 1 11 0.1200E+00 0.3977 0.4178 0.6000E+02 207815 0.3831 0.4090 0.1280E+01 0.3840E+01 0.30E-03 0.20E-03 0.30E-01 7 3 1 1 11 0.9000E-01 0.3977 0.4178 0.6000E+02 207825 0.3841 0.4096 0.8800E+00 0.2640E+01 0.30E-03 0.20E-03 0.20E-01 7 3 1 0 11 0.6000E-01 0.3977 0.4178 0.6000E+02 207835 0.3859 0.4107 0.6300E+00 0.1890E+01 0.40E-03 0.20E-03 0.20E-01 7 3 1 0 11 0.6000E-01 0.3977 0.4178 0.6000E+02 207845 0.3884 0.4123 0.4600E+00 0.1380E+01 0.40E-03 0.20E-03 0.20E-01 7 3 1 0 11 0.6000E-01 0.3977 0.4178 0.6000E+02 207855 0.3907 0.4143 0.3000E+00 0.9000E+00 0.40E-03 0.20E-03 0.20E-01 7 3 1 0 11 0.6000E-01 0.3977 0.4178 0.6000E+02 207865 0.3967 0.4144 0.2400E+00 0.7200E+00 0.10E-03 0.20E-03 0.20E-01 7 3 1 0 11 0.6000E-01 0.3977 0.4178 0.6000E+02 207875 0.4019 0.4167 0.1700E+00 0.5100E+00 -0.40E-03 -0.10E-03 0.20E-01 7 3 1 0 11 0.6000E-01 0.3977 0.4178 0.6000E+02 207885 0.4076 0.4192 0.1200E+00 0.3600E+00 -0.11E-02 -0.10E-03 0.20E-01 7 3 1 0 11 0.6000E-01 0.3977 0.4178 0.6000E+02 % 22 242 QPN_TM 60cd/m**2 22 4 6 206673 0.3987 0.4175 0.1975E+03 0.5925E+03 -0.12E-02 0.10E-02 0.50E-01 7 3 1 1 11 0.1500E+00 0.3977 0.4178 0.6000E+02 206683 0.3943 0.4155 0.1203E+03 0.3609E+03 -0.11E-02 0.10E-02 0.30E-01 7 3 1 1 11 0.9000E-01 0.3977 0.4178 0.6000E+02 206693 0.3919 0.4140 0.7434E+02 0.2230E+03 -0.13E-02 0.11E-02 0.20E-01 7 3 1 1 11 0.6000E-01 0.3977 0.4178 0.6000E+02 206703 0.3914 0.4136 0.4981E+02 0.1494E+03 -0.13E-02 0.11E-02 0.10E-01 7 3 1 1 11 0.3000E-01 0.3977 0.4178 0.6000E+02 206713 0.3926 0.4140 0.3440E+02 0.1032E+03 -0.14E-02 0.12E-02 0.10E-01 7 3 1 1 11 0.3000E-01 0.3977 0.4178 0.6000E+02 206723 0.3945 0.4140 0.2467E+02 0.7401E+02 -0.14E-02 0.12E-02 0.10E-01 7 3 1 1 11 0.3000E-01 0.3977 0.4178 0.6000E+02 206733 0.3973 0.4153 0.1774E+02 0.5322E+02 -0.17E-02 0.14E-02 0.10E-01 7 3 1 1 11 0.3000E-01 0.3977 0.4178 0.6000E+02 206743 0.4008 0.4166 0.1287E+02 0.3861E+02 -0.16E-02 0.13E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 206753 0.4052 0.4185 0.9190E+01 0.2757E+02 -0.18E-02 0.16E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 206763 0.4102 0.4204 0.6620E+01 0.1986E+02 -0.24E-02 0.21E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 206773 0.4158 0.4226 0.4680E+01 0.1404E+02 -0.24E-02 0.21E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207783 0.3905 0.4137 0.5120E+01 0.1536E+02 -0.22E-02 0.18E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207793 0.3861 0.4114 0.3170E+01 0.9510E+01 -0.28E-02 0.23E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207803 0.3835 0.4094 0.1940E+01 0.5820E+01 -0.38E-02 0.30E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207813 0.3831 0.4090 0.1280E+01 0.3840E+01 -0.47E-02 0.38E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207823 0.3841 0.4096 0.8800E+00 0.2640E+01 -0.57E-02 0.46E-02 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207833 0.3859 0.4107 0.6300E+00 0.1890E+01 -0.75E-02 0.60E-02 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207843 0.3884 0.4123 0.4600E+00 0.1380E+01 -0.92E-02 0.74E-02 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207853 0.3907 0.4143 0.3000E+00 0.9000E+00 -0.14E-01 0.11E-01 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207863 0.3967 0.4144 0.2400E+00 0.7200E+00 -0.17E-01 0.14E-01 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207873 0.4019 0.4167 0.1700E+00 0.5100E+00 -0.20E-01 0.16E-01 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207883 0.4076 0.4192 0.1200E+00 0.3600E+00 -0.29E-01 0.23E-01 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 % 22 55 QPN_BY 60cd/m**2 5 0 6 206670 0.3987 0.4175 0.1975E+03 0.5925E+03 -0.17E-02 -0.15E-02 0.40E-01 7 3 1 1 11 0.1200E+00 0.3977 0.4178 0.6000E+02 206680 0.3943 0.4155 0.1203E+03 0.3609E+03 -0.16E-02 -0.13E-02 0.20E-01 7 3 1 1 11 0.6000E-01 0.3977 0.4178 0.6000E+02 206690 0.3919 0.4140 0.7434E+02 0.2230E+03 -0.16E-02 -0.14E-02 0.20E-01 7 3 1 1 11 0.6000E-01 0.3977 0.4178 0.6000E+02 206700 0.3914 0.4136 0.4981E+02 0.1494E+03 -0.16E-02 -0.14E-02 0.10E-01 7 3 1 1 11 0.3000E-01 0.3977 0.4178 0.6000E+02 206710 0.3926 0.4140 0.3440E+02 0.1032E+03 -0.18E-02 -0.16E-02 0.10E-01 7 3 1 1 11 0.3000E-01 0.3977 0.4178 0.6000E+02 206720 0.3945 0.4140 0.2467E+02 0.7401E+02 -0.18E-02 -0.16E-02 0.10E-01 7 3 1 1 11 0.3000E-01 0.3977 0.4178 0.6000E+02 206730 0.3973 0.4153 0.1774E+02 0.5322E+02 -0.21E-02 -0.18E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 206740 0.4008 0.4166 0.1287E+02 0.3861E+02 -0.24E-02 -0.21E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 206750 0.4052 0.4185 0.9190E+01 0.2757E+02 -0.29E-02 -0.25E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 206760 0.4102 0.4204 0.6620E+01 0.1986E+02 -0.36E-02 -0.30E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 206770 0.4158 0.4226 0.4680E+01 0.1404E+02 -0.43E-02 -0.36E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207780 0.3905 0.4137 0.5120E+01 0.1536E+02 -0.30E-02 -0.26E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207790 0.3861 0.4114 0.3170E+01 0.9510E+01 -0.39E-02 -0.34E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207800 0.3835 0.4094 0.1940E+01 0.5820E+01 -0.52E-02 -0.45E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207810 0.3831 0.4090 0.1280E+01 0.3840E+01 -0.63E-02 -0.54E-02 0.00E+00 7 3 1 1 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207820 0.3841 0.4096 0.8800E+00 0.2640E+01 -0.78E-02 -0.67E-02 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207830 0.3859 0.4107 0.6300E+00 0.1890E+01 -0.10E-01 -0.89E-02 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207840 0.3884 0.4123 0.4600E+00 0.1380E+01 -0.12E-01 -0.10E-01 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207850 0.3907 0.4143 0.3000E+00 0.9000E+00 -0.16E-01 -0.14E-01 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207860 0.3967 0.4144 0.2400E+00 0.7200E+00 -0.21E-01 -0.18E-01 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207870 0.4019 0.4167 0.1700E+00 0.5100E+00 -0.26E-01 -0.23E-01 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 207880 0.4076 0.4192 0.1200E+00 0.3600E+00 -0.32E-01 -0.27E-01 0.00E+00 7 3 1 0 11 0.0000E+00 0.3977 0.4178 0.6000E+02 ] def /cvsshow1 {10 mul cvi 0.1 mul 7 string cvs show} def /cvsshow2 {100 mul cvi 0.01 mul 7 string cvs show} def /cvsshow3 {1000 mul cvi 0.001 mul 7 string cvs show} def %%EndProlog gsave /lanind 1 def /lantex [(G) (E) (S) (F) (I) (J) (M)] def /showde {0 lanind eq {show} {pop} ifelse} bind def /showen {1 lanind eq {show} {pop} ifelse} bind def /showes {2 lanind eq {show} {pop} ifelse} bind def /showfr {3 lanind eq {show} {pop} ifelse} bind def /showit {4 lanind eq {show} {pop} ifelse} bind def /showjp {5 lanind eq {show} {pop} ifelse} bind def /showea {1 lanind le {show} {pop} ifelse} bind def /lanindf where {pop /lanind1 lanindf def /lanind2 lanindf def /lanindd laninddf def} {/lanind1 1 def /lanind2 1 def} ifelse /colormf where {pop /colorm1 colormf def /colorm2 colormf def /colormd colormdf def} {/colorm1 0 def} ifelse /deintpf where {pop /deintp1 deintpf def /deintp2 deintpf def /deintpd deintpdf def} {/deintp1 0 def} ifelse /xcolorf where {pop /xcolor1 xcolorf def /xcolor2 xcolorf def /xcolord xcolordf def} {/xcolor1 3 def} ifelse /xchartf where {pop /xchart1 xchartf def /xchart2 xchartf def /xchartd xchartdf def /xchartm xchart2f xchart1f sub 1 add def} {/xchart1 0 def /xchartm 1 def} ifelse /xchart3f where {pop /xchart3 xchart3f def} {/xchart3 0 def} ifelse /xchart4f where {pop /xchart4 xchart4f def} {/xchart4 0 def} ifelse /pchartf where {pop /pchart1 pchartf def /pchart2 pchartf def /pchartd pchartdf def} {/pchart1 3 def} ifelse /colsepf where {pop /colsep1 colsepf def /colsep2 colsepf def /colsepd colsepdf def} {/colsep1 0 def} ifelse /pmetamf where {pop /pmetam1 pmetamf def /pmetam2 pmetamf def /pmetamd pmetamdf def} {/pmetam1 0 def} ifelse %either defaul values for xchart=0 or values for xchart=1 /lanind lanind1 def % /colorm colorm1 def % /deintp deintp1 def % /xcolor xcolor1 def % /xchart xchart1 def % /pchart pchart1 def % /colsep colsep1 def % /pmetam pmetam1 def % colorm 0 eq deintp 0 eq and {/Txx (d) def /Fxx (d) def} if %colorm=0, deintp=0 colorm 0 eq deintp 1 eq and {/Txx (e) def /Fxx (e) def} if %colorm=0, deintp=1 colorm 1 eq deintp 0 eq and {/Txx (dd) def /Fxx (d) def} if %colorm=1, deintp=0 colorm 1 eq deintp 1 eq and {/Txx (de) def /Fxx (e) def} if %colorm=1, deintp=1 xchart 0 eq {/Txx (-) def /Fxx (-) def} if %always independent of intended output gsave 0 1 2 {/xchart exch def %xchart=0,8 3x3 plots /MDK3 xchart def %0,1,2 for plots log dL, log L/dL, L/dL /MD 0 def %0=60cd/m**2 /MDK 0 def %0=60cd/m**2 gsave 5 /Times-ISOL1 FS /cvishow {cvi 6 string cvs show} def %75 85 moveto %lanind cvishow (-) show %colorm cvishow %deintp cvishow %xcolor cvishow %xchart cvishow %pchart cvishow %colsep cvishow (-L) show pmetam cvishow 5 /Times-ISOL1 FS %175 85 moveto (UE040-7R) show %xchart 0 eq {(R) show} % {deintp colorm 2 mul add cvishow} ifelse 72 90 translate 0.01 MM dup scale 30 setlinewidth 20 setlinewidth %0 0 25000 17100 0.0 0.0 0.0 0.0 colrecfi %area white grey %0 0 25000 17100 0.0 0.0 0.0 1.0 colrecst %Rahmen Schwarz /xchartl 6 def %0 1 15 {/xchartl exch def %xchartl=0,15 gsave % xchartl 0 eq { 100 13000 translate} if % xchartl 1 eq { 6100 13000 translate} if % xchartl 2 eq { 100 08750 translate} if % xchartl 3 eq { 6100 08750 translate} if % xchartl 4 eq { 100 4500 translate} if % xchartl 5 eq { 6100 4500 translate} if % xchartl 6 eq { 100 0250 translate} if % xchartl 7 eq { 6100 0250 translate} if % xchartl 8 eq {13500 13000 translate} if % xchartl 9 eq {19500 13000 translate} if % xchartl 10 eq {13500 08750 translate} if % xchartl 11 eq {19500 08750 translate} if % xchartl 12 eq {13500 4500 translate} if % xchartl 13 eq {19500 4500 translate} if % xchartl 14 eq {13500 0250 translate} if % xchartl 15 eq {19500 0250 translate} if /xwidth 5400 def /ywidth 4000 def 0 0 xwidth ywidth 0.0 0.0 0.0 0.5 colrecfi %Rechteck Mittelgrau 150 /Times-ISOL1 FS 0 setgray 300 -150 moveto xchartl 7 le {(UE040-) show} {(UE041-) show} ifelse xchartl 0 ge xchartl 7 le and {xchartl 1 add cvishow} if xchartl 8 ge xchartl 15 le and {xchartl 7 sub cvishow} if (A) show %A (_) show xchart 1 add cvishow 0 setlinewidth 0 0 moveto xwidth 0 rlineto 0 ywidth rlineto xwidth neg 0 rlineto closepath clip 20 setlinewidth 0 0 xwidth ywidth 0.0 0.0 0.0 1.0 colrecst %frame black %******************************************** /xt0 50 def /yt0 3750 def /xt1 1000 def /xt2 1250 def /ytd 300 def xt0 yt0 moveto TBM tfw MDK3 0 eq {%MDK3=0 TBM (log [) show SM (D) show TBIM (L, ) show SM (D) show TBIM (a L, ) show SM (D) show TBIM (b L) show TBM ( ]) show %(luminance difference) showen %(Leuchtdichte\255Diffenz\255) showde xt0 yt0 ytd 1 mul sub moveto TBM (3 difference thresholds) showen TBM (3 Differenzrenzschwelle) showde } if %MDK3=0 MDK3 1 eq {%MDK3=1 TBM (log [) show TBIM (L/) show SM (D) show TBIM (L, ) show TBIM (L/\050) show SM (D) show TBIM (a L\051, ) show TBIM (L/\050) show SM (D) show TBIM (b L\051) show TBM ( ]) show %(luminance contrast) showen %(Leuchtdichte\255Kontrast\255) showde xt0 yt0 ytd 1 mul sub moveto TBM (3 sensitivity thresholds) showen TBM (3 Empfindlichkeitsschwellen) showde } if %MDK3=1 MDK3 2 eq {%MDK3=2 TBIM (L/) show SM (D) show TBIM (L, ) show TBIM (L/\050) show SM (D) show TBIM (a L\051, ) show TBIM (L/\050) show SM (D) show TBIM (b L\051) show %(luminance contrast) showen %(Leuchtdichte\255Kontrast\255) showde xt0 150 sub yt0 ytd 1 mul sub moveto TBM (3 sensitivity thresholds) showen TBM (3 Empfindlichkeitsschwellen) showde } if %MDK3=2 tfn MDK3 0 eq {/xa1 300 def} %for tables {/xa1 200 def} ifelse /ishowg {0 -50 rmoveto TBM (g) show 0 50 rmoveto} def /ishowp {0 -50 rmoveto TBM (p) show 0 50 rmoveto} def /eshow2 {-30 100 rmoveto TBK (2) show 0 100 rmoveto} def newpath /xa2 3950 def /ya2 yt0 100 sub def xa2 100 sub ya2 130 add 50 00 360 arc fill newpath tfw xa2 ya2 moveto TBIK (L) show ishowg TBK (=60cd/m) show eshow2 tfw 550 400 translate 50 setlinewidth 0 0 moveto 700 6 mul 0 rlineto stroke 0 0 moveto 0 700 4 mul rlineto stroke TBM /tx [(-3) (-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty [(-2) (-1) ( 0) ( 1) ( 2) ( 3)] def /ty5 [( 0) (100) (200) (300) (400) (500) (600) (700)] def %!x-Achse: 1 log-Einheiten = 700 Skalen-Einheiten 0 1 5 {/i exch def /ixt { -250 i 0700 mul add} def /ixl { 000 i 0700 mul add} def ixt -350 moveto tx i get exec show ixl 75 moveto 0 -150 rlineto stroke } for %!y-Achse: 1 log-Einheiten = 700 Skalen-Einheiten 0 1 4 {/i exch def /iyt {-120 i 0700 mul add} def /iyl { 000 i 0700 mul add} def MDK3 1 le {%MDK3<=1 -450 iyt moveto ty i get exec show } if %MDK3<=1 MDK3 2 eq {%MDK3=2 -450 iyt moveto ty5 i get exec show } if %MDK3=2 -75 iyl moveto 150 0 rlineto stroke } for 50 setlinewidth 3900 -250 moveto (x) TBIM tfw show 20 0 rmoveto (=) TBM tfw show 20 0 rmoveto (log) TBM tfw show 30 0 rmoveto TBIM (L) show /ishowg {0 -50 rmoveto TBM (g) show 0 50 rmoveto} def /ishowp {0 -50 rmoveto TBM (p) show 0 50 rmoveto} def /eshow2 {0 100 rmoveto TBK (2) show 0 100 rmoveto} def /eshowA2 {0 100 rmoveto TBK (A2) show 0 100 rmoveto} def /yd 300 def MDK3 0 eq MDK3 2 eq or {%MDK3=0,2 %table 1 left /xt10 200 def /xt11 500 def /xt12 1100 def /yt10 2750 def %table 2 right /xt20 1800 def /yt20 2750 def } if %MDK3=0,2 MDK3 1 eq {%MDK3=1 %table 1 right /xt10 3200 def /xt11 3500 def /xt12 4100 def /yt10 2050 def %table 2 left /xt20 200 def /yt20 2700 def } if %MDK3=1 tfw xt11 yt10 moveto TBIM (x) show xt12 yt10 moveto TBIM (y) show tfw xt10 yt10 yd sub moveto (A) show tfw xt11 yt10 yd sub moveto (0,32) show xt12 yt10 yd sub moveto (0,36) show xt10 yt10 yd 2 mul sub moveto (experiments:) show % 11 297 WDN_WN 60cd/m**2 27 5 5 % 11 231 WDN_TM 60cd/m**2 21 4 5 % 11 44 WDN_BY 60cd/m**2 4 0 5 % 22 308 QPN_QN 60cd/m**2 28 6 6 % 22 242 QPN_TM 60cd/m**2 22 4 6 % 22 55 QPN_BY 60cd/m**2 5 0 6 xchartl 00 eq xchartl 08 eq or {/xchartx1 00 def} if %WDN_WN xchartl 01 eq xchartl 09 eq or {/xchartx1 01 def} if %WDN_TM xchartl 02 eq xchartl 10 eq or {/xchartx1 02 def} if %WDN_BY xchartl 03 eq xchartl 11 eq or {/xchartx1 00 def %WDN_WN /xchartx2 01 def %WDN_TM /xchartx3 02 def %WDN_BY } if tfw xt20 yt20 yd 0 mul sub moveto (Exp.: ) show xchartl 08 eq {(WDN_WN) show} if xchartl 09 eq {(WDS-TM) show} if xchartl 10 eq {(WDS_BY) show} if xchartl 11 eq {(WDS_WS,TM,BY) show} if xchartl 12 eq {(QPN_QN) show} if xchartl 13 eq {(QPN_TM) show} if xchartl 14 eq {(QPN_BY) show} if xchartl 15 eq {(QPN_QN,TM,BY) show} if tfw xt20 yt20 yd 1 mul sub moveto (09 5s ) show xt20 yt20 yd 2 mul sub moveto (average) showen (Mittel) showde newpath /xfact 700 def MDK3 0 eq MDK3 1 eq or {/yfact 700 def} if MDK3 2 eq {/yfact 07 def} if tfn 60 log 3 add xfact mul 0 50 00 360 arc fill /xgr 22 array def /ygr 22 array def /ygs 22 array def /ygp 22 array def /ygm 22 array def /xga 22 array def /yga 22 array def /xanGi 22 array def %usually constant for i! /yanGi 22 array def /zanGi 22 array def /YGi 22 array def /YLGi 22 array def /aanGi 22 array def /banGi 22 array def /cabGi 22 array def /xanFi 22 array def /yanFi 22 array def /zanFi 22 array def /YFi 22 array def /YLFi 22 array def /xanPi 22 array def /yanPi 22 array def /zanPi 22 array def /YPi 22 array def /YLPi 22 array def /aanFi 22 array def /banFi 22 array def /cabFi 22 array def /aanPi 22 array def /banPi 22 array def /cabPi 22 array def /DxanFPi 22 array def /DyanFPi 22 array def /DYFPi 22 array def /DYLFPi 22 array def /DaanFPi 22 array def /DbanFPi 22 array def /DcabFPi 22 array def /DxanFGi 22 array def /DyanFGi 22 array def /DYFGi 22 array def /DYLFGi 22 array def /DaanFGi 22 array def /DbanFGi 22 array def /DcabFGi 22 array def /ver {00 -70 rmoveto 0 140 rlineto stroke} def /hor {-70 0 rmoveto 140 0 rlineto stroke} def /dgr {-50 -50 rmoveto 100 100 rlineto stroke} def /dgl {-50 50 rmoveto 100 -100 rlineto stroke} def /xs2 2 def /ys2 2 def /xs3 3 def /ys3 3 def /KJ 0 def xchartl 8 ge {/KJ 1 def} if 0 1 KJ {/kx exch def %kx=0,1 kx 1 eq {%kx=1 /A1 06 array def %for 11 data sets for 3 illuminants (630, 63, 6.3cd/m**2) /A2 06 array def /A3 06 array def /ALPHA 06 array def %change of j=0,1 -> j=0,3 etc. %AURI_HPPOTXY2_L5.FOR, IN/OUT AURI_HPPOTXY2_L5.DAT'/.TXT/.LIS %LM0,KX,JM,X00(J),(3I3,6F7.4): %040 99 02 0.1000 1.1000 0.1960 %040 99 03 0.1000 1.1000 0.1960 %040 99 02 0.0095 1.4050 1.7500 %LM0,KX,JM,(X00(J),J=1,6): 40 10 3 0.0030 1.8000 0.3238 0.0000 0.0000 0.0000 %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 0 %% DUMMY AURI_HPPOTXY2_L5.DAT %% Programm: RICHDA06.FOR 2014_04_01 %% Output file: RICHDA06.TXT 2014_04_01 %%000000 1 2 3 4 5 6 7 %%123456789012345678901234567890123456789012345678901234567890123456789012345 %%210000 x y Y L delta_x delta_y delta_Y ObReJNSu___ %EQUATIONS USED %F(I)=A3+A1*Y(I)**A2 %A(I,1)=Y(I)**A2 %C d/dx a**x = a**x * ln(a) %A(I,2)=A1*Y(I)**A2*ALOG(Y(I)) %A(I,3)=1. %A(I,JMP)=V(I)-F(I) % % %11 297 WDN_WN 60cd/m**2 27 5 5,LM0,KX,JM,JNR,IM: 40 10 3 0 11 %BEG X0K,J=1,6 0.3000E-02 0.1800E+01 0.6000E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.5393E+00 %END X(I),I=1,JM 0.1266E-05-0.9416E-04-0.1401E-05 %END X0K,J=1,6 0.1060E-01 0.7138E+00 0.3767E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.1699E-02 ALPHA 0 0.1699E-02 put A1 0 0.1060E-01 put A2 0 0.7138E+00 put A3 0 0.3767E-01 put % %22 308 QPN_QN 60cd/m**2 28 6 6,LM0,KX,JM,JNR,IM: 40 10 3 1 22 %BEG X0K,J=1,6 0.3000E-02 0.1800E+01 0.6000E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.8233E+00 %END X(I),I=1,JM-0.6481E-06-0.9549E-04 0.2667E-05 %END X0K,J=1,6 0.9091E-02 0.9028E+00 0.5307E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.3314E-02 ALPHA 3 0.3314E-02 put A1 3 0.9091E-02 put A2 3 0.9028E+00 put A3 3 0.5307E-01 put %AURI_HPPOTXY4_L5.FOR, IN/OUT AURI_HPPOTXY4_L5.DAT'/.TXT/.LIS %LM0,KX,JM,X00(J),(3I3,6F7.4): %040 99 02 0.1000 1.1000 0.1960 %040 99 03 0.1000 1.1000 0.1960 %040 99 02 0.0095 1.4050 1.7500 %LM0,KX,JM,(X00(J),J=1,6): 40 10 3 0.0030 1.8000 0.3238 0.0000 0.0000 0.0000 %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 0 %% DUMMY AURI_HPPOTXY4_L5.DAT %% Programm: RICHDA06.FOR 2014_04_01 %% Output file: RICHDA06.TXT 2014_04_01 %%000000 1 2 3 4 5 6 7 %%123456789012345678901234567890123456789012345678901234567890123456789012345 %%210000 x y Y L delta_x delta_y delta_Y ObReJNSu___ %EQUATIONS USED %F(I)=A3+A1*Y(I)**A2 %A(I,1)=Y(I)**A2 %C d/dx a**x = a**x * ln(a) %A(I,2)=A1*Y(I)**A2*ALOG(Y(I)) %A(I,3)=1. %A(I,JMP)=V(I)-F(I) % % %11 231 WDN_TM 60cd/m**2 21 4 5,LM0,KX,JM,JNR,IM: 40 10 3 0 11 %BEG X0K,J=1,6 0.3000E-02 0.1800E+01 0.4937E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.4708E+00 %END X(I),I=1,JM 0.2590E-08-0.9903E-04 0.6937E-06 %END X0K,J=1,6 0.7606E-02 0.8573E+00 0.3666E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.2262E-03 ALPHA 1 0.2262E-03 put A1 1 0.7606E-02 put A2 1 0.8573E+00 put A3 1 0.3666E-01 put % %22 242 QPN_TM 60cd/m**2 22 4 6,LM0,KX,JM,JNR,IM: 40 10 3 1 22 %BEG X0K,J=1,6 0.3000E-02 0.1800E+01 0.4182E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.8326E+00 %END X(I),I=1,JM 0.1277E-05-0.9528E-04-0.5884E-06 %END X0K,J=1,6 0.1040E-01 0.8745E+00 0.4000E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.6617E-03 ALPHA 4 0.6617E-03 put A1 4 0.1040E-01 put A2 4 0.8745E+00 put A3 4 0.4000E-01 put %AURI_HPPOTXY6_L5.FOR, IN/OUT AURI_HPPOTXY6_L5.DAT'/.TXT/.LIS %LM0,KX,JM,X00(J),(3I3,6F7.4): %040 99 02 0.1000 1.1000 0.1960 %040 99 03 0.1000 1.1000 0.1960 %040 99 02 0.0095 1.4050 1.7500 %LM0,KX,JM,(X00(J),J=1,6): 40 10 3 0.0030 1.8000 0.3238 0.0000 0.0000 0.0000 %% Steering: (IDATA(I),I=1,5),xyYLcx,xyYLgi,CIELAB,LABJND 1 0 0 0 0 %%DUMMY THIS FILE AURI_HPPOTXY6_L5.DAT %% Programm: RICHDA06.FOR 2014_04_01 %% Output file: RICHDA06.TXT 2014_04_01 %%000000 1 2 3 4 5 6 7 %%123456789012345678901234567890123456789012345678901234567890123456789012345 %%210000 x y Y L delta_x delta_y delta_Y ObReJNSu___ %EQUATIONS USED %F(I)=A3+A1*Y(I)**A2 %A(I,1)=Y(I)**A2 %C d/dx a**x = a**x * ln(a) %A(I,2)=A1*Y(I)**A2*ALOG(Y(I)) %A(I,3)=1. %A(I,JMP)=V(I)-F(I) % % %11 44 WDN_BY 60cd/m**2 4 0 5,LM0,KX,JM,JNR,IM: 40 10 3 0 11 %BEG X0K,J=1,6 0.3000E-02 0.1800E+01 0.2915E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.8145E+00 %END X(I),I=1,JM 0.6886E-06-0.9581E-04-0.8706E-06 %END X0K,J=1,6 0.7545E-02 0.6760E+00 0.1604E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.2751E-03 ALPHA 2 0.2751E-03 put A1 2 0.7545E-02 put A2 2 0.6760E+00 put A3 2 0.1604E-01 put % %22 55 QPN_BY 60cd/m**2 5 0 6,LM0,KX,JM,JNR,IM: 40 10 3 1 22 %BEG X0K,J=1,6 0.3000E-02 0.1800E+01 0.2576E-01 0.0000E+00 0.0000E+00 0.0000E+00 %BEG ALPHA= 0.1050E+01 %END X(I),I=1,JM 0.5540E-06-0.9972E-04 0.4315E-06 %END X0K,J=1,6 0.9227E-02 0.8223E+00 0.2536E-01 0.0000E+00 0.0000E+00 0.0000E+00 %END ALPHA= 0.1474E-02 ALPHA 5 0.1474E-02 put A1 5 0.9227E-02 put A2 5 0.8223E+00 put A3 5 0.2536E-01 put } if %kx=1 /xchartl4 xchartl 4 idiv def %0..3 xchartl4 0 eq xchartl4 2 eq or {/IM 10 def} {/IM 21 def} ifelse /JM 0 def xchartl 03 eq xchartl 07 eq or xchartl 11 eq or xchartl 15 eq or {/JM 2 def} if % 11 297 WDN_WN 60cd/m**2 27 5 5 % 11 231 WDN_TM 60cd/m**2 21 4 5 % 11 44 WDN_BY 60cd/m**2 4 0 5 % 22 308 QPN_QN 60cd/m**2 28 6 6 % 22 242 QPN_TM 60cd/m**2 22 4 6 % 22 55 QPN_BY 60cd/m**2 5 0 6 /j 0 def 0 1 JM {/j exch def %j=0,JM %xchartl 00 eq %xchartl 04 eq or %xchartl 08 eq or %xchartl 12 eq or xchartl 00 eq xchartl 08 eq or {/k17_11 00 17 mul def /jx 0 def} if xchartl 01 eq xchartl 09 eq or {/k17_11 11 17 mul def /jx 1 def} if xchartl 02 eq xchartl 10 eq or {/k17_11 22 17 mul def /jx 2 def} if xchartl 03 eq xchartl 11 eq or {%xchartl=3,11 j 0 eq {/k17_11 00 17 mul def /jx 0 def} if j 1 eq {/k17_11 11 17 mul def /jx 1 def} if j 2 eq {/k17_11 22 17 mul def /jx 2 def} if } if %xchartl=3,11 xchartl 04 eq xchartl 12 eq or {/k17_11 33 17 mul def /jx 3 def} if xchartl 05 eq xchartl 13 eq or {/k17_11 55 17 mul def /jx 4 def} if xchartl 06 eq xchartl 14 eq or {/k17_11 77 17 mul def /jx 5 def} if xchartl 07 eq xchartl 15 eq or {%xchartl=07,15 j 0 eq {/k17_11 33 17 mul def /jx 3 def} if j 1 eq {/k17_11 55 17 mul def /jx 4 def} if j 2 eq {/k17_11 77 17 mul def /jx 5 def} if } if %xchartl=07,15 0 1 IM {/i exch def %i=0,IM /j0 i 17 mul k17_11 add def xanFi i AVR2DA05 j0 01 add get put yanFi i AVR2DA05 j0 02 add get put zanFi i 1 xanFi i get sub yanFi i get sub put zanFi i get 0 le {zanFi i 0.0001 put} if YFi i AVR2DA05 j0 03 add get put YLFi i AVR2DA05 j0 04 add get put DxanFPi i AVR2DA05 j0 05 add get put DyanFPi i AVR2DA05 j0 06 add get put DYFPi i AVR2DA05 j0 07 add get put DYLFPi i AVR2DA05 j0 13 add get put xanGi i AVR2DA05 j0 14 add get put yanGi i AVR2DA05 j0 15 add get put zanGi i 1 xanGi i get sub yanGi i get sub put zanGi i get 0 le {zanGi i 0.0001 put} if YGi i AVR2DA05 j0 16 add get put xanPi i xanFi i get DxanFPi i get add put yanPi i yanFi i get DyanFPi i get add put zanPi i 1 xanPi i get sub yanPi i get sub put zanPi i get 0 le {zanPi i 0.0001 put} if YPi i YFi i get DYFPi i get add put YLPi i YLFi i get DYLFPi i get add put aanFi i xanFi i get yanFi i get 0.0001 add div put banFi i zanFi i get yanFi i get 0.0001 add div -0.4 mul put aanPi i xanPi i get yanPi i get 0.0001 add div put banPi i zanPi i get yanPi i get 0.0001 add div -0.4 mul put DaanFPi i aanPi i get aanFi i get sub put DbanFPi i banPi i get banFi i get sub put DcabFPi i DaanFPi i get dup mul DbanFPi i get dup mul add 0.000001 add 0.5 exp put aanGi i xanGi i get yanGi i get 0.0001 add div put banGi i zanGi i get yanGi i get 0.0001 add div -0.4 mul put DaanFGi i aanFi i get aanGi i get sub put DbanFGi i banFi i get banGi i get sub put DcabFGi i DaanFGi i get dup mul DbanFGi i get dup mul add 0.000001 add 0.5 exp put %allways: xgr i YLFi i get put MDK3 0 eq {%MDK3=0 dL, delta_a*L, delta_b*L xchartl 00 eq xchartl 04 eq or xchartl 08 eq or xchartl 12 eq or {%DLi j 0 eq j 3 eq or {ygr i DYLFPi i get put} if } if %DLi xchartl 01 eq xchartl 05 eq or xchartl 09 eq or xchartl 13 eq or {%DaanFPi*Li j 0 eq j 4 eq or {ygr i DaanFPi i get abs YLFi i get mul put} if } if %DaanFi*Li xchartl 02 eq xchartl 06 eq or xchartl 10 eq or xchartl 14 eq or {%DbanFi*Li j 0 eq j 5 eq or {ygr i DbanFPi i get abs YLFi i get mul put} if } if %dbanFi*Fi xchartl 03 eq xchartl 07 eq or xchartl 11 eq or xchartl 15 eq or {%DLi,DaanFPi*Li,DbanFPi*Li j 0 eq j 3 eq or {ygr i DYLFPi i get put} if j 1 eq j 4 eq or {ygr i DaanFPi i get abs YLFi i get mul put} if j 2 eq j 5 eq or {ygr i DbanFPi i get abs YLFi i get mul put} if } if %DLi,DaanFPi*Li,DbanFPi*Li } if %MDK3=0 dL MDK3 1 eq MDK3 2 eq or {%MDK3=1,2 L/dL log and linear xchartl 00 eq xchartl 04 eq or xchartl 08 eq or xchartl 12 eq or {%DLi j 0 eq j 3 eq or {ygr i xgr i get DYLFPi i get div put} if } if %DLi xchartl 01 eq xchartl 05 eq or xchartl 09 eq or xchartl 13 eq or {%DaanFPi*Li j 0 eq j 4 eq or {ygr i xgr i get DaanFPi i get abs YLFi i get mul div put} if } if %DaanFi*Li xchartl 02 eq xchartl 06 eq or xchartl 10 eq or xchartl 14 eq or {%DbanFi*Li j 0 eq j 5 eq or {ygr i xgr i get DbanFPi i get abs YLFi i get mul div put} if } if %dbanFi*Fi xchartl 03 eq xchartl 07 eq or xchartl 11 eq or xchartl 15 eq or {%DLi,DaanFPi*Li,DbanFPi*Li j 0 eq j 3 eq or {ygr i xgr i get DYLFPi i get div put} if j 1 eq j 4 eq or {ygr i xgr i get DaanFPi i get abs YLFi i get mul div put} if j 2 eq j 5 eq or {ygr i xgr i get DbanFPi i get abs YLFi i get mul div put} if } if %DLi,DaanFPi*Li,DbanFPi*Li } if %MDK3=0 L/dL kx 1 eq {%kx=1 xga i xgr i get put yga i ygr i get put } if %kx=1 } for %i=0,IM 0 1 IM {/i exch def %i=0,IM /ig i 2 idiv 2 mul def xchartl 00 eq xchartl 04 eq or xchartl 08 eq or xchartl 12 eq or {%xchartl=00,04,08,12 i ig eq {tfn}{tfw} ifelse } if %xchartl=00,04,08,12 xchartl 01 eq xchartl 05 eq or xchartl 09 eq or xchartl 13 eq or {%xchartl=01,05,09,13 i ig eq {tfr}{tfg} ifelse } if %xchartl=01,05,09,13 xchartl 02 eq xchartl 06 eq or xchartl 10 eq or xchartl 14 eq or {%xchartl=02,06,10,14 i ig eq {tfy}{tfb} ifelse } if %xchartl=02,06,10,14 xchartl 03 eq xchartl 07 eq or xchartl 11 eq or xchartl 15 eq or {%xchartl=03,07,11,15 j 0 eq j 3 eq or {i ig eq {tfw}{tfn} ifelse } if j 1 eq j 4 eq or {i ig eq {tfr}{tfg} ifelse } if j 2 eq j 5 eq or {i ig eq {tfy}{tfb} ifelse } if } if %xchartl=03,07,11,15 xgr i get log xs3 add xfact mul ygr i get 0.001 add MDK3 1 le {log} if ys2 add yfact mul moveto dgr xgr i get log xs3 add xfact mul ygr i get 0.001 add MDK3 1 le {log} if ys2 add yfact mul moveto dgl } for %i=0,IM kx 1 eq {%kx=1 50 setlinewidth 0 1 IM {/i exch def %i=0,IM MDK3 0 eq {%MDK3=0 dL ygr i A3 jx get A1 jx get xga i get A2 jx get exp mul add put } if %MDK3=0 dL MDK3 1 eq MDK3 2 eq or {%MDK3=1,2 L/dL log and linear ygr i xga i get A3 jx get A1 jx get xga i get A2 jx get exp mul add div put } if %MDK3=0 L/dL xgr i get log xs3 add xfact mul ygr i get 0.001 add MDK3 1 le {log} if ys2 add yfact mul i 00 eq {moveto} if i 01 gt i IM lt and {lineto} if i IM eq {lineto stroke} if } for %i=0,IM xchartl 8 ge {%xchartl>=8 TBK j 0 eq {%j=0 /xa3 xa1 100 sub def /ya3 1750 def newpath tfn xa3 ya3 moveto (F=A3+A1*L) show (A2) eshowA2 xa3 ya3 250 sub moveto (Daten & P-A3-Fit) showde (data & P-A3-fit) showen xa3 100 add ya3 500 sub moveto TBK (A1 A2 A3) show ( ) show SK (D) show TK } if %j=0 newpath tfn xa3 ya3 750 sub xchartl 11 eq {250 jx mul sub} if xchartl 15 eq {250 jx 3 sub mul sub} if moveto TK A1 jx get cvsshow3 ( ) show A2 jx get cvsshow3 ( ) show A3 jx get cvsshow3 ( ) show ALPHA jx get cvsshow3 tfw newpath } if %xchartl>=8 } if %kx=1 } for %j=0,JM } for %kx=0,1 tfn 60 log 3 add xfact mul 0 50 00 360 arc fill 550 neg 400 neg translate %special space for 'xm03'PROZ0.COM 2x before/after xchartl % xchartl 0 eq { 100 neg 13000 neg translate} if % xchartl 1 eq { 6100 neg 13000 neg translate} if % xchartl 2 eq { 100 neg 08750 neg translate} if % xchartl 3 eq { 6100 neg 08750 neg translate} if % xchartl 4 eq { 100 neg 4500 neg translate} if % xchartl 5 eq { 6100 neg 4500 neg translate} if % xchartl 6 eq { 100 neg 0250 neg translate} if % xchartl 7 eq { 6100 neg 0250 neg translate} if % xchartl 8 eq {13500 neg 13000 neg translate} if % xchartl 9 eq {19500 neg 13000 neg translate} if % xchartl 10 eq {13500 neg 08750 neg translate} if % xchartl 11 eq {19500 neg 08750 neg translate} if % xchartl 12 eq {13500 neg 4500 neg translate} if % xchartl 13 eq {19500 neg 4500 neg translate} if % xchartl 14 eq {13500 neg 0250 neg translate} if % xchartl 15 eq {19500 neg 0250 neg translate} if grestore %} for %xchartl=0,15 showpage grestore } for %xchart=0,2 for MDK: 0=6,3cd/m**2 %%Trailer