LDLコレステロールを計算する

単にLDLコレステロールの推定値を計算するプログラムです．電卓で計算するくらいなら記録が残ったほうが良いと思って書きました．以下のスクリプトを ldl_c.awk に保存して，JGAWK -f ldl_c.awk とコマンドを実行してみてください．

# calculate LDL-cholesterol

BEGIN	{
	OFS=","
	outfile = "LDL_C.TXT"
	print "calculate LDL-cholesterol (press return)"
	print "リターン・キーを押してください．空打ちすると終了します．"
	i = 1; j = 1
	"date" | getline d
	split(d, a, " ")
	date = a[2]
	split("ID= ,TCHO= ,TG= ,HDLC= ", b, ",")
	print "Date, Serial, ID, TCHO, TG, HDLC, LDLC" >> outfile
	print "Total "j
	printf("%s",b[i])
}
	{
	l = $0
	ip[i] = l
	if (i == 4)	{
		LDL = ip[2] - ip[3]/5 - ip[4]
				# Friedewaldの計算式
		LDL = round(LDL)
		print "LDLC= "LDL
		print date,j,ip[1]"",ip[2],ip[3],ip[4],LDL >> outfile

		for(i in ip) { ip[i] = "" }
		LDL = ""
		i = 1; ++j
		print "Total "j
		printf("%s",b[i])
	}
	else if (ip[1]==ip[2] && (ip[1]"" == "") && i>1) { exit } 
	else	{
		++i
		printf("%s",b[i])
	}
}
function round(x) {
	if ( 10*(x - int(x)) >= 5 ) { return int(x)+1 }
	else { return int(x) }
}

JGAWKホームページに戻る