DEM'den kesit alma

Sayfanın 21:14, 2 Nisan 2009 tarihindeki hali

N40E029C.grd isimli srtm grd'den kesit alma. Bu grd'nin elde edilmesi için SRTM GEBCO mozaik sayfasına bakınız.

 
# profil güzargahı oluştur
project -C29.8/40.3 -E29.8/40.5 -G0.000855555 > ! profil.xy
 
# bu güzargah boyunca Dem'den profil çıkar
grdtrack  profil.xy -GN40E029C.grd > ! profile.xydz
 
# plot'un eskenlerini belirle ve yükseliğin minimum değerini azalt ve maksimum değerlerini arttır (100 m)
set r = `minmax -C profile.xydz | awk ' {print $1,$2,$3,$4,$5,$6,$7-100,$8+100}'`
 
# yatay eksende boylam olsun 
awk '{print $2,$4}' profile.xydz| psxy -R$r[3]/$r[4]/$r[7]/$r[8] -JX10/2 -W \
-B0.1We:"Mesafe (derece)":/250Sn:"Yukseklik(m)"::."Topografik kesit": > ! x.ps
 
# xv ile görüntüleyelim 90 derece saat yönünde çevirerek
# xv yoksa gv, display veya gs kullanılabilir
xv -rotate -90 x.ps
 
# yatay eksen derece cinsinden mesafe olsun
awk '{print $3,$4}' profile.xydz| psxy -R$r[5]/$r[6]/$r[7]/$r[8] -JX10/2 -W \
-B0.1We:"Mesafe (derece)":/250Sn:"Yukseklik(m)"::."Topografik kesit":  > ! x.ps
xv -rotate -90 x.ps
 
# kesitin içini gri ile boyayalım
echo 0 0 0 0 > ! tmp
echo 180 180 180 0 > ! tmp2
cat tmp profile.xydz  tmp2 > ! tmp3
awk '{print $3,$4}' tmp3 | psxy -R$r[5]/$r[6]/$r[7]/$r[8] -JX10/2 -W \
-B0.1We:"Mesafe (derece)":/250Sn:"Yukseklik(m)"::."Topografik kesit": -G120 > ! x.ps
xv -rotate -90 x.ps
 
# Kesitin yerini harita üzerinde kırmızı çizgi ile gösterelim
# Gri palet oluşturalım topoğrafya için
echo -10000 180 180 180 10000 180 180 180 > ! gray.cpt
 
set name = marmara.ps
set R = "-R29/30/40/40.7 -JM6"
psbasemap $R -B0.2 -K -P> ! $name
grdimage $R -Cgray.cpt N40E029C.grd -IN40E029CI.grd -O -K>> $name
pscoast -Df -S120 -W -O $R  -Ia/2/blue -K >> $name
psxy profile.xydz $R -O -K -W8/red>> $name
psbasemap -Lf29.8/40.1/29.8/40.1/20 $R -O -B.2  -K >> $name
awk '{print $2,$4}' profile.xydz | psxy -Y7 -R$r[3]/$r[4]/$r[7]/$r[8] -JX6/1 -W \
-B0.1We:"Mesafe (derece)":/250Sn:"Yukseklik(m)"::."Topografik kesit":  -O>> $name
xv $name &