PRINT
PRINT "赤血球 と 血小板 の成分輸血量決定のために"
PRINT
INPUT PROMPT "患者さんの体重？ ":w
PRINT
LET x=29*2/(0.7*w)
! 予測上昇Hb値(g/dL) ＝ 投与Hb量（g）/ 循環血液量（dL）
! 循環血液量は 70 mL/kg とする。
! 200mL由来MAP加赤血球濃厚液（１単位バッグ）中の Hb量 は 29g です。
PRINT "● ２単位の赤血球輸血直後の予測 Hb増加値 は ＋";ROUND(x,2);"g/dL です。" 
PRINT "                              （ ４単位なら ＋";2*ROUND(x,2);"g/dL です。）"
PRINT
PRINT
LET y=2/3*(10*202200)/(0.7*10^4*w)    ! 2/3 は 1/3 が脾臓で壊されるためです。
! 血小板輸血直後の予測血小板増加数 ＝ 2/3 × 輸血血小板総数 / 循環血液量(mL) × 10^3
! 循環血液量は 70 mL/kg ＝ 0.7*10^4 μL/kg とする。
! 血小板濃厚液１単位中の血小板数は 平均 20億2200万個 です。
PRINT "● １０単位の血小板輸血直後の予測 血小板増加数 は ＋";ROUND(y,2);"万個/μL です。"
PRINT "                                  （ ２０単位なら ＋";2*ROUND(y,2);"万個/μL です。）"
PRINT
END