home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / RADIANCE / SCN / PODLIFE / BODY2.CAL < prev    next >
Text File  |  1993-10-07  |  2KB  |  63 lines
  1. {
  2.     Parameters for Bicubic Rational Patch
  3. }
  4. nrows = 6;
  5. ncols = 8;
  6.  
  7. Px(i,j) = select( (i-1)*ncols+j,
  8.         0.067467, 0.0512221, 0.0869898, 0.106206,
  9.         0.0630458, 0.067467, 0.0512221, 0.0869898,
  10.         0.086047, -0.193743, -0.175914, 0.112198,
  11.         0.240872, 0.086047, -0.193743, -0.175914,
  12.         0.107091, -0.230641, -0.189546, 0.107091,
  13.         0.346554, 0.107091, -0.230641, -0.189546,
  14.         0.107091, -0.248597, -0.169125, 0.107091,
  15.         0.346554, 0.107091, -0.248597, -0.169125,
  16.         0.0897898, -0.215579, -0.173805, 0.0743111,
  17.         0.346554, 0.0897898, -0.215579, -0.173805,
  18.         0.00107091, -0.00280368, -0.00280368, 0.00107091,
  19.         0.00346554, 0.00107091, -0.00280368, -0.00280368
  20.     );
  21. Py(i,j) = select( (i-1)*ncols+j,
  22.         0.233152, 0.214873, 0.221338, 0.186409,
  23.         0.24004, 0.233152, 0.214873, 0.221338,
  24.         0.199171, 0.15967, -0.132772, -0.181811,
  25.         0.0108396, 0.199171, 0.15967, -0.132772,
  26.         0.329593, 0.187247, -0.139288, -0.329593,
  27.         0, 0.329593, 0.187247, -0.139288,
  28.         0.329593, 0.191913, -0.12271, -0.329593,
  29.         0, 0.329593, 0.191913, -0.12271,
  30.         0.250554, 0.21469, -0.133093, -0.231488,
  31.         0, 0.250554, 0.21469, -0.133093,
  32.         0.00329593, 0.002037, -0.002037, -0.00329593,
  33.         0, 0.00329593, 0.002037, -0.002037
  34.     );
  35. Pz(i,j) = select( (i-1)*ncols+j,
  36.         -0.975448, -0.97223, -0.991187, -0.991166,
  37.         -1.01081, -0.975448, -0.97223, -0.991187,
  38.         -0.585651, -0.609252, -0.581706, -0.655636,
  39.         -0.62745, -0.585651, -0.609252, -0.581706,
  40.         -0.2, -0.200736, -0.219615,   -0.2,
  41.         -0.2,   -0.2, -0.200736, -0.219615,
  42.         0.2, 0.203059, 0.15723,    0.2,
  43.         0.2,    0.2, 0.203059, 0.15723,
  44.         0.590591, 0.582071, 0.516947, 0.547332,
  45.         0.6, 0.590591, 0.582071, 0.516947,
  46.         1,      1,      1,      1,
  47.         1,      1,      1,      1
  48.     );
  49. W(i,j) = select( (i-1)*ncols+j,
  50.         10,     10,     10,     10,
  51.         10,     10,     10,     10,
  52.         1.00778,      1,      1,      1,
  53.         0.866515, 1.00778,      1,      1,
  54.         1,      1,      1,      1,
  55.         1.28124,      1,      1,      1,
  56.         1, 1.73303,      1,      1,
  57.         1,      1, 1.73303,      1,
  58.         1,      1,      1,      1,
  59.         1,      1,      1,      1,
  60.         10,     10,     10,     10,
  61.         10,     10,     10,     10
  62.     );
  63.