Changeset 371 for trunk/SRC/Interpolation/inquad.pro
- Timestamp:
- 08/07/08 11:32:02 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Interpolation/inquad.pro
r327 r371 54 54 ; @examples 55 55 ; 56 ; IDL> x = 1.*[1, 2, 6, 7, 3]57 ; IDL> y = 1.*[1, 3, 3, 4, 7]58 ; IDL> x1 = 1.*[0,4,2]59 ; IDL> y1 = 1.*[1,4,8]60 ; IDL> x2 = 1.*[1,6,4]61 ; IDL> y2 = 1.*[5,6,8]62 ; IDL> x3 = 1.*[3,8,4]63 ; IDL> y3 = 1.*[4,4,6]64 ; IDL> x4 = 1.*[2,6,2]65 ; IDL> y4 = 1.*[0,2,6]66 ; IDL> splot, [0,10], [0,10], xstyle = 1, ystyle = 1,/nodata67 ; IDL> for i=0,2 do oplot, [x4[i],x1[i],x2[i],x3[i],x4[i]],[y4[i],y1[i],y2[i],y3[i],y4[i]]68 ; IDL> oplot, x, y, color = 20, psym = 1, thick = 269 ; IDL> print, inquad(x, y, x1, y1, x2, y2, x3, y3, x4, y4)56 ; IDL> x = 1.*[1, 2, 6, 7, 3] 57 ; IDL> y = 1.*[1, 3, 3, 4, 7] 58 ; IDL> x1 = 1.*[0,4,2] 59 ; IDL> y1 = 1.*[1,4,8] 60 ; IDL> x2 = 1.*[1,6,4] 61 ; IDL> y2 = 1.*[5,6,8] 62 ; IDL> x3 = 1.*[3,8,4] 63 ; IDL> y3 = 1.*[4,4,6] 64 ; IDL> x4 = 1.*[2,6,2] 65 ; IDL> y4 = 1.*[0,2,6] 66 ; IDL> splot, [0,10], [0,10], xstyle = 1, ystyle = 1,/nodata 67 ; IDL> for i=0,2 do oplot, [x4[i],x1[i],x2[i],x3[i],x4[i]],[y4[i],y1[i],y2[i],y3[i],y4[i]] 68 ; IDL> oplot, x, y, color = 20, psym = 1, thick = 2 69 ; IDL> print, inquad(x, y, x1, y1, x2, y2, x3, y3, x4, y4) 70 70 ; 71 71 ; On a sphere see
Note: See TracChangeset
for help on using the changeset viewer.