fault_aniso.tcl

This example looks like fault.tcl example. The only difference is the completer parameters: in this example anisotropy was added to completer.

See also:
fault
Here is the image of the resulting surface:

surface with faults

Pic 1. Anisotropic surface with faults

This result was obtained with "examples/surfit/curvs/fault_aniso.tcl" script.

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_faults_aniso" 
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 "11points.txt" "11points"  
00027  
00028 # load curve from text file 
00029 curv_read "flt_line1.txt" "flt_line1"  
00030  
00031 # load curve from text file 
00032 curv_read "flt_line2.txt" "flt_line2"  
00033  
00034 # load curve from text file 
00035 curv_read "flt_line3.txt" "flt_line3"  
00036  
00037 # load curve from text file 
00038 curv_read "flt_line4.txt" "flt_line4"  
00039  
00040 ##
00041 ## construct grid 
00042 ##
00043 grid_get 1 99 1 -50 50 1 
00044  
00045 ##
00046 ## create gridding rules
00047 ##
00048 
00049 # resulting surface at points = points values 
00050 points "11points" 
00051 
00052 # resulting surface should tend to be constant or plane 
00053 completer 0.5 2 45 2
00054 
00055 # fault line 
00056 fault "flt_line1"  
00057 
00058 # fault line 
00059 fault "flt_line2"  
00060 
00061 # fault line 
00062 fault "flt_line3"  
00063 
00064 # fault line 
00065 fault "flt_line4"  
00066 
00067 ##
00068 ## run gridding algorithm
00069 ##
00070 surfit 
00071 
00072 ##
00073 ## save results 
00074 ##
00075 
00076 # unload grid from memory
00077 grid_unload 
00078 
00079 # save surface to surfit datafile 
00080 surf_save "fault_aniso.dat" "map_faults_aniso" 



surfit: open source gridding and contouring software.