pc8001

pc8001

BASIC　円を描く 簡単なプログラム

BASICで円を描いてみました。 ①PC-8001  N-BASIC10 FOR i=0 TO2 STEP.0220 x=20*COS(i*3.14159)+4030 y=20*SIN(i*3.14159)+4040 PSET(x,y)50 NEXT PC-8001のBASICには、円を描く「CIRCLE」コマンドが存在しないため、自分でコードを書く必要がある。 仕組み 高校数学 三角関数・単位円・軌跡 の考え方を使う １．座標平面上で単位円を考え、x座標をコサイン

pc8001

    • 住宅の変化を数式であらわす

      昨年の秋頃、近所の家が取り壊された。もう何十年も人が住んでいなさそうなボロい家。敷地はロードサイドのコンビニと同じくらい。どこにでもあるような庭付き一戸建ての平屋だった。 何週間か経って、その土地に新しく家が建った。今度は、最近よくある真四角な二階建て。モダンなデザインでかっこいい。 ただ、一つ気になったのは、その土地に建った家が二軒であるということ。真っ黒な壁の家と、真っ白な壁の家。全く同じ形をした家が2つ並んでいる。 元の家は平屋で、新しい家は二階建て。床面積は変わ

      pc8001

      • カラーフィルムをモノクロ用薬品で自家現像した写真

        ずっと前に、カラーフィルムをモノクロ用の薬品で現像した。 興味本位でやってみたのだが、定着液を使った後もうまい具合に透けず、暗いネガができたので、写真屋に出せなかった。 しかし、先週35ミリフィルムのスキャナーを自作した。 今回は、それを使ってデータ化をしてみる。 方法 かなり暗いネガなので、フィルムに強めの光を当ててスキャンする。 カラーフィルムで撮っても、モノクロ用の薬品で現像すると色はつかなくて、オレンジ色のネガができる。 だから、編集ソフトで彩度が０になるよう加工

        pc8001

        • ３５mmフィルムスキャナを自作してみた。

          動機 2023年現在、フィルム写真を撮ろうとすると、フィルム1本1000円、フィルムを写真屋に出して現像してもらうと、現像代が1000円、ネガのデータ化が500円で3つ合わせて2500円にもなってしまう。 20〜30枚の写真を撮るのに2500円は高すぎる。 （データ化しない場合でも2000円以上かかる） フィルムは期限切れの安物を使えばいい、現像は自分ですればいい。 データ化も自分でしよう。 データ化を店に頼まない場合、スキャナを買うか、レンズにつける専用のアダプタを買う必

          pc8001

        BASIC　円を描く 簡単なプログラム

        pc8001