本日は、私の２００６年１月２５日の作品、songzhaoのボケ封じ数学講座第７講への追講と致します。
７講で扱ったのは”ヘロンの公式”でした。これは三角形の３辺の長さを測って面積を求めるというものです。・・・・とりあえず百度（baidu)の検索サイトからsongzhao のボケ封じ数学講座第７講と検索していただければこのページが出てきます。（本家本元のNTTサイトからは無視されて検索できないのがしゃくに触ります）。
１５年ぶりに他業種から不動産業に返り咲いた私は既に還暦を通り越している。しかし、惚けてなどいられない。
そのような理由で、第７講のプログラムが不動産屋の手に馴染むように改良することにしよう。
興味のある向きには、１３５０行以下をつぎの様に書き換えてみてください。
１３５０ ＬＯＣＡＴＥ ２４，２：ＰＲＩＮＴ”（Ｚ＝ｅｎｄ）”：ＬＯＣＡＴＥ ２４，３：ＰＲＩＮＴ”（Ｃ＝ｄｉｖ）”；
１３６０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １３６０
１３７０ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ＥＮＤ ＥＬＳＥ ＩＦ Ａ＄＝”Ｃ”ＴＨＥＮ １４００ ＥＬＳＥ ＲＥＴＵＲＮ
１４００ ＲＥＭ ＊＊ ブンカツクカク ノ キュウセキ
１４１０ ＣＬＳ：ＰＲＩＮＴ”ブブン ノ キュウセキ”：ＰＲＩＮＴ”キュウセキ ハンイ ｆｒｏｍ ”：ＰＲＩＮＴ” ｔｏ ”：ＬＯＣＡＴＥ １５，１：ＩＮＰＵＴ ＳＴ：ＬＯＣＡＴＥ １５，２：ＩＮＰＵＴ ＧＯ
１４２０ ＢＴ＝０：ＦＯＲ Ｊ＝ＳＴ ＴＯ ＧＯ：ＢＴ＝ＢＴ＋Ｓ（０，Ｊ－１）：ＮＥＸＴ Ｊ
１４３０ ＣＬＳ：ＰＲＩＮＴ”Ｎｏ．”；ＳＴ；”－ Ｎｏ．”；ＧＯ；”ノ メンセキ”：ＰＲＩＮＴ ＢＴ；”ｍ２”：ＰＲＩＮＴ ＢＴ＊０．３０２５；”ツボ”
１４４０ ＬＯＣＡＴＥ ２２，２：ＰＲＩＮＴ”（Ｃ＝ｃｏｎｔ）”：ＬＯＣＡＴＥ ２２，３：ＰＲＩＮＴ”（Ｚ＝ｅｎｄ）”；
１４５０ Ａ＄＝ＩＮＫＥＹ＄：ＩＦ Ａ＄＝””ＴＨＥＮ １４５０
１４６０ ＩＦ Ａ＄＝”Ｚ”ＴＨＥＮ ＥＮＤ ＥＬＳＥ ＧＯＴＯ １４００
こうしておけば、分譲区画ごとの面積を取り出すことができるようになってとても便利です。
ところで、０．３０２５という換算値は、１２１坪が４００平方メートルに等しいということです。
１２１坪を４００ｍ２で割った時の数値が０．３０２５。４００を１２１で割っても割り切れないので、０．３０２５という換算値をよく使います。
例えば、６００ｍ２は ６００＊０．３０２５＝１８１．２坪と言った具合です。また、１００坪は何平米かという計算は１００/０．３０２５＝３３０．５７８５１２４・・・（坪）と割り切れない数になってしまいます。