home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / SCN / PODLIFE / FLUKE.CAL < prev    next >
Text File  |  1993-10-07  |  782b  |  31 lines
  1. {
  2.     Parameters for Bicubic Rational Patch
  3. }
  4. nrows = 4;
  5. ncols = 4;
  6.  
  7. Px(i,j) = select( (i-1)*4+j,
  8.         0.5, 0.32262, 0.193578, 0.104524,
  9.         0.5, 0.286804, 0.00901883, -0.169621,
  10.         0.5, 0.194508, 0.0453709, -0.108177,
  11.         -0.189693, -0.294741, -0.373604, -0.457331
  12.     );
  13. Py(i,j) = select( (i-1)*4+j,
  14.         -0.5, -0.486028, -0.512917, -0.491699,
  15.         -0.166667, -0.0899162, -0.104904, -0.142638,
  16.         0.166667, 0.165846, 0.232517, 0.150724,
  17.         0.528947, 0.544121, 0.555375, 0.555075
  18.     );
  19. Pz(i,j) = select( (i-1)*4+j,
  20.         0, -0.0796445, -0.0990403,      0,
  21.         0, -0.109165, -0.0800447,      0,
  22.         0, -0.141696, -0.0659265,      0,
  23.         0,      0,      0,      0
  24.     );
  25. W(i,j) = select( (i-1)*4+j,
  26.         1,      1,      1, 0.519854,
  27.         1,      1,      1,      1,
  28.         1,      1,      1,      1,
  29.         1,      1,      1,      1
  30.     );
  31.