map_ver_frac.tcl

00001 #
00002 load libfreeflow[info sharedlibextension]
00003 
00004 clear_data
00005 set tol 5e-7
00006 
00007 set map_name "map_ver_frac"
00008 
00009 pnts_read "PZab_2001.txt" "press2001" 4 3 5
00010 # recalc to MPa
00011 pnts_mult_real 0.1013 "press2001"
00012 
00013 cntr_read "lines/P_2001_236_ver.txt" "P_2001_236_ver"
00014 # recalc to MPa
00015 cntr_mult_real 0.1013
00016 
00017 pnts_read "Q_2001.txt" "debits2001" 4 3 5
00018 pnts_mult_real -1 "debits2001"
00019 
00020 curv_read "VNK1.txt" "VNK1" 2 1
00021 curv_read "VNK2.txt" "VNK2" 2 1
00022 curv_read "VNK3.txt" "VNK3" 2 1
00023 area_read "ZAM1.txt" "ZAM1" 2 1
00024 curv_read "ZAM2.txt" "ZAM2" 2 1
00025 area_read "ZAM5.txt" "ZAM5" 2 1
00026 curv_read "lines/frac_236_ver.txt" "frac_236_ver"
00027 
00028 grid_get 28300 41400 30 45500 64700 30
00029 
00030 points "press2001"
00031 curve 21.4 "VNK1"
00032 curve 21.4 "VNK2"
00033 curve 21.4 "VNK3"
00034 area undef "ZAM1"
00035 area undef "ZAM5"
00036 lcm_simple 16.4 0.5 1e-6
00037 contour_add 1 "P_2001_236_ver"
00038 flow_points "debits2001"
00039 fault "ZAM2"
00040 flow_curve -0.000467413 "frac_236_ver"
00041 
00042 surfit
00043 
00044 grid_unload
00045 file_save "map_ver_frac.dat"



surfit: open source gridding and contouring software.