54#ifndef _DONNEES_VIT_CURVED_RECT_DUCT
55#define _DONNEES_VIT_CURVED_RECT_DUCT
56static float _H = 20.3e-2;
64static float Zin1[] = { 0.62500E-01, 0.12500E+00, 0.18750E+00, 0.25000E+00, 0.37500E+00, 0.50000E+00, 0.75000E+00, 0.10000E+01};
66static float Yin1[] = { 0.12500E-01, 0.18750E-01, 0.25000E-01, 0.31250E-01, 0.37500E-01, 0.43750E-01, 0.50000E-01, 0.56250E-01, 0.62500E-01, 0.75000E-01, 0.87500E-01, 0.10000E+00, 0.12500E+00};
70 0.66100E+00, 0.69100E+00, 0.72600E+00, 0.75800E+00, 0.77900E+00, 0.79400E+00, 0.81000E+00, 0.82200E+00, 0.83600E+00, 0.85400E+00, 0.86200E+00, 0.87000E+00, 0.89300E+00,
71 0.65700E+00, 0.69800E+00, 0.71100E+00, 0.73900E+00, 0.76300E+00, 0.78600E+00, 0.81900E+00, 0.84600E+00, 0.84900E+00, 0.89300E+00, 0.91400E+00, 0.92900E+00, 0.93900E+00,
72 0.69900E+00, 0.74100E+00, 0.77400E+00, 0.79900E+00, 0.81800E+00, 0.85500E+00, 0.87000E+00, 0.88300E+00, 0.89600E+00, 0.91900E+00, 0.94400E+00, 0.94600E+00, 0.95200E+00,
73 0.72800E+00, 0.76600E+00, 0.79700E+00, 0.82400E+00, 0.85100E+00, 0.88000E+00, 0.89500E+00, 0.91000E+00, 0.93200E+00, 0.95000E+00, 0.95200E+00, 0.96000E+00, 0.96000E+00,
74 0.76300E+00, 0.80600E+00, 0.83400E+00, 0.85900E+00, 0.87900E+00, 0.91000E+00, 0.92300E+00, 0.93700E+00, 0.95300E+00, 0.96900E+00, 0.96900E+00, 0.97300E+00, 0.97200E+00,
75 0.77500E+00, 0.81400E+00, 0.83800E+00, 0.85600E+00, 0.88800E+00, 0.90700E+00, 0.93400E+00, 0.94100E+00, 0.94900E+00, 0.96500E+00, 0.97700E+00, 0.98100E+00, 0.98200E+00,
76 0.76800E+00, 0.81500E+00, 0.84300E+00, 0.86200E+00, 0.89000E+00, 0.91500E+00, 0.93600E+00, 0.94900E+00, 0.96100E+00, 0.97500E+00, 0.98300E+00, 0.98800E+00, 0.99100E+00,
77 0.76600E+00, 0.81300E+00, 0.85900E+00, 0.88100E+00, 0.91400E+00, 0.93900E+00, 0.95600E+00, 0.97600E+00, 0.98600E+00, 0.99200E+00, 0.99300E+00, 0.99500E+00, 0.99400E+00
81 -0.20400E-01, -0.19900E-01, -0.15800E-01, -0.10300E-01, -0.82700E-02, -0.16000E-02, -0.20800E-02, 0.15500E-02, 0.37500E-02, 0.66700E-02, 0.83900E-02, 0.77100E-02, 0.10700E-01,
82 -0.57700E-02, -0.48500E-03, -0.14500E-03, 0.57600E-03, 0.14000E-02, 0.78400E-04, 0.28700E-02, 0.18100E-02, 0.41600E-02, 0.61100E-02, 0.81800E-02, 0.13800E-01, 0.14600E-01,
83 -0.12800E-01, -0.89100E-02, -0.73700E-02, -0.66100E-02, -0.31900E-02, 0.18300E-02, 0.12500E-02, 0.23500E-02, 0.56300E-02, 0.97300E-02, 0.16600E-01, 0.17200E-01, 0.13300E-01,
84 -0.10000E-01, -0.94100E-02, -0.64400E-02, -0.55100E-02, -0.50400E-02, -0.17900E-02, 0.17800E-02, 0.60200E-03, 0.60400E-02, 0.11400E-01, 0.14000E-01, 0.14600E-01, 0.11300E-01,
85 -0.78100E-02, -0.72900E-02, -0.82200E-02, -0.69900E-02, -0.72000E-02, -0.24000E-02, -0.75100E-03, 0.11200E-02, 0.43100E-02, 0.10600E-01, 0.13000E-01, 0.11900E-01, 0.90400E-02,
86 -0.50300E-02, -0.93600E-02, -0.67600E-02, -0.66700E-02, -0.16900E-02, -0.39500E-02, -0.53000E-03, 0.16500E-02, 0.33700E-02, 0.67500E-02, 0.94000E-02, 0.93000E-02, 0.72200E-02,
87 -0.49700E-02, -0.84200E-02, -0.57000E-02, -0.76500E-02, -0.35200E-02, -0.21600E-02, 0.87900E-03, 0.12300E-02, 0.12000E-02, 0.62100E-02, 0.12100E-01, 0.13100E-01, 0.12100E-01,
88 -0.42300E-02, -0.12300E-01, -0.11200E-01, -0.11300E-01, -0.92200E-02, -0.87800E-02, -0.67500E-02, -0.12800E-02, 0.33000E-02, 0.97700E-02, 0.99500E-02, 0.84600E-02, 0.87100E-02
92 0.36900E-01, 0.30700E-01, 0.24300E-01, 0.15200E-01, 0.11400E-01, 0.79500E-02, 0.46300E-02, 0.93100E-03, -0.16700E-02, -0.80400E-02, -0.89900E-02, -0.94500E-02, -0.12600E-01,
93 0.51900E-01, 0.41800E-01, 0.38400E-01, 0.32200E-01, 0.30400E-01, 0.23000E-01, 0.21800E-01, 0.14900E-01, 0.14800E-01, 0.10100E-01, 0.74100E-02, 0.53900E-02, 0.48300E-02,
94 0.46000E-01, 0.39000E-01, 0.38100E-01, 0.31000E-01, 0.27400E-01, 0.22500E-01, 0.21100E-01, 0.16400E-01, 0.16500E-01, 0.12800E-01, 0.11400E-01, 0.10900E-01, 0.81800E-02,
95 0.42800E-01, 0.39100E-01, 0.35800E-01, 0.30900E-01, 0.28200E-01, 0.27400E-01, 0.23100E-01, 0.21200E-01, 0.19200E-01, 0.16100E-01, 0.14700E-01, 0.14500E-01, 0.11900E-01,
96 0.43800E-01, 0.40100E-01, 0.35500E-01, 0.32800E-01, 0.31500E-01, 0.30100E-01, 0.26800E-01, 0.25000E-01, 0.23000E-01, 0.19600E-01, 0.19100E-01, 0.20300E-01, 0.16400E-01,
97 0.32300E-01, 0.32000E-01, 0.32300E-01, 0.30500E-01, 0.27300E-01, 0.29200E-01, 0.23300E-01, 0.21300E-01, 0.21400E-01, 0.20500E-01, 0.17200E-01, 0.16200E-01, 0.14100E-01,
98 0.26000E-01, 0.21600E-01, 0.22100E-01, 0.20500E-01, 0.20100E-01, 0.17500E-01, 0.17800E-01, 0.15300E-01, 0.14600E-01, 0.13400E-01, 0.14100E-01, 0.12300E-01, 0.11800E-01,
99 0.17300E-01, 0.14400E-01, 0.15200E-01, 0.16100E-01, 0.13400E-01, 0.13800E-01, 0.10800E-01, 0.11700E-01, 0.11100E-01, 0.88300E-02, 0.71300E-02, 0.54300E-02, 0.54600E-02
106static int Nzup1 = 18;
107static float Zup1[] = { 0.15625E-01, 0.21875E-01, 0.28125E-01, 0.37500E-01, 0.50000E-01, 0.62500E-01, 0.75000E-01, 0.10000E+00, 0.12500E+00, 0.16250E+00, 0.20000E+00, 0.25000E+00, 0.31250E+00, 0.37500E+00, 0.50000E+00, 0.62500E+00, 0.75000E+00, 0.10000E+01};
108static int Nyup1 = 17;
109static float Yup1[] = { 0.12500E+00, 0.18750E+00, 0.25000E+00, 0.31250E+00, 0.37500E+00, 0.40625E+00, 0.43750E+00, 0.46875E+00, 0.50000E+00, 0.53125E+00, 0.56250E+00, 0.59375E+00, 0.62500E+00, 0.68750E+00, 0.75000E+00, 0.81250E+00, 0.87500E+00};
113 0.73400E+00, 0.78700E+00, 0.79500E+00, 0.78200E+00, 0.71900E+00, 0.67300E+00, 0.71100E+00, 0.83500E+00, 0.86400E+00, 0.83300E+00, 0.70200E+00, 0.69100E+00, 0.74000E+00, 0.81600E+00, 0.84100E+00, 0.83900E+00, 0.79000E+00,
114 0.77800E+00, 0.81500E+00, 0.82300E+00, 0.82300E+00, 0.76700E+00, 0.71000E+00, 0.76100E+00, 0.87200E+00, 0.90300E+00, 0.84500E+00, 0.74800E+00, 0.73300E+00, 0.78600E+00, 0.86300E+00, 0.88300E+00, 0.88100E+00, 0.83800E+00,
115 0.81700E+00, 0.86300E+00, 0.87500E+00, 0.86000E+00, 0.80100E+00, 0.73900E+00, 0.79700E+00, 0.90300E+00, 0.93500E+00, 0.89000E+00, 0.75800E+00, 0.75000E+00, 0.82600E+00, 0.89000E+00, 0.92400E+00, 0.91300E+00, 0.88400E+00,
116 0.84900E+00, 0.89300E+00, 0.90800E+00, 0.91400E+00, 0.84900E+00, 0.77400E+00, 0.79900E+00, 0.91100E+00, 0.95700E+00, 0.90800E+00, 0.79100E+00, 0.78500E+00, 0.86300E+00, 0.93600E+00, 0.95600E+00, 0.95300E+00, 0.92600E+00,
117 0.89900E+00, 0.93400E+00, 0.96200E+00, 0.95400E+00, 0.88400E+00, 0.80700E+00, 0.81400E+00, 0.92300E+00, 0.95900E+00, 0.90900E+00, 0.82800E+00, 0.83800E+00, 0.89600E+00, 0.96900E+00, 0.98700E+00, 0.98100E+00, 0.96600E+00,
118 0.94200E+00, 0.95900E+00, 0.97400E+00, 0.97900E+00, 0.91300E+00, 0.84100E+00, 0.83600E+00, 0.90600E+00, 0.94300E+00, 0.90600E+00, 0.82500E+00, 0.84900E+00, 0.92600E+00, 0.98600E+00, 0.99000E+00, 0.98400E+00, 0.97500E+00,
119 0.95900E+00, 0.96900E+00, 0.98200E+00, 0.98400E+00, 0.94300E+00, 0.87400E+00, 0.85000E+00, 0.91700E+00, 0.93600E+00, 0.89400E+00, 0.84100E+00, 0.87800E+00, 0.94000E+00, 0.98600E+00, 0.99000E+00, 0.98600E+00, 0.97800E+00,
120 0.96900E+00, 0.97200E+00, 0.98400E+00, 0.98800E+00, 0.96500E+00, 0.91900E+00, 0.88000E+00, 0.91700E+00, 0.93600E+00, 0.90300E+00, 0.88800E+00, 0.92300E+00, 0.96900E+00, 0.99100E+00, 0.99200E+00, 0.98800E+00, 0.98200E+00,
121 0.97100E+00, 0.98100E+00, 0.98800E+00, 0.99000E+00, 0.98200E+00, 0.96100E+00, 0.92900E+00, 0.92400E+00, 0.94600E+00, 0.92200E+00, 0.92500E+00, 0.96200E+00, 0.98700E+00, 0.99300E+00, 0.99000E+00, 0.98600E+00, 0.98200E+00,
122 0.98400E+00, 0.98300E+00, 0.98900E+00, 0.99000E+00, 0.98600E+00, 0.98600E+00, 0.96500E+00, 0.96500E+00, 0.96400E+00, 0.95300E+00, 0.97600E+00, 0.98000E+00, 0.99100E+00, 0.99400E+00, 0.99500E+00, 0.99100E+00, 0.98600E+00,
123 0.98500E+00, 0.98900E+00, 0.99400E+00, 0.99100E+00, 0.98600E+00, 0.99300E+00, 0.98900E+00, 0.97900E+00, 0.97500E+00, 0.98200E+00, 0.98700E+00, 0.99100E+00, 0.99600E+00, 0.99600E+00, 0.99500E+00, 0.99100E+00, 0.98300E+00,
124 0.99100E+00, 0.99000E+00, 0.99400E+00, 0.99900E+00, 0.98900E+00, 0.98800E+00, 0.98900E+00, 0.98800E+00, 0.98500E+00, 0.98900E+00, 0.99200E+00, 0.99500E+00, 0.99800E+00, 0.10000E+01, 0.10000E+01, 0.99600E+00, 0.98400E+00,
125 0.99500E+00, 0.99200E+00, 0.99800E+00, 0.99900E+00, 0.99700E+00, 0.99500E+00, 0.99100E+00, 0.99300E+00, 0.99500E+00, 0.99600E+00, 0.10000E+01, 0.99800E+00, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.99600E+00, 0.98400E+00,
126 0.99900E+00, 0.99700E+00, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10100E+01, 0.10000E+01, 0.10100E+01, 0.10100E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.99000E+00,
127 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10000E+01, 0.10000E+01,
128 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10000E+01,
129 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10200E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10200E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10000E+01,
130 0.10200E+01, 0.10200E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10200E+01, 0.10200E+01, 0.10200E+01, 0.10200E+01, 0.10200E+01, 0.10200E+01, 0.10200E+01, 0.10100E+01, 0.10100E+01, 0.10100E+01, 0.10000E+01
134 0.49800E-01, 0.58500E-01, 0.60600E-01, 0.66500E-01, 0.55500E-01, 0.38200E-01, -0.96900E-02, -0.84700E-02, 0.11800E-01, 0.26500E-01, 0.22500E-01, -0.30900E-01, -0.47200E-01, -0.56300E-01, -0.53200E-01, -0.43200E-01, -0.41100E-01,
135 0.47900E-01, 0.56500E-01, 0.64100E-01, 0.65500E-01, 0.54200E-01, 0.40300E-01, -0.13400E-01, -0.12900E-01, 0.11600E-01, 0.31600E-01, 0.22000E-01, -0.28800E-01, -0.44700E-01, -0.55500E-01, -0.53900E-01, -0.41400E-01, -0.34200E-01,
136 0.42800E-01, 0.51200E-01, 0.60500E-01, 0.66500E-01, 0.57500E-01, 0.42600E-01, -0.13000E-01, -0.10700E-01, 0.11500E-01, 0.29800E-01, 0.18800E-01, -0.33600E-01, -0.48700E-01, -0.60000E-01, -0.50800E-01, -0.38200E-01, -0.30700E-01,
137 0.39000E-01, 0.47000E-01, 0.56400E-01, 0.63400E-01, 0.58600E-01, 0.41600E-01, -0.47400E-02, -0.67600E-02, 0.12000E-01, 0.31000E-01, 0.14000E-01, -0.37400E-01, -0.52500E-01, -0.55400E-01, -0.47800E-01, -0.35400E-01, -0.27200E-01,
138 0.34200E-01, 0.47400E-01, 0.55600E-01, 0.59700E-01, 0.59500E-01, 0.42400E-01, 0.70500E-02, -0.15200E-02, 0.11900E-01, 0.22900E-01, 0.15900E-02, -0.38000E-01, -0.52700E-01, -0.54200E-01, -0.42000E-01, -0.33200E-01, -0.26300E-01,
139 0.31500E-01, 0.45700E-01, 0.48800E-01, 0.53800E-01, 0.57500E-01, 0.46100E-01, 0.19200E-01, 0.57900E-02, 0.10900E-01, 0.91500E-02, -0.14300E-01, -0.45900E-01, -0.50200E-01, -0.46600E-01, -0.35700E-01, -0.30400E-01, -0.23900E-01,
140 0.30900E-01, 0.42000E-01, 0.44500E-01, 0.48700E-01, 0.56900E-01, 0.48100E-01, 0.22800E-01, 0.14700E-01, 0.10500E-01, 0.30200E-02, -0.20400E-01, -0.43500E-01, -0.45700E-01, -0.38000E-01, -0.31200E-01, -0.27300E-01, -0.25200E-01,
141 0.31000E-01, 0.38800E-01, 0.35700E-01, 0.38100E-01, 0.46200E-01, 0.50100E-01, 0.35600E-01, 0.17000E-01, 0.63500E-02, -0.77100E-02, -0.29100E-01, -0.44000E-01, -0.38100E-01, -0.24900E-01, -0.21800E-01, -0.23600E-01, -0.23700E-01,
142 0.31300E-01, 0.35300E-01, 0.29000E-01, 0.27600E-01, 0.33500E-01, 0.37900E-01, 0.33400E-01, 0.18200E-01, 0.43600E-02, -0.16300E-01, -0.31500E-01, -0.34200E-01, -0.26300E-01, -0.12900E-01, -0.14700E-01, -0.19600E-01, -0.25500E-01,
143 0.31300E-01, 0.29100E-01, 0.21500E-01, 0.15300E-01, 0.17200E-01, 0.23800E-01, 0.25200E-01, 0.13600E-01, -0.13300E-02, -0.17800E-01, -0.26500E-01, -0.18300E-01, -0.53700E-02, -0.27500E-02, -0.71600E-02, -0.17400E-01, -0.25500E-01,
144 0.29100E-01, 0.25000E-01, 0.14800E-01, 0.56500E-02, 0.39500E-03, 0.25600E-02, 0.56200E-02, 0.47900E-02, -0.27700E-02, -0.98900E-02, -0.53700E-02, 0.43300E-02, 0.10800E-01, 0.60200E-02, -0.23200E-02, -0.15100E-01, -0.29600E-01,
145 0.27100E-01, 0.21000E-01, 0.10400E-01, -0.10100E-02, -0.14700E-01, -0.20900E-01, -0.16900E-01, -0.67800E-02, 0.29700E-02, 0.15700E-01, 0.24000E-01, 0.25200E-01, 0.21300E-01, 0.12000E-01, -0.10200E-02, -0.12900E-01, -0.27300E-01,
146 0.23500E-01, 0.18400E-01, 0.10400E-01, -0.12700E-03, -0.84500E-02, -0.12400E-01, -0.80000E-02, -0.18400E-02, 0.77900E-02, 0.15600E-01, 0.20300E-01, 0.20000E-01, 0.18600E-01, 0.10700E-01, -0.10300E-02, -0.12400E-01, -0.22800E-01,
147 0.22900E-01, 0.17400E-01, 0.11700E-01, 0.38000E-02, -0.18900E-02, -0.10000E-02, -0.13900E-03, 0.20400E-02, 0.72800E-02, 0.10700E-01, 0.11600E-01, 0.12400E-01, 0.11500E-01, 0.68000E-02, -0.18900E-02, -0.12400E-01, -0.21800E-01,
148 0.21600E-01, 0.15000E-01, 0.10700E-01, 0.63700E-02, 0.50400E-02, 0.37500E-02, 0.32900E-02, 0.32800E-02, 0.37000E-02, 0.45700E-02, 0.49600E-02, 0.45800E-02, 0.15500E-02, 0.67800E-03, -0.45200E-02, -0.10200E-01, -0.18600E-01,
149 0.21500E-01, 0.15000E-01, 0.11000E-01, 0.67600E-02, 0.45700E-02, 0.36600E-02, 0.28300E-02, 0.32400E-02, 0.28200E-02, 0.15200E-02, 0.22600E-03, -0.21700E-03, -0.10700E-02, -0.49600E-02, -0.71300E-02, -0.13700E-01, -0.23000E-01,
150 0.21800E-01, 0.17100E-01, 0.11400E-01, 0.88400E-02, 0.58100E-02, 0.40500E-02, 0.36800E-02, 0.27900E-02, 0.19300E-02, 0.10700E-02, -0.66200E-03, -0.15200E-02, -0.23800E-02, -0.45400E-02, -0.84400E-02, -0.93100E-02, -0.18500E-01,
151 0.19000E-01, 0.14300E-01, 0.11000E-01, 0.75400E-02, 0.45200E-02, 0.36700E-02, 0.27700E-02, 0.14700E-02, 0.62000E-03, -0.11000E-02, -0.23900E-02, -0.28200E-02, -0.36800E-02, -0.62700E-02, -0.11000E-01, -0.15900E-01, -0.19800E-01
155 -0.17400E-01, -0.20300E-01, -0.19900E-01, -0.18700E-01, -0.14100E-01, -0.46300E-02, -0.17000E-01, -0.27500E-01, -0.33000E-01, -0.21800E-01, -0.67800E-02, -0.10800E-01, -0.17700E-01, -0.27300E-01, -0.34800E-01, -0.31900E-01, -0.31100E-01,
156 -0.19500E-01, -0.17600E-01, -0.21100E-01, -0.21600E-01, -0.96100E-02, -0.44500E-02, 0.18000E-02, -0.23400E-01, -0.26700E-01, -0.20100E-01, -0.29400E-02, -0.70600E-02, -0.18500E-01, -0.28200E-01, -0.36300E-01, -0.35000E-01, -0.29900E-01,
157 -0.17600E-01, -0.16000E-01, -0.20000E-01, -0.16900E-01, -0.89600E-02, 0.18400E-02, 0.97000E-03, -0.13200E-01, -0.17200E-01, -0.62700E-02, -0.58200E-03, -0.28900E-02, -0.12200E-01, -0.27700E-01, -0.30300E-01, -0.32300E-01, -0.28100E-01,
158 -0.17900E-01, -0.14500E-01, -0.17100E-01, -0.15900E-01, -0.61900E-02, 0.84200E-02, 0.11800E-01, 0.22000E-02, -0.28100E-02, 0.38100E-02, 0.15200E-01, 0.13300E-02, -0.39400E-02, -0.23400E-01, -0.25800E-01, -0.25600E-01, -0.28500E-01,
159 -0.13000E-01, -0.81900E-02, -0.92000E-02, -0.67800E-02, -0.59800E-03, 0.90300E-02, 0.20400E-01, 0.15300E-01, 0.53500E-02, 0.14500E-01, 0.19500E-01, 0.76800E-02, -0.14100E-02, -0.13200E-01, -0.13800E-01, -0.14400E-01, -0.15000E-01,
160 -0.56100E-02, -0.34300E-02, -0.14000E-02, 0.12200E-02, 0.69800E-02, 0.19100E-01, 0.30000E-01, 0.17400E-01, 0.79400E-02, 0.18700E-01, 0.25400E-01, 0.16100E-01, -0.10900E-02, -0.44700E-02, -0.92000E-02, -0.94300E-02, -0.62500E-02,
161 0.46700E-03, 0.54300E-02, 0.33700E-02, 0.66500E-02, 0.13800E-01, 0.22700E-01, 0.30400E-01, 0.25600E-01, 0.10800E-01, 0.23000E-01, 0.29600E-01, 0.18200E-01, 0.82800E-02, -0.22900E-02, -0.10300E-01, -0.10100E-01, -0.32500E-02,
162 0.67900E-02, 0.67700E-02, 0.32300E-02, 0.73900E-02, 0.20800E-01, 0.27700E-01, 0.35700E-01, 0.29800E-01, 0.23500E-01, 0.31600E-01, 0.30000E-01, 0.22000E-01, 0.12300E-01, -0.50200E-02, -0.13500E-01, -0.12100E-01, -0.56900E-02,
163 0.69800E-02, 0.66400E-02, 0.65700E-03, 0.39000E-02, 0.20300E-01, 0.35300E-01, 0.37900E-01, 0.38900E-01, 0.39500E-01, 0.39800E-01, 0.34300E-01, 0.24300E-01, 0.14400E-01, -0.48000E-02, -0.13800E-01, -0.13000E-01, -0.48400E-02,
164 0.88000E-02, 0.58100E-02, -0.13100E-02, -0.35600E-03, 0.15900E-01, 0.34300E-01, 0.49300E-01, 0.61900E-01, 0.60800E-01, 0.51600E-01, 0.38700E-01, 0.24400E-01, 0.97700E-02, -0.52400E-02, -0.12400E-01, -0.10600E-01, -0.49300E-02,
165 0.95800E-02, 0.95100E-02, 0.12400E-02, -0.71500E-03, 0.62900E-02, 0.29200E-01, 0.55700E-01, 0.75200E-01, 0.73700E-01, 0.61700E-01, 0.42900E-01, 0.18800E-01, 0.60200E-02, -0.39000E-02, -0.10100E-01, -0.82000E-02, -0.53800E-02,
166 0.10300E-01, 0.11100E-01, 0.49200E-02, 0.25300E-02, 0.81500E-02, 0.22500E-01, 0.44100E-01, 0.66100E-01, 0.69600E-01, 0.58800E-01, 0.36800E-01, 0.17200E-01, 0.84100E-02, -0.15600E-02, -0.50700E-02, -0.45600E-02, 0.30700E-02,
167 0.12500E-01, 0.13700E-01, 0.97800E-02, 0.80300E-02, 0.14400E-01, 0.21800E-01, 0.31500E-01, 0.40200E-01, 0.41500E-01, 0.36700E-01, 0.27800E-01, 0.19100E-01, 0.12400E-01, 0.46400E-02, 0.54900E-04, 0.45800E-03, 0.46700E-02,
168 0.13600E-01, 0.13000E-01, 0.11300E-01, 0.11200E-01, 0.14900E-01, 0.19800E-01, 0.22700E-01, 0.24200E-01, 0.25000E-01, 0.23300E-01, 0.19700E-01, 0.18100E-01, 0.14100E-01, 0.84800E-02, 0.30700E-02, 0.49600E-02, 0.46600E-02,
169 0.14100E-01, 0.13700E-01, 0.11500E-01, 0.11600E-01, 0.12100E-01, 0.12400E-01, 0.13900E-01, 0.13000E-01, 0.11800E-01, 0.12700E-01, 0.11700E-01, 0.10400E-01, 0.10200E-01, 0.78600E-02, 0.59300E-02, 0.59400E-02, 0.68900E-02,
170 0.13900E-01, 0.12000E-01, 0.89100E-02, 0.82600E-02, 0.68500E-02, 0.84700E-02, 0.76800E-02, 0.70100E-02, 0.73000E-02, 0.85700E-02, 0.71200E-02, 0.76500E-02, 0.69900E-02, 0.61300E-02, 0.63500E-02, 0.65900E-02, 0.54000E-02,
171 0.12900E-01, 0.12900E-01, 0.86600E-02, 0.74700E-02, 0.59600E-02, 0.42900E-02, 0.47400E-02, 0.48800E-02, 0.43400E-02, 0.38000E-02, 0.46300E-02, 0.40000E-02, 0.44400E-02, 0.31200E-02, 0.40000E-02, 0.57100E-02, 0.62800E-02,
172 0.64000E-02, 0.69000E-02, 0.60200E-02, 0.29300E-02, 0.13400E-02, 0.25800E-02, 0.57800E-04, 0.94700E-03, 0.36200E-03, 0.15700E-02, 0.13500E-02, 0.44100E-03, 0.78900E-03, 0.85300E-03, 0.52800E-03, 0.74200E-03, 0.20800E-02
180static float Zou1[] = { 0.62500E-01, 0.12500E+00, 0.18750E+00, 0.25000E+00, 0.37500E+00, 0.50000E+00, 0.75000E+00, 0.10000E+01};
181static int Nyou1 = 13;
182static float You1[] = { 0.87500E+00, 0.90000E+00, 0.91250E+00, 0.92500E+00, 0.93750E+00, 0.94375E+00, 0.95000E+00, 0.95625E+00, 0.96250E+00, 0.96875E+00, 0.97500E+00, 0.98125E+00, 0.98750E+00};
186 0.96000E+00, 0.95200E+00, 0.94400E+00, 0.92200E+00, 0.89900E+00, 0.88900E+00, 0.87900E+00, 0.83400E+00, 0.81600E+00, 0.79300E+00, 0.75900E+00, 0.72600E+00, 0.67300E+00,
187 0.96400E+00, 0.95900E+00, 0.94400E+00, 0.92300E+00, 0.88100E+00, 0.86900E+00, 0.82600E+00, 0.81600E+00, 0.80500E+00, 0.77800E+00, 0.74900E+00, 0.72700E+00, 0.67400E+00,
188 0.97300E+00, 0.95000E+00, 0.93200E+00, 0.90000E+00, 0.92100E+00, 0.87200E+00, 0.85800E+00, 0.85700E+00, 0.82800E+00, 0.79400E+00, 0.76400E+00, 0.73000E+00, 0.69600E+00,
189 0.96700E+00, 0.95500E+00, 0.99100E+00, 0.93300E+00, 0.88600E+00, 0.86000E+00, 0.89200E+00, 0.86400E+00, 0.87500E+00, 0.84100E+00, 0.77800E+00, 0.74600E+00, 0.71200E+00,
190 0.98400E+00, 0.98100E+00, 0.97500E+00, 0.95700E+00, 0.96400E+00, 0.96800E+00, 0.89300E+00, 0.86400E+00, 0.90300E+00, 0.86400E+00, 0.84000E+00, 0.79200E+00, 0.73300E+00,
191 0.99200E+00, 0.98800E+00, 0.98500E+00, 0.98200E+00, 0.97900E+00, 0.97100E+00, 0.95500E+00, 0.93600E+00, 0.90400E+00, 0.88500E+00, 0.85200E+00, 0.81000E+00, 0.76200E+00,
192 0.99700E+00, 0.99600E+00, 0.99100E+00, 0.98700E+00, 0.97900E+00, 0.96800E+00, 0.94400E+00, 0.93600E+00, 0.91000E+00, 0.87400E+00, 0.85000E+00, 0.81400E+00, 0.77100E+00,
193 0.99900E+00, 0.10000E+01, 0.99900E+00, 0.99000E+00, 0.97800E+00, 0.96200E+00, 0.94500E+00, 0.92300E+00, 0.90400E+00, 0.88500E+00, 0.84600E+00, 0.82200E+00, 0.77500E+00
197 -0.75300E-02, -0.18700E-02, 0.12200E-02, 0.60500E-02, 0.11100E-01, 0.11200E-01, 0.13600E-01, 0.13200E-01, 0.19000E-01, 0.17200E-01, 0.15600E-01, 0.18100E-01, 0.59500E-02,
198 -0.82800E-02, -0.24200E-02, -0.33800E-02, 0.20400E-04, 0.27200E-02, -0.11800E-02, -0.19700E-02, 0.16400E-03, -0.23300E-02, 0.26300E-02, -0.26700E-02, 0.67800E-02, -0.83500E-02,
199 -0.10500E-01, -0.13600E-01, -0.12000E-01, -0.61200E-02, -0.92800E-02, 0.33700E-02, -0.75800E-02, 0.17600E-02, 0.40800E-02, 0.41500E-02, 0.47700E-02, 0.33400E-02, -0.30200E-02,
200 -0.11200E-01, -0.15200E-01, -0.12700E-01, -0.16800E-01, -0.22700E-01, -0.31300E-02, -0.66500E-02, 0.11600E-02, -0.13600E-01, -0.12400E-01, 0.36200E-02, 0.20600E-03, -0.79700E-03,
201 -0.13200E-01, -0.17800E-01, -0.11200E-01, -0.13700E-01, -0.16400E-01, -0.36400E-02, 0.17100E-02, 0.12200E-01, 0.22700E-02, -0.32000E-02, 0.10600E-01, 0.11400E-01, -0.38600E-02,
202 -0.93100E-02, -0.11800E-01, -0.14800E-01, -0.14700E-01, -0.10400E-01, -0.76400E-02, -0.49900E-02, 0.25600E-02, 0.49700E-02, 0.55900E-02, 0.91800E-02, 0.62600E-02, -0.12700E-02,
203 -0.10300E-01, -0.13300E-01, -0.14000E-01, -0.14600E-01, -0.90100E-02, -0.43700E-02, -0.12200E-02, -0.81800E-03, 0.47000E-02, 0.60900E-02, 0.73500E-02, 0.67600E-02, 0.59800E-03,
204 -0.14600E-01, -0.16100E-01, -0.15000E-01, -0.12400E-01, -0.53800E-02, -0.28900E-02, -0.15000E-02, -0.11500E-03, 0.16600E-02, 0.24200E-02, 0.73100E-02, 0.52400E-02, 0.38100E-02
208 -0.80900E-02, -0.86100E-02, -0.87200E-02, -0.47900E-02, -0.22300E-03, 0.45200E-02, 0.60100E-02, 0.13400E-01, 0.17300E-01, 0.20900E-01, 0.28900E-01, 0.35400E-01, 0.44800E-01,
209 -0.93500E-02, -0.28000E-02, -0.37600E-02, -0.20300E-02, 0.79100E-02, 0.12400E-01, 0.20100E-01, 0.24400E-01, 0.26300E-01, 0.28300E-01, 0.25500E-01, 0.34300E-01, 0.46000E-01,
210 -0.49300E-02, -0.32700E-02, -0.19900E-02, 0.72900E-02, 0.30200E-02, 0.99300E-02, 0.10100E-01, 0.14000E-01, 0.15500E-01, 0.19900E-01, 0.23300E-01, 0.28300E-01, 0.30300E-01,
211 -0.19000E-02, 0.11700E-02, 0.20000E-02, -0.62700E-03, 0.69400E-02, 0.80900E-02, 0.15400E-01, 0.12400E-01, 0.18000E-01, 0.25700E-01, 0.15900E-01, 0.14300E-01, 0.17900E-01,
212 0.67000E-02, 0.54300E-02, 0.54600E-02, 0.47100E-02, 0.94800E-02, -0.23400E-02, 0.73400E-02, 0.36600E-02, 0.82000E-02, 0.11500E-01, 0.12300E-01, 0.15100E-01, 0.20900E-01,
213 0.66600E-02, 0.79500E-02, 0.10100E-01, 0.97000E-02, 0.11100E-01, 0.11600E-01, 0.11300E-01, 0.15600E-01, 0.12000E-01, 0.17900E-01, 0.18100E-01, 0.18500E-01, 0.24000E-01,
214 0.53900E-02, 0.58400E-02, 0.80000E-02, 0.76000E-02, 0.81100E-02, 0.94800E-02, 0.79500E-02, 0.10300E-01, 0.11500E-01, 0.14300E-01, 0.13700E-01, 0.17000E-01, 0.17300E-01,
215 0.41200E-02, 0.32700E-02, 0.24200E-02, 0.15800E-02, 0.37700E-02, 0.38100E-02, 0.43300E-02, 0.44300E-02, 0.78100E-02, 0.65100E-02, 0.72900E-02, 0.96000E-02, 0.73500E-02
223static float Zin2[] = { 0.10000E+01, 0.15000E+01, 0.20000E+01, 0.25000E+01, 0.30000E+01};
224static int Nyin2 = 17;
225static float Yin2[] = { 0.12500E-01, 0.18750E-01, 0.25000E-01, 0.31250E-01, 0.37500E-01, 0.43750E-01, 0.50000E-01, 0.56250E-01, 0.62500E-01, 0.75000E-01, 0.87500E-01, 0.10000E+00, 0.12500E+00, 0.18750E+00, 0.25000E+00, 0.37500E+00, 0.50000E+00};
229 0.75000E+00, 0.80300E+00, 0.84200E+00, 0.88100E+00, 0.90500E+00, 0.93600E+00, 0.95600E+00, 0.97300E+00, 0.98100E+00, 0.99200E+00, 0.99100E+00, 0.99300E+00, 0.99200E+00, 0.99300E+00, 0.99500E+00, 0.99600E+00, 0.99100E+00,
230 0.70300E+00, 0.79600E+00, 0.83100E+00, 0.86600E+00, 0.90100E+00, 0.92700E+00, 0.95400E+00, 0.97000E+00, 0.98100E+00, 0.98900E+00, 0.99500E+00, 0.99700E+00, 0.99600E+00, 0.99700E+00, 0.10000E+01, 0.99900E+00, 0.99600E+00,
231 0.70500E+00, 0.72800E+00, 0.80800E+00, 0.85200E+00, 0.88200E+00, 0.90500E+00, 0.93100E+00, 0.95200E+00, 0.96800E+00, 0.99200E+00, 0.99700E+00, 0.99900E+00, 0.99700E+00, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.99600E+00,
232 0.70000E+00, 0.76800E+00, 0.81900E+00, 0.85400E+00, 0.88700E+00, 0.91600E+00, 0.92800E+00, 0.96000E+00, 0.97200E+00, 0.99500E+00, 0.99800E+00, 0.10000E+01, 0.99900E+00, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01,
233 0.74300E+00, 0.80700E+00, 0.83900E+00, 0.87900E+00, 0.89500E+00, 0.93100E+00, 0.94900E+00, 0.97200E+00, 0.98000E+00, 0.98900E+00, 0.99100E+00, 0.99200E+00, 0.99300E+00, 0.99200E+00, 0.99800E+00, 0.10000E+01, 0.99400E+00
237 -0.97200E-03, -0.11100E-01, -0.14800E-01, -0.12600E-01, -0.12200E-01, -0.82200E-02, -0.72500E-02, -0.38700E-03, 0.30700E-02, 0.10200E-01, 0.10600E-01, 0.86600E-02, 0.87200E-02, 0.56400E-02, 0.47600E-02, 0.20900E-02, -0.29000E-02,
238 0.51000E-01, -0.63100E-02, -0.11600E-01, -0.12700E-01, -0.10300E-01, -0.10000E-01, -0.45000E-02, 0.86300E-04, 0.40200E-02, 0.12000E-01, 0.14300E-01, 0.14500E-01, 0.11000E-01, 0.75800E-02, 0.64200E-02, 0.32700E-02, -0.35400E-03,
239 0.55000E-01, 0.15500E-01, -0.75600E-02, -0.92200E-02, -0.83000E-02, -0.82800E-02, -0.65200E-02, -0.44400E-02, -0.75400E-03, 0.83100E-02, 0.11900E-01, 0.11500E-01, 0.95400E-02, 0.60400E-02, 0.37300E-02, 0.23300E-02, -0.18700E-04,
240 0.54200E-01, -0.18200E-03, -0.99200E-02, -0.85500E-02, -0.80800E-02, -0.59700E-02, -0.40000E-02, -0.31300E-02, 0.36300E-02, 0.94500E-02, 0.13900E-01, 0.14600E-01, 0.13200E-01, 0.10100E-01, 0.83500E-02, 0.47600E-02, 0.10000E-02,
241 0.50600E-02, -0.70900E-02, -0.95500E-02, -0.84500E-02, -0.84900E-02, -0.28700E-02, -0.34800E-03, 0.34900E-02, 0.71500E-02, 0.15100E-01, 0.16100E-01, 0.15900E-01, 0.13900E-01, 0.11400E-01, 0.99100E-02, 0.61300E-02, 0.27000E-02
245 0.16000E-01, 0.17100E-01, 0.18000E-01, 0.14500E-01, 0.15800E-01, 0.12800E-01, 0.11500E-01, 0.11100E-01, 0.11800E-01, 0.86900E-02, 0.70500E-02, 0.66100E-02, 0.45300E-02, 0.20300E-02, 0.35900E-03, -0.12900E-02, -0.85700E-03,
246 0.50400E-02, 0.37900E-02, 0.64200E-02, 0.44100E-02, 0.49200E-02, 0.41200E-02, 0.16200E-02, 0.31900E-02, 0.94900E-03, -0.81400E-03, -0.12700E-02, -0.16900E-02, -0.16900E-02, -0.37200E-04, -0.21300E-02, -0.37700E-02, -0.37500E-02,
247 -0.86100E-03, 0.18000E-02, 0.36400E-02, -0.27000E-03, -0.14400E-04, -0.65800E-03, 0.32100E-02, -0.27100E-02, -0.15200E-02, -0.24900E-02, -0.29300E-02, -0.21100E-02, -0.16800E-02, -0.46100E-02, -0.62600E-02, -0.75100E-02, -0.74800E-02,
248 -0.73200E-02, -0.72100E-02, -0.45900E-02, -0.41800E-02, -0.56700E-02, -0.39000E-02, -0.61700E-02, -0.74900E-02, -0.96200E-02, -0.12100E-01, -0.10400E-01, -0.10800E-01, -0.91400E-02, -0.83300E-02, -0.10400E-01, -0.12400E-01, -0.12500E-01,
249 -0.19000E-01, -0.13900E-01, -0.14600E-01, -0.14200E-01, -0.11700E-01, -0.13300E-01, -0.14100E-01, -0.14300E-01, -0.15200E-01, -0.14200E-01, -0.13800E-01, -0.15500E-01, -0.16300E-01, -0.18000E-01, -0.19100E-01, -0.18300E-01, -0.18700E-01
257static float Zou2[] = { 0.10000E+01, 0.15000E+01, 0.20000E+01, 0.25000E+01, 0.30000E+01};
258static int Nyou2 = 17;
259static float You2[] = { 0.50000E+00, 0.62500E+00, 0.75000E+00, 0.81250E+00, 0.87500E+00, 0.90000E+00, 0.91250E+00, 0.92500E+00, 0.93750E+00, 0.94375E+00, 0.95000E+00, 0.95625E+00, 0.96250E+00, 0.96875E+00, 0.97500E+00, 0.98125E+00, 0.98750E+00};
263 0.99800E+00, 0.99700E+00, 0.99600E+00, 0.99600E+00, 0.99800E+00, 0.99700E+00, 0.99600E+00, 0.98800E+00, 0.97000E+00, 0.95600E+00, 0.94300E+00, 0.92200E+00, 0.89700E+00, 0.86800E+00, 0.83600E+00, 0.81300E+00, 0.77800E+00,
264 0.99900E+00, 0.10000E+01, 0.99900E+00, 0.99900E+00, 0.99900E+00, 0.99600E+00, 0.99700E+00, 0.99100E+00, 0.99000E+00, 0.96700E+00, 0.95500E+00, 0.93700E+00, 0.91800E+00, 0.89600E+00, 0.86900E+00, 0.82700E+00, 0.79100E+00,
265 0.10100E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.99800E+00, 0.98900E+00, 0.97400E+00, 0.95800E+00, 0.94500E+00, 0.92800E+00, 0.90300E+00, 0.87400E+00, 0.85000E+00, 0.81800E+00,
266 0.10100E+01, 0.10000E+01, 0.10100E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.10000E+01, 0.99800E+00, 0.99600E+00, 0.98200E+00, 0.99000E+00, 0.96300E+00, 0.94100E+00, 0.92700E+00, 0.88900E+00, 0.85100E+00, 0.82000E+00,
267 0.10000E+01, 0.99700E+00, 0.10000E+01, 0.99700E+00, 0.99400E+00, 0.99300E+00, 0.99200E+00, 0.98000E+00, 0.96300E+00, 0.94600E+00, 0.93400E+00, 0.91800E+00, 0.89200E+00, 0.87000E+00, 0.84800E+00, 0.80900E+00, 0.78100E+00
271 0.30600E-03, -0.27500E-02, -0.70300E-02, -0.10500E-01, -0.13300E-01, -0.14300E-01, -0.14300E-01, -0.79500E-02, -0.54900E-02, -0.14300E-02, 0.39500E-03, 0.24200E-02, 0.16000E-02, 0.42300E-02, 0.97300E-02, 0.36500E-02, 0.32300E-02,
272 0.12900E-02, -0.23900E-02, -0.72100E-02, -0.10600E-01, -0.12400E-01, -0.13100E-01, -0.14500E-01, -0.90900E-02, -0.75700E-02, -0.26600E-02, 0.76100E-03, 0.11800E-02, 0.41000E-02, 0.20700E-02, 0.61900E-02, 0.62100E-02, 0.78300E-02,
273 0.36000E-03, -0.19900E-02, -0.66700E-02, -0.82100E-02, -0.11600E-01, -0.12800E-01, -0.13100E-01, -0.12500E-01, -0.96600E-02, -0.73400E-02, -0.21900E-02, 0.39300E-04, 0.15100E-02, 0.50900E-02, 0.56700E-02, 0.72700E-02, 0.79700E-02,
274 0.13200E-02, -0.14600E-02, -0.49000E-02, -0.84100E-02, -0.98000E-02, -0.10500E-01, -0.11800E-01, -0.12700E-01, -0.10000E-01, -0.66300E-02, -0.37200E-02, 0.40200E-02, 0.33800E-02, 0.73300E-02, 0.10100E-01, 0.11500E-01, 0.14200E-01,
275 0.20200E-02, -0.12900E-02, -0.50100E-02, -0.82800E-02, -0.10800E-01, -0.12400E-01, -0.12400E-01, -0.84400E-02, -0.28700E-02, -0.20000E-02, -0.24700E-02, 0.26600E-02, 0.25300E-02, 0.59700E-02, 0.36100E-02, 0.81400E-02, 0.46200E-02
279 0.70700E-03, 0.28700E-03, 0.71300E-03, 0.40800E-02, 0.57700E-02, 0.41000E-02, 0.45100E-02, 0.32700E-02, 0.54700E-02, 0.38000E-02, 0.56200E-02, 0.80100E-02, 0.96400E-02, 0.80000E-02, 0.67700E-02, 0.11100E-01, 0.83600E-02,
280 -0.35400E-02, -0.26800E-02, -0.26700E-02, -0.43700E-02, -0.22600E-02, -0.18400E-02, -0.55600E-03, -0.14300E-02, -0.23000E-02, -0.19300E-02, -0.33100E-02, -0.24700E-02, 0.25800E-03, 0.73200E-03, -0.25200E-03, -0.80700E-03, 0.21900E-03,
281 -0.73500E-02, -0.82300E-02, -0.82500E-02, -0.73600E-02, -0.69800E-02, -0.65700E-02, -0.70100E-02, -0.61700E-02, -0.53800E-02, -0.45700E-02, -0.55900E-02, -0.29300E-02, -0.34600E-02, -0.31000E-02, -0.27200E-02, -0.28100E-02, -0.18900E-02,
282 -0.12000E-01, -0.14600E-01, -0.13200E-01, -0.12500E-01, -0.12100E-01, -0.12500E-01, -0.11700E-01, -0.13400E-01, -0.11800E-01, -0.12400E-01, -0.10100E-01, -0.10000E-01, -0.75000E-02, -0.11400E-01, -0.80000E-02, -0.73500E-02, -0.97800E-02,
283 -0.21200E-01, -0.22500E-01, -0.22400E-01, -0.22500E-01, -0.22100E-01, -0.23500E-01, -0.23500E-01, -0.21600E-01, -0.23000E-01, -0.23000E-01, -0.22400E-01, -0.22300E-01, -0.24500E-01, -0.22700E-01, -0.22700E-01, -0.20200E-01, -0.23700E-01