Inquisitor
Examples
The following mapfile generation script is included with the Inquisitor directory (file is mapfile.script in the Vulcan/etc/examples directory) as an example of what can be done. This script produces a standard structural mapfile for VULCAN, in this case for the H seam from the geological database of the ABC (demo) data set. This can be re-configured easily to output the mapfile for any other seam. change the seam name in the initialization section; that is, change the H in the line which reads #SEAM:=('H') to whichever seam name you want.Example - Script
// // Mapfile generator example (produces standard H seam mapfile for DEMO data) // QL_INITIALIZATION: /////////////////////////////////////////////////////////////////////////// // // These three variables are all that need to be set to make a mapfile of // any seam // #SEAM:=('H') #SEAM_SEARCH:=(#SEAM+'*') #MD_SEARCH:=('*') // /////////////////////////////////////////////////////////////////////////// PRINT '**************************************************************************************************************************'%s PRINT '* Mapfile : ABCH.MAP Horizon : '%s #SEAM%-10s ' Date : 26-Sep-2001 16:33:34 *'%s PRINT '*Hole | Easting | Northing |Seam |Collar |DRoof | DFloor| SRoof |SFloor |C.Thick| MidBur|Parting| OvrBur|S.Thick|*'%s PRINT '*ID | LX | LY | HZ | LC | DR | DF | SR | SF | TK | MD | PT | OB | ST |*'%s PRINT '**************************************************************************************************************************'%s PRINT '*2345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012'%s PRINT '* 1 2 3 4 5 6 7 8 9 10 11 12 '%s QL_QUERY: $FRED:=LOCATE: (BORE == '*') #DR:=(999.9) #DF:=(0.0) #TK:=(0.0) #MD:=(999.9) #OB:=(999.9) $TOM:=LITHO: (SEAM == #SEAM_SEARCH) // N.B. field THICK does not contain the correct values in some cases on the DB //#ROOF:=($TOM:DEPTH - $TOM:THICK) IF ($TOM[PREVIOUS]) THEN #ROOF:=($TOM[PREVIOUS]:DEPTH) ELSE #ROOF:=($FRED:COLLAR) ENDIF #DR:=(#DR.MIN. #ROOF) #DF:=(#DF.MAX. $TOM:DEPTH) // N.B. field THICK does not contain the correct values in some cases on the DB //#TK:=(#TK + $TOM:THICK) #THICK:=($TOM:DEPTH - #ROOF) #TK:=(#TK + #THICK) // // N.B. have the alt conj (|) after the over-burden seam search so that the // test will ALWAYS fall through to the end even when there isn't a // suitable seam (otherwise the QL_GROUP isn't performed). Logic in // QL_GROUP handles calculating OB if there wasn't a suitable seam. // IF (#MD_SEARCH == '\*') THEN $DICK:=LITHO: (((SEAM != #SEAM_SEARCH) && (SEAM != ' ' )) && (DEPTH.LT.#DR)) | IF ($DICK:DEPTH) THEN #MD:=(#MD.MIN. (#DR - $DICK:DEPTH)) ENDIF ELSE $HARRY:=LITHO: (SEAM.EQ. #MD_SEARCH) | IF ($HARRY:DEPTH) THEN #MD:=(#MD.MIN. (#DR - $HARRY:DEPTH)) ENDIF ENDIF QL_GROUP: IF (#MD == 999.9) THEN #MD:=(0.0) #OB:=(#DR) ELSE #OB:=(0.0) ENDIF #ST:=(#DF - #DR) PRINT $FRED:BORE%-8s $FRED:EAST%12.3f $FRED:NORTH%12.3f ' '%s #SEAM%-5s $FRED:COLLAR%8.2f #DR%8.3f #DF%8.3f ($FRED:COLLAR-#DR)%8.2f ($FRED:COLLAR-#DF)%8.2f #TK%8.3f #MD%8.3f (#ST - #TK)%8.3f #OB%8.3f #ST%8.2fWas this page helpful?
