/*
&severity &error &ignore
&s curdir [show workspace]
&s unit [open map.list mk -read]
&s map [read %unit% mk]
/*
&do &while %mk% = 0
/*
&type %mk% %map%
import auto %map%.e00 %map%
/*
&workspace %curdir%
&s map [read %unit% mk]
&end
&s mk [close %unit%]
/* end
&return FINISHED YA!
statistics.aml
statistics
mean slope
std slope
min slope
max slope
mean asp
std asp
min asp
max asp
mean elev
std elev
min elev
max elev
mean beetle
std beetle
~
n
n
|
kill tmp all
kill tmp2 all
/*
&severity &error &ignore
&s curdir [show workspace]
&s unit [open map.list mk -read]
&s map [read %unit% mk]
/*
&do &while %mk% = 0
/*
&type %mk% %map%
gridpoint %map% tmp beetle
&type "gridpoint complete, now reselectiong"
reselect tmp tmp2 point
reselect beetle ne 0.000
~
N
N
&type "re-sel complete, now performing latticespot"
latticespot DEM-all tmp2 elev
latticespot DEM-SLP tmp2 slope
latticespot DEM-asp tmp2 asp
copy tmp2 %map%-r2
kill tmp all
kill tmp2 all
/*
&workspace %curdir%
&s map [read %unit% mk]
&end
&s mk [close %unit%]
/* end
&return FINISHED YA!
unload.aml
/*
&severity &error &ignore
&s unit [open map.list mk -read]
&s map [read %unit% mk]
/*
&do &while %mk% = 0
/*
&type %mk% %map%
sel %map%-r2.pat
unload table-%map% beetle elev slope asp columnar f8
/*
&s map [read %unit% mk]
&end
&s mk [close %unit%]
/* end
&return FINISHED YA!
|
new95 = select(mpb95, 'value > 0')
mask96 = selectmask(mpb96, select(mpb95, 'value = 0'))
new96 = select(mask96, 'value > 0')
&type NEdse tmp = 1
endif
mask97 = selectmask(mpb97, select(tmp, 'value = 1'))
new97 = select(mask97,'value > 0')
kill tmp all
&type next 98
if (mpb95 > 0 or mpb96 > 0 or mpb97 > 0) tmp2 = 100
else tmp = 1
endif
mask98 = selectmask(mpb97, select(tmp, 'value = 1'))
new98 = select(mask98,'value > 0')
kill tmp all
&type NEXT 99
if (mpb95 > 0 or mpb96 > 0 or mpb97 > 0 or mpb98 > 0) tmp = 100
else tmp = 1
endif
mask99 = selectmask(mpb99, select(tmp, 'value = 1'))
new99 = select(mask99,'value > 0')
kill tmp all
&type NEXT 00
if (mpb95 > 0 or mpb96 > 0 or mpb97 > 0 or mpb98 > 0
or mpb99 > 0) tmp = 100
else tmp = 1
endif
mask00 = selectmask(mpb00, select(tmp, 'value = 1'))
new00 = select(mask00,'value > 0')
kill tmp all
&type NEXT 01
if (mpb95 > 0 or mpb96 > 0 or mpb97 > 0 or mpb98 > 0 or mpb99 > 0
or mpb00 > 0) tmp = 100
else tmp = 1
endif
mask01 = selectmask(mpb01, select(tmp, 'value = 1'))
new01 = select(mask01,'value > 0')
kill tmp all
&type NEXT 02
if (mpb95 > 0 or mpb96 > 0 or mpb97 > 0 or mpb98 > 0 or mpb99 > 0
or mpb00 > 0 or mpb01 > 0) tmp = 100
else tmp = 1
endif
mask02 = selectmask(mpb02, select(tmp, 'value = 1'))
new02 = select(mask02,'value > 0')
kill tmp all
&type NEXT 03
if (mpb95 > 0 or mpb96 > 0 or mpb97 > 0 or mpb98 > 0 or mpb99 > 0
or mpb00 > 0 or mpb01 > 0 or mpb02 > 0) tmp = 100
else tmp = 1
endif
mask03 = selectmask(mpb03, select(tmp, 'value = 1'))
new03 = select(mask03,'value > 0')
kill tmp all
&return FINISHED YA!
|