#********************************** # Search and sort of peak values #********************************** BEGIN{FS=","} { if(2<=NR){x[NR]=$2;y[NR]=$5;} } END{ #============================== # Search of peak values #============================== nd=NR;j=0; for(i=2;i<=nd-1;i++){ if(y[i-1]y[i+1]){j=j+1;kmp[j]=i;} if(3<=i){if(y[i-2]y[i+1]){j=j+1;kmp[j]=i;}} } nfp=j; #============================== # Save data #============================== for(i=1;i<=nfp;i++){ wx[i]=x[kmp[i]]; wy[i]=y[kmp[i]]; } #============================== # Sort of peak values #============================== for(i=1;i<=nfp-1;i++){ for(j=i+1;j<=nfp;j++){ if(wy[i]