Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/fields/kernel.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/fields/kernel.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1946, Fri Jul 6 20:18:03 2012 UTC revision 1947, Fri Jul 6 20:18:37 2012 UTC
# Line 177  Line 177 
177                  [r 2, r ~4, 5/2, ~1/2]  (*  1 .. 2 *)                  [r 2, r ~4, 5/2, ~1/2]  (*  1 .. 2 *)
178                ]                ]
179            }            }
180      val bspln3 : kernel = mkKernel{     (* cubic bspline reconstruction, doesn't interpolate *)      val bspln3 : kernel = mkKernel{     (* cubic bspline reconstruction; doesn't interpolate *)
181              name = "bspln3",              name = "bspln3",
182              support = 2,              support = 2,
183              segs = [              segs = [
# Line 187  Line 187 
187                  [ 4/3, r ~2, r 1,  ~1/6 ]       (*  1 .. 2 *)                  [ 4/3, r ~2, r 1,  ~1/6 ]       (*  1 .. 2 *)
188                ]                ]
189            }            }
190      val bspln5 : kernel = mkKernel{     (* quintic bspline reconstruction, doesn't interpolate *)      val bspln5 : kernel = mkKernel{     (* quintic bspline reconstruction; doesn't interpolate *)
191              name = "bspln5",              name = "bspln5",
192              support = 3,              support = 3,
193              segs = [              segs = [
# Line 199  Line 199 
199                  [ 81/40, ~27/8, 9/4, ~3/4, 1/8, ~1/120 ]        (*  2 .. 3 *)                  [ 81/40, ~27/8, 9/4, ~3/4, 1/8, ~1/120 ]        (*  2 .. 3 *)
200                ]                ]
201            }            }
202    (*
203    #define _C4HEXIC(x) \
204      (x >= 3.0 \
205       ? 0 \
206       : (x >= 2.0 \
207          ? 1539.0/160.0 + x*(-189.0/8.0 + x*(747.0/32.0 + x*(-12.0 + x*(109.0/32.0 + x*(-61.0/120.0 + x/32.0))))) \
208          : (x >= 1.0 \
209             ? 3.0/160.0 + x*(35.0/8.0 + x*(-341.0/32.0 + x*(10.0 + x*(-147.0/32.0 + x*(25.0/24.0 - x*3.0/32.0))))) \
210             : 69.0/80.0 + x*x*(-23.0/16.0 + x*x*(19.0/16.0 + x*(-7.0/12.0 + x/16.0)))  )))
211    *)
212        val c4hexic : kernel = mkKernel{    (* C4 hexic kernel; doesn't interpolate *)
213                name = "c4hexic",
214                support = 3,
215                segs = [
216                    [  ],   (* -3 .. -2 *)
217                    [  ],   (* -2 .. -1 *)
218                    [  ],   (* -1 .. 0 *)
219                    [  ],   (*  0 .. 1 *)
220                    [  ],   (*  1 .. 2 *)
221                    [  ]    (*  2 .. 3 *)
222                  ]
223              }
224      end      end
225    
226    end    end

Legend:
Removed from v.1946  
changed lines
  Added in v.1947

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0