水路中間点標高
2024.5.20 修正
##### suiro.awk
##### suiro.awk
BEGIN{ dq="\""
i=0;j=0
cc=1
cma=","
pd="."
todis=0
k=1000
##ユーザー設定(文字種)
cn1="cn5"
cn2="cn4"}
##変化点座標取得
/^hp/{ x[i]=$2;y[i]=$3
if(i>=3){
dx=(x[i]-x[i-1])/1000;dy=(y[i]-y[i-1])/1000
xc=(x[i]+x[i-1])/2;yc=(y[i]+y[i-1])/2
secdis=sqrt(dx^2+dy^2)
secdis=int(secdis*k+0.5)/k
#起点-中間点距離
todis=todis+secdis
hdis[i]=todis
##区間距離作図
#カンマに変更
dis=secdis
split(dis,ma,pd)
dis=ma[1] cma ma[2]
dis=dq dis
if(dx<0){dx=-dx;dy=-dy}else{}
if(cc==1){print "cc1";print cn1}else{}
print "ch",xc,yc,dx,dy,dis
cc=0}
i=i+1}
##標高(起点、終点)
/^ch/{ h[j]=substr($6,2)
j=j+1 }
END{ altdif=h[1]-h[0] #標高差
grad=altdif/todis #勾配
print "cc0" #文字基点(左下)
print cn2 #文字種指定
##区間点標高作図
for(m=3;m<i-1;m++){
alti=(h[0]+grad*hdis[m])
alti=dq alti
print "ch",x[m],y[m],5,0,alti
}}
| 固定リンク
コメント
somem様
お世話になっております
いつも私の勝手な意向を
お聞き頂き感謝します
本当に有難うございます!
投稿: a.fujii | 2024年5月 9日 (木) 07時11分
somem様
お世話になっております
素晴らしいにつきます
お手数をおかけしました
本当に有難うございました
投稿: a.fujii | 2024年5月21日 (火) 11時19分