.版本 2
.程序集 程序集1
.子程序 占卜人數, 整數型, 公開
.參數 問題, 文本型
.局部變數 本卦, 整數型
.局部變數 之卦, 整數型
.局部變數 變爻數, 整數型
.局部變數 預測人數, 整數型
// 生成卦象
本卦 ＝ 生成卦象()
變爻數 ＝ 統計變爻(本卦)
// 計算基礎人數
預測人數 ＝ 取卦序(本卦)
// 變爻調整
.如果 (變爻數 ＞ 0)
預測人數 ＝ 預測人數 ＋ (變爻數 × 6)
.否則
預測人數 ＝ 預測人數 ＋ 8 // 靜卦補償
.如果結束
// 之卦修正
之卦 ＝ 生成之卦(本卦)
.如果 (取卦序(之卦) ＞ 取卦序(本卦))
預測人數 ＝ 預測人數 × 1.2
.否則
預測人數 ＝ 預測人數 × 0.9
.如果結束
返回 (四捨五入(預測人數))
.版本 2
.程序集 程序集1
.子程序 占卜人數, 整數型, 公開
.參數 問題, 文本型
.局部變數 本卦, 整數型
.局部變數 之卦, 整數型
.局部變數 變爻數, 整數型
.局部變數 預測人數, 整數型
// 生成卦象
本卦 ＝ 生成卦象()
變爻數 ＝ 統計變爻(本卦)
// 計算基礎人數
預測人數 ＝ 取卦序(本卦)
// 變爻調整
.如果 (變爻數 ＞ 0)
預測人數 ＝ 預測人數 ＋ (變爻數 × 6)
.否則
預測人數 ＝ 預測人數 ＋ 8 // 靜卦補償
.如果結束
// 之卦修正
之卦 ＝ 生成之卦(本卦)
.如果 (取卦序(之卦) ＞ 取卦序(本卦))
預測人數 ＝ 預測人數 × 1.2
.否則
預測人數 ＝ 預測人數 × 0.9
.如果結束
返回 (四捨五入(預測人數))