mean.tcl

00001 #
00002 # This script was generated with funner v2.1beta (www.gridding.info)
00003 
00004 # 
00005 # load plugins
00006 # 
00007 load libsurfit[info sharedlibextension]
00008 
00009 # remove all previous data and gridding rules
00010 clear_data 
00011 
00012 # set name of surface
00013 set map_name "map_mean" 
00014 
00015 # set solver
00016 set_solver "cg" 
00017 
00018 # set tolerance for solver
00019 set tol 1e-005 
00020 
00021 ##
00022 ## load initial data 
00023 ##
00024  
00025 # load points from text file 
00026 pnts_read "7points.txt" "7points"  
00027  
00028 ##
00029 ## construct grid 
00030 ##
00031 grid_get -10 10 0.2 -10 10 0.2 
00032  
00033 ##
00034 ## create gridding rules
00035 ##
00036 
00037 # resulting surface at points = points values 
00038 points "7points" 
00039 
00040 # resulting surface mean value = value... 
00041 mean 30  
00042 
00043 # resulting surface should tend to be constant or plane 
00044 completer 
00045 
00046 ##
00047 ## run gridding algorithm
00048 ##
00049 surfit 
00050 
00051 ##
00052 ## save results 
00053 ##
00054 
00055 # unload grid from memory
00056 grid_unload 
00057 
00058 # save surface to surfit datafile 
00059 surf_save "mean.dat" "map_mean"
00060 
00061 set mean_value [surf_mean map_mean]
00062 puts "surface mean value is $mean_value"
00063 



surfit: open source gridding and contouring software.