22 cnst ZERO = 0.0, ONE = 1.;
23 cnst c_light = 0.000299792458;
25 cnst c1 = 1., c2 = 2., c3 = 3., c4 = 4., c6 = 6., c9 = 9., c15 = 15., c18 = 18., c45 = 45., c2i = 1. / 2.,
26 c3i = 1. / 3., c6i = 1. / 6., c12i = 1. / 12.;
29 const fvec dz = (z_out - T.z);
30 const fvec dz2 = dz * dz;
31 const fvec dz3 = dz2 * dz;
37 const fvec xx = x * x;
38 const fvec xy = x * y;
39 const fvec yy = y * y;
40 const fvec y2 = y * c2;
41 const fvec x2 = x * c2;
42 const fvec x4 = x * c4;
43 const fvec xx31 = xx * c3 + c1;
44 const fvec xx159 = xx * c15 + c9;
46 const fvec Ay = -xx - c1;
47 const fvec Ayy = x * (xx * c3 + c3);
48 const fvec Ayz = -c2 * xy;
49 const fvec Ayyy = -(c15 * xx * xx + c18 * xx + c3);
51 const fvec Ayy_x = c3 * xx31;
52 const fvec Ayyy_x = -x4 * xx159;
54 const fvec Bx = yy + c1;
55 const fvec Byy = y * xx31;
56 const fvec Byz = c2 * xx + c1;
57 const fvec Byyy = -xy * xx159;
59 const fvec Byy_x = c6 * xy;
60 const fvec Byyy_x = -y * (c45 * xx + c9);
61 const fvec Byyy_y = -x * xx159;
65 const fvec t2 = c1 + xx + yy;
67 const fvec h = qp0 * c_light;
68 const fvec ht = h * t;
71 const fvec ddz = T.z - F.z0;
72 const fvec Fx0 = F.cx0 + F.cx1 * ddz + F.cx2 * ddz * ddz;
73 const fvec Fx1 = (F.cx1 + c2 * F.cx2 * ddz) * dz;
74 const fvec Fx2 = F.cx2 * dz2;
75 const fvec Fy0 = F.cy0 + F.cy1 * ddz + F.cy2 * ddz * ddz;
76 const fvec Fy1 = (F.cy1 + c2 * F.cy2 * ddz) * dz;
77 const fvec Fy2 = F.cy2 * dz2;
78 const fvec Fz0 = F.cz0 + F.cz1 * ddz + F.cz2 * ddz * ddz;
79 const fvec Fz1 = (F.cz1 + c2 * F.cz2 * ddz) * dz;
80 const fvec Fz2 = F.cz2 * dz2;
84 const fvec sx = (Fx0 + Fx1 * c2i + Fx2 * c3i);
85 const fvec sy = (Fy0 + Fy1 * c2i + Fy2 * c3i);
86 const fvec sz = (Fz0 + Fz1 * c2i + Fz2 * c3i);
88 const fvec Sx = (Fx0 * c2i + Fx1 * c6i + Fx2 * c12i);
89 const fvec Sy = (Fy0 * c2i + Fy1 * c6i + Fy2 * c12i);
90 const fvec Sz = (Fz0 * c2i + Fz1 * c6i + Fz2 * c12i);
94 cnst d = 1. / 360., c00 = 30. * 6. * d, c01 = 30. * 2. * d, c02 = 30. * d, c10 = 3. * 40. * d,
95 c11 = 3. * 15. * d, c12 = 3. * 8. * d, c20 = 2. * 45. * d, c21 = 2. * 2. * 9. * d, c22 = 2. * 2. * 5. * d;
96 syz = Fy0 * (c00 * Fz0 + c01 * Fz1 + c02 * Fz2) + Fy1 * (c10 * Fz0 + c11 * Fz1 + c12 * Fz2)
97 + Fy2 * (c20 * Fz0 + c21 * Fz1 + c22 * Fz2);
102 cnst d = 1. / 2520., c00 = 21. * 20. * d, c01 = 21. * 5. * d, c02 = 21. * 2. * d, c10 = 7. * 30. * d,
103 c11 = 7. * 9. * d, c12 = 7. * 4. * d, c20 = 2. * 63. * d, c21 = 2. * 21. * d, c22 = 2. * 10. * d;
104 Syz = Fy0 * (c00 * Fz0 + c01 * Fz1 + c02 * Fz2) + Fy1 * (c10 * Fz0 + c11 * Fz1 + c12 * Fz2)
105 + Fy2 * (c20 * Fz0 + c21 * Fz1 + c22 * Fz2);
108 const fvec syy = sy * sy * c2i;
109 const fvec syyy = syy * sy * c3i;
113 cnst d = 1. / 2520., c00 = 420. * d, c01 = 21. * 15. * d, c02 = 21. * 8. * d, c03 = 63. * d, c04 = 70. * d,
115 Syy = Fy0 * (c00 * Fy0 + c01 * Fy1 + c02 * Fy2) + Fy1 * (c03 * Fy1 + c04 * Fy2) + c05 * Fy2 * Fy2;
120 cnst d = 1. / 181440., c000 = 7560 * d, c001 = 9 * 1008 * d, c002 = 5 * 1008 * d, c011 = 21 * 180 * d,
121 c012 = 24 * 180 * d, c022 = 7 * 180 * d, c111 = 540 * d, c112 = 945 * d, c122 = 560 * d, c222 = 112 * d;
122 const fvec Fy22 = Fy2 * Fy2;
123 Syyy = Fy0 * (Fy0 * (c000 * Fy0 + c001 * Fy1 + c002 * Fy2) + Fy1 * (c011 * Fy1 + c012 * Fy2) + c022 * Fy22)
124 + Fy1 * (Fy1 * (c111 * Fy1 + c112 * Fy2) + c122 * Fy22) + c222 * Fy22 * Fy2;
127 const fvec sA1 = sx * xy + sy * Ay + sz * y;
128 const fvec sA1_x = sx * y - sy * x2;
129 const fvec sA1_y = sx * x + sz;
131 const fvec sB1 = sx * Bx - sy * xy - sz * x;
132 const fvec sB1_x = -sy * y - sz;
133 const fvec sB1_y = sx * y2 - sy * x;
135 const fvec SA1 = Sx * xy + Sy * Ay + Sz * y;
136 const fvec SA1_x = Sx * y - Sy * x2;
137 const fvec SA1_y = Sx * x + Sz;
139 const fvec SB1 = Sx * Bx - Sy * xy - Sz * x;
140 const fvec SB1_x = -Sy * y - Sz;
141 const fvec SB1_y = Sx * y2 - Sy * x;
143 const fvec sA2 = syy * Ayy + syz * Ayz;
144 const fvec sA2_x = syy * Ayy_x - syz * y2;
145 const fvec sA2_y = -syz * x2;
146 const fvec sB2 = syy * Byy + syz * Byz;
147 const fvec sB2_x = syy * Byy_x + syz * x4;
148 const fvec sB2_y = syy * xx31;
150 const fvec SA2 = Syy * Ayy + Syz * Ayz;
151 const fvec SA2_x = Syy * Ayy_x - Syz * y2;
152 const fvec SA2_y = -Syz * x2;
153 const fvec SB2 = Syy * Byy + Syz * Byz;
154 const fvec SB2_x = Syy * Byy_x + Syz * x4;
155 const fvec SB2_y = Syy * xx31;
157 const fvec sA3 = syyy * Ayyy;
158 const fvec sA3_x = syyy * Ayyy_x;
159 const fvec sB3 = syyy * Byyy;
160 const fvec sB3_x = syyy * Byyy_x;
161 const fvec sB3_y = syyy * Byyy_y;
163 const fvec SA3 = Syyy * Ayyy;
164 const fvec SA3_x = Syyy * Ayyy_x;
165 const fvec SB3 = Syyy * Byyy;
166 const fvec SB3_x = Syyy * Byyy_x;
167 const fvec SB3_y = Syyy * Byyy_y;
169 const fvec ht1 = ht * dz;
170 const fvec ht2 = ht * ht * dz2;
171 const fvec ht3 = ht * ht * ht * dz3;
172 const fvec ht1sA1 = ht1 * sA1;
173 const fvec ht1sB1 = ht1 * sB1;
174 const fvec ht1SA1 = ht1 * SA1;
175 const fvec ht1SB1 = ht1 * SB1;
176 const fvec ht2sA2 = ht2 * sA2;
177 const fvec ht2SA2 = ht2 * SA2;
178 const fvec ht2sB2 = ht2 * sB2;
179 const fvec ht2SB2 = ht2 * SB2;
180 const fvec ht3sA3 = ht3 * sA3;
181 const fvec ht3sB3 = ht3 * sB3;
182 const fvec ht3SA3 = ht3 * SA3;
183 const fvec ht3SB3 = ht3 * SB3;
185 fvec initialised = ZERO;
188 const fvec zero = ZERO;
189 initialised =
fvec(zero < *w);
191 const fvec one = ONE;
192 const fvec zero = ZERO;
193 initialised =
fvec(zero < one);
196 T.x += (((x + ht1SA1 + ht2SA2 + ht3SA3) * dz) & initialised);
197 T.y += (((y + ht1SB1 + ht2SB2 + ht3SB3) * dz) & initialised);
198 T.tx += ((ht1sA1 + ht2sA2 + ht3sA3) & initialised);
199 T.ty += ((ht1sB1 + ht2sB2 + ht3sB3) & initialised);
200 T.z += ((dz)&initialised);
202 const fvec ctdz = c_light * t * dz;
203 const fvec ctdz2 = c_light * t * dz2;
205 const fvec dqp = qp - qp0;
207 const fvec xt2i = x * t2i;
208 const fvec yt2i = y * t2i;
209 const fvec tmp0 = ht1SA1 + c2 * ht2SA2 + c3 * ht3SA3;
210 const fvec tmp1 = ht1SB1 + c2 * ht2SB2 + c3 * ht3SB3;
211 const fvec tmp2 = ht1sA1 + c2 * ht2sA2 + c3 * ht3sA3;
212 const fvec tmp3 = ht1sB1 + c2 * ht2sB2 + c3 * ht3sB3;
214 const fvec j02 = dz * (c1 + xt2i * tmp0 + ht1 * SA1_x + ht2 * SA2_x + ht3 * SA3_x);
215 const fvec j12 = dz * (xt2i * tmp1 + ht1 * SB1_x + ht2 * SB2_x + ht3 * SB3_x);
216 const fvec j22 = c1 + xt2i * tmp2 + ht1 * sA1_x + ht2 * sA2_x + ht3 * sA3_x;
217 const fvec j32 = xt2i * tmp3 + ht1 * sB1_x + ht2 * sB2_x + ht3 * sB3_x;
219 const fvec j03 = dz * (yt2i * tmp0 + ht1 * SA1_y + ht2 * SA2_y);
220 const fvec j13 = dz * (c1 + yt2i * tmp1 + ht1 * SB1_y + ht2 * SB2_y + ht3 * SB3_y);
221 const fvec j23 = yt2i * tmp2 + ht1 * sA1_y + ht2 * sA2_y;
222 const fvec j33 = c1 + yt2i * tmp3 + ht1 * sB1_y + ht2 * sB2_y + ht3 * sB3_y;
224 const fvec j04 = ctdz2 * (SA1 + c2 * ht1 * SA2 + c3 * ht2 * SA3);
225 const fvec j14 = ctdz2 * (SB1 + c2 * ht1 * SB2 + c3 * ht2 * SB3);
226 const fvec j24 = ctdz * (sA1 + c2 * ht1 * sA2 + c3 * ht2 * sA3);
227 const fvec j34 = ctdz * (sB1 + c2 * ht1 * sB2 + c3 * ht2 * sB3);
231 T.x += ((j04 * dqp) & initialised);
232 T.y += ((j14 * dqp) & initialised);
233 T.tx += ((j24 * dqp) & initialised);
234 T.ty += ((j34 * dqp) & initialised);
238 const fvec c42 = T.C42, c43 = T.C43;
240 const fvec cj00 = T.C00 + T.C20 * j02 + T.C30 * j03 + T.C40 * j04;
242 const fvec cj20 = T.C20 + T.C22 * j02 + T.C32 * j03 + c42 * j04;
243 const fvec cj30 = T.C30 + T.C32 * j02 + T.C33 * j03 + c43 * j04;
245 const fvec cj01 = T.C10 + T.C20 * j12 + T.C30 * j13 + T.C40 * j14;
246 const fvec cj11 = T.C11 + T.C21 * j12 + T.C31 * j13 + T.C41 * j14;
247 const fvec cj21 = T.C21 + T.C22 * j12 + T.C32 * j13 + c42 * j14;
248 const fvec cj31 = T.C31 + T.C32 * j12 + T.C33 * j13 + c43 * j14;
252 const fvec cj22 = T.C22 * j22 + T.C32 * j23 + c42 * j24;
253 const fvec cj32 = T.C32 * j22 + T.C33 * j23 + c43 * j24;
257 const fvec cj23 = T.C22 * j32 + T.C32 * j33 + c42 * j34;
258 const fvec cj33 = T.C32 * j32 + T.C33 * j33 + c43 * j34;
260 T.C40 += ((c42 * j02 + c43 * j03 + T.C44 * j04) & initialised);
261 T.C41 += ((c42 * j12 + c43 * j13 + T.C44 * j14) & initialised);
262 T.C42 = ((c42 * j22 + c43 * j23 + T.C44 * j24) & initialised) + (T.C42 & (!initialised));
263 T.C43 = ((c42 * j32 + c43 * j33 + T.C44 * j34) & initialised) + (T.C43 & (!initialised));
265 T.C00 = ((cj00 + j02 * cj20 + j03 * cj30 + j04 * T.C40) & initialised) + (T.C00 & (!initialised));
266 T.C10 = ((cj01 + j02 * cj21 + j03 * cj31 + j04 * T.C41) & initialised) + (T.C10 & (!initialised));
267 T.C11 = ((cj11 + j12 * cj21 + j13 * cj31 + j14 * T.C41) & initialised) + (T.C11 & (!initialised));
269 T.C20 = ((j22 * cj20 + j23 * cj30 + j24 * T.C40) & initialised) + (T.C20 & (!initialised));
270 T.C30 = ((j32 * cj20 + j33 * cj30 + j34 * T.C40) & initialised) + (T.C30 & (!initialised));
271 T.C21 = ((j22 * cj21 + j23 * cj31 + j24 * T.C41) & initialised) + (T.C21 & (!initialised));
272 T.C31 = ((j32 * cj21 + j33 * cj31 + j34 * T.C41) & initialised) + (T.C31 & (!initialised));
273 T.C22 = ((j22 * cj22 + j23 * cj32 + j24 * T.C42) & initialised) + (T.C22 & (!initialised));
274 T.C32 = ((j32 * cj22 + j33 * cj32 + j34 * T.C42) & initialised) + (T.C32 & (!initialised));
275 T.C33 = ((j32 * cj23 + j33 * cj33 + j34 * T.C43) & initialised) + (T.C33 & (!initialised));
287 cnst c_light = 0.000299792458;
290 c2i = 1. / 2., c3i = 1. / 3., c6i = 1. / 6., c12i = 1. / 12.;
292 const fvec qp = T.qp;
293 const fvec dz = (z_out - T.z);
294 const fvec dz2 = dz * dz;
300 const fvec xx = x * x;
301 const fvec xy = x * y;
302 const fvec yy = y * y;
303 const fvec Ay = -xx - c1;
304 const fvec Bx = yy + c1;
305 const fvec ct = c_light *
sqrt(c1 + xx + yy);
307 const fvec dzc2i = dz * c2i;
308 const fvec dz2c3i = dz2 * c3i;
309 const fvec dzc6i = dz * c6i;
310 const fvec dz2c12i = dz2 * c12i;
312 const fvec sx = (F.cx0 + F.cx1 * dzc2i + F.cx2 * dz2c3i);
313 const fvec sy = (F.cy0 + F.cy1 * dzc2i + F.cy2 * dz2c3i);
314 const fvec sz = (F.cz0 + F.cz1 * dzc2i + F.cz2 * dz2c3i);
316 const fvec Sx = (F.cx0 * c2i + F.cx1 * dzc6i + F.cx2 * dz2c12i);
317 const fvec Sy = (F.cy0 * c2i + F.cy1 * dzc6i + F.cy2 * dz2c12i);
318 const fvec Sz = (F.cz0 * c2i + F.cz1 * dzc6i + F.cz2 * dz2c12i);
320 const fvec ctdz = ct * dz;
321 const fvec ctdz2 = ct * dz2;
323 const fvec j04 = ctdz2 * (Sx * xy + Sy * Ay + Sz * y);
324 const fvec j14 = ctdz2 * (Sx * Bx - Sy * xy - Sz * x);
325 const fvec j24 = ctdz * (sx * xy + sy * Ay + sz * y);
326 const fvec j34 = ctdz * (sx * Bx - sy * xy - sz * x);
328 T.x += x * dz + j04 * qp;
329 T.y += y * dz + j14 * qp;
336 const fvec cj00 = T.C00 + T.C20 * dz + T.C40 * j04;
338 const fvec cj20 = T.C20 + T.C22 * dz + T.C42 * j04;
339 const fvec cj30 = T.C30 + T.C32 * dz + T.C43 * j04;
341 const fvec cj01 = T.C10 + T.C30 * dz + T.C40 * j14;
342 const fvec cj11 = T.C11 + T.C31 * dz + T.C41 * j14;
343 const fvec cj21 = T.C21 + T.C32 * dz + T.C42 * j14;
344 const fvec cj31 = T.C31 + T.C33 * dz + T.C43 * j14;
348 const fvec cj22 = T.C22 + T.C42 * j24;
349 const fvec cj32 = T.C32 + T.C43 * j24;
354 const fvec cj33 = T.C33 + T.C43 * j34;
356 T.C40 += T.C42 * dz + T.C44 * j04;
357 T.C41 += T.C43 * dz + T.C44 * j14;
358 T.C42 += T.C44 * j24;
359 T.C43 += T.C44 * j34;
361 T.C00 = cj00 + dz * cj20 + j04 * T.C40;
362 T.C10 = cj01 + dz * cj21 + j04 * T.C41;
363 T.C11 = cj11 + dz * cj31 + j14 * T.C41;
365 T.C20 = cj20 + j24 * T.C40;
366 T.C30 = cj30 + j34 * T.C40;
367 T.C21 = cj21 + j24 * T.C41;
368 T.C31 = cj31 + j34 * T.C41;
369 T.C22 = cj22 + j24 * T.C42;
370 T.C32 = cj32 + j34 * T.C42;
371 T.C33 = cj33 + j34 * T.C43;
437 cnst c_light = 0.000299792458;
439 cnst c1 = 1., c2 = 2., c3 = 3., c4 = 4., c6 = 6., c9 = 9., c15 = 15., c18 = 18., c45 = 45., c2i = 1. / 2.,
440 c6i = 1. / 6., c12i = 1. / 12.;
455 fvec xx31 = xx * c3 + c1;
456 fvec xx159 = xx * c15 + c9;
459 fvec Ayy = x * (xx * c3 + c3);
461 fvec Ayyy = -(c15 * xx * xx + c18 * xx + c3);
463 fvec Ayy_x = c3 * xx31;
464 fvec Ayyy_x = -x4 * xx159;
468 fvec Byz = c2 * xx + c1;
469 fvec Byyy = -xy * xx159;
471 fvec Byy_x = c6 * xy;
472 fvec Byyy_x = -y * (c45 * xx + c9);
473 fvec Byyy_y = -x * xx159;
477 fvec t2 = c1 + xx + yy;
479 fvec h = qp * c_light;
484 fvec Fx1 = F.cx1 * dz;
485 fvec Fx2 = F.cx2 * dz2;
487 fvec Fy1 = F.cy1 * dz;
488 fvec Fy2 = F.cy2 * dz2;
490 fvec Fz1 = F.cz1 * dz;
491 fvec Fz2 = F.cz2 * dz2;
495 fvec Sx = (Fx0 * c2i + Fx1 * c6i + Fx2 * c12i);
496 fvec Sy = (Fy0 * c2i + Fy1 * c6i + Fy2 * c12i);
497 fvec Sz = (Fz0 * c2i + Fz1 * c6i + Fz2 * c12i);
501 cnst d = 1. / 2520., c00 = 21. * 20. * d, c01 = 21. * 5. * d, c02 = 21. * 2. * d, c10 = 7. * 30. * d,
502 c11 = 7. * 9. * d, c12 = 7. * 4. * d, c20 = 2. * 63. * d, c21 = 2. * 21. * d, c22 = 2. * 10. * d;
503 Syz = Fy0 * (c00 * Fz0 + c01 * Fz1 + c02 * Fz2) + Fy1 * (c10 * Fz0 + c11 * Fz1 + c12 * Fz2)
504 + Fy2 * (c20 * Fz0 + c21 * Fz1 + c22 * Fz2);
509 cnst d = 1. / 2520., c00 = 420. * d, c01 = 21. * 15. * d, c02 = 21. * 8. * d, c03 = 63. * d, c04 = 70. * d,
511 Syy = Fy0 * (c00 * Fy0 + c01 * Fy1 + c02 * Fy2) + Fy1 * (c03 * Fy1 + c04 * Fy2) + c05 * Fy2 * Fy2;
516 cnst d = 1. / 181440., c000 = 7560 * d, c001 = 9 * 1008 * d, c002 = 5 * 1008 * d, c011 = 21 * 180 * d,
517 c012 = 24 * 180 * d, c022 = 7 * 180 * d, c111 = 540 * d, c112 = 945 * d, c122 = 560 * d, c222 = 112 * d;
518 fvec Fy22 = Fy2 * Fy2;
519 Syyy = Fy0 * (Fy0 * (c000 * Fy0 + c001 * Fy1 + c002 * Fy2) + Fy1 * (c011 * Fy1 + c012 * Fy2) + c022 * Fy22)
520 + Fy1 * (Fy1 * (c111 * Fy1 + c112 * Fy2) + c122 * Fy22) + c222 * Fy22 * Fy2;
523 fvec SA1 = Sx * xy + Sy * Ay + Sz * y;
524 fvec SA1_x = Sx * y - Sy * x2;
525 fvec SA1_y = Sx * x + Sz;
527 fvec SB1 = Sx * Bx - Sy * xy - Sz * x;
528 fvec SB1_x = -Sy * y - Sz;
529 fvec SB1_y = Sx * y2 - Sy * x;
531 fvec SA2 = Syy * Ayy + Syz * Ayz;
532 fvec SA2_x = Syy * Ayy_x - Syz * y2;
533 fvec SA2_y = -Syz * x2;
534 fvec SB2 = Syy * Byy + Syz * Byz;
535 fvec SB2_x = Syy * Byy_x + Syz * x4;
536 fvec SB2_y = Syy * xx31;
538 fvec SA3 = Syyy * Ayyy;
539 fvec SA3_x = Syyy * Ayyy_x;
540 fvec SB3 = Syyy * Byyy;
541 fvec SB3_x = Syyy * Byyy_x;
542 fvec SB3_y = Syyy * Byyy_y;
545 fvec ht2 = ht * ht * dz2;
546 fvec ht3 = ht * ht * ht * dz3;
547 fvec ht1SA1 = ht1 * SA1;
548 fvec ht1SB1 = ht1 * SB1;
549 fvec ht2SA2 = ht2 * SA2;
550 fvec ht2SB2 = ht2 * SB2;
551 fvec ht3SA3 = ht3 * SA3;
552 fvec ht3SB3 = ht3 * SB3;
554 extrDx = (x + ht1SA1 + ht2SA2 + ht3SA3) * dz;
555 extrDy = (y + ht1SB1 + ht2SB2 + ht3SB3) * dz;
557 fvec ctdz2 = c_light * t * dz2;
562 fvec tmp0 = ht1SA1 + c2 * ht2SA2 + c3 * ht3SA3;
563 fvec tmp1 = ht1SB1 + c2 * ht2SB2 + c3 * ht3SB3;
565 extrJ[0] = dz * (c1 + xt2i * tmp0 + ht1 * SA1_x + ht2 * SA2_x + ht3 * SA3_x);
566 extrJ[1] = dz * (yt2i * tmp0 + ht1 * SA1_y + ht2 * SA2_y);
567 extrJ[2] = ctdz2 * (SA1 + c2 * ht1 * SA2 + c3 * ht2 * SA3);
568 extrJ[3] = dz * (xt2i * tmp1 + ht1 * SB1_x + ht2 * SB2_x + ht3 * SB3_x);
569 extrJ[4] = dz * (c1 + yt2i * tmp1 + ht1 * SB1_y + ht2 * SB2_y + ht3 * SB3_y);
570 extrJ[5] = ctdz2 * (SB1 + c2 * ht1 * SB2 + c3 * ht2 * SB3);