<?xml version="1.0" encoding="UTF-8" ?>
<rss version='2.0'>
<channel>
<title>十進BASIC 第3掲示板</title>
<description>新着投稿一覧</description>
<link>http://deimal-basic.bbs.fc2.com/</link>
<ttl>60</ttl>
<copyright>FC2, inc</copyright>
<item>
<title>Re: PLOT LINESの使い方</title>
<author>島村1243</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8950137</link>
<description><![CDATA[SHRAISHI先生、早速のご教示有難う御座いました。
ご教示に従って、For Next を下記の様に修正したら、目的を達成できました!!!

FOR k=0 TO nMax
   LET wt=k*dwt
   IF k&amp;lt;nMax/2 THEN PLOT LINES:wt,wt/PI;
   IF k=nMax/2 THEN !---縦垂直線の処理
      PLOT LINES:wt,1;
      PLOT LINES:wt,0;
   END IF
   IF k&amp;gt;nMax/2 THEN PLOT LINES:wt,(wt-PI)/PI;
NEXT K]]></description>
<pubDate>Tue, 02 Jun 2026 10:38:53 +0900</pubDate>
</item>
<item>
<title>Re: PLOT LINESの使い方</title>
<author>SHIRAISHI Kazuo</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8950137</link>
<description><![CDATA[LET nMax=100
LET dwt=2*PI/nMax
FOR k=0 TO nMax
   LET wt=k*dwt
   PRINT k, wt-PI
NEXT K
END
を実行してみるとわかりますが，wt=PIになることがないのが原因のような気がします。
wtの値で分類するのでなく，kの値で分類すればうまくいくと思います。
(補足)
組込関数PIは16桁を超える精度を持っていますが，数値変数wtは15桁の精度で丸められます。
具体的には，PI=3.141592653589793238ですが，
k=50のとき，wt=3.1415926535898です。
だから，k=50のとき，wt&amp;gt;PIです。

]]></description>
<pubDate>Tue, 02 Jun 2026 08:06:12 +0900</pubDate>
</item>
<item>
<title>PLOT LINESの使い方</title>
<author>島村1243</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8950137</link>
<description><![CDATA[下記のコードで三角（鋸り）波の表示をしたいのですが、wt=PIのときの縦垂直線がずれてしまいます。
何処にコード誤記が有るのかが分からず困っています。
初歩のお尋ねで申し訳ありませんがご教示頂けると有り難いです。

SET WINDOW -0.1*PI,2.1*PI,-1.5,1.5
DRAW grid(PI/2,0.5)
LET nMax=100
LET dwt=2*PI/nMax
FOR k=0 TO nMax
   LET wt=k*dwt
   IF wt&amp;lt;PI THEN PLOT LINES:wt,wt/PI;
   IF wt=PI THEN !---縦垂直線の処理
      PLOT LINES:wt,1;
      PLOT LINES:wt,0;
   END IF
   IF wt&amp;gt;PI THEN PLOT LINES:wt,(wt-PI)/PI;]]></description>
<pubDate>Tue, 02 Jun 2026 07:42:57 +0900</pubDate>
</item>
<item>
<title>Re: 文字探しゲーム</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8949891</link>
<description><![CDATA[指定された文字を探し出しクリックします。
全部見つけたと思ったら「完了」をクリックすると判定されます。

難易度を上げる為に回転文字や反転文字等も含まれています。


OPTION ANGLE DEGREES
RANDOMIZE
LET COL=15
LET ROW=10
DIM A$(200),M$(COL,ROW),R(COL,ROW),MOJI$(5),SX(COL,ROW),SY(COL,ROW)
DO
   READ IF MISSING THEN EXIT DO:D$
   FOR J=1 TO LEN(D$)
      LET K=K+1
      LET A$(K)=MID$(D$,J,1)
   NEXT J
LOOP
CALL GINIT(600,600)
LET N=INT(RND*4+2)
FOR I=1 TO N
   LET MOJI$(I)=A$(RND*K+1)
NEXT I]]></description>
<pubDate>Sun, 31 May 2026 07:42:41 +0900</pubDate>
</item>
<item>
<title>文字探しゲーム</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8949891</link>
<description><![CDATA[文字探しゲーム


文字の中からマウスで「デ」と「レ」を探しだすゲームです。
全部見つけたと思ったら「完了」をクリックすると判定されます。

すばやく見つけて間違えず見過ごさないことが試されます。


RANDOMIZE
DIM A$(100),M$(50,50)
FOR I=1 TO 3
   READ D$
   FOR J=1 TO LEN(D$)
      LET K=K+1
      LET A$(K)=MID$(D$,J,1)
   NEXT J
NEXT I
CALL GINIT(600,600)
LET H=40
SET TEXT JUSTIFY &amp;quot;LEFT&amp;quot;,&amp;quot;TOP&amp;quot;
SET TEXT COLOR 7
SET TEXT HEIGHT H*.8
DATA &amp;quot;アイウエオカキクケコサシスセソタチツテトナニヌネノハ]]></description>
<pubDate>Sun, 31 May 2026 07:40:57 +0900</pubDate>
</item>
<item>
<title>Re: 三角関数値が異常です</title>
<author>SHIRAISHI Kazuo</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8944678</link>
<description><![CDATA[ワイエルシュトラス関数のグラフを描くプログラムです。
グラフを描く目的ならさほど多くの項の計算は不要です。
2進倍精度で計算するのであれば，140行で求めているNmaxまで計算することが目安になります。

100 REM ワイエルシュトラス関数
110 OPTION ARITHMETIC NATIVE
120 LET a=0.5
130 LET b=13
140 LET Nmax=-54*LOG2(a)
150 FUNCTION w(x)
160    LET t=0
170    LET r=MOD(x,2)
180    FOR n=0 TO NMax
190       LET t=t+a^n*COS(r*PI)
200       LET r=MOD(r*b,2)
210    NEXT n
220    LET w=t
230 END FUNCTION
240 S]]></description>
<pubDate>Sat, 16 May 2026 09:10:26 +0900</pubDate>
</item>
<item>
<title>BASICAcc 1.2.3.0　ParactBASIC 2.1.5.0</title>
<author>SHIRAISHI Kazuo</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8948203</link>
<description><![CDATA[BASICAcc 1.2.3.0とParactBASIC 2.1.5.0で，Intel FPU環境で引数の絶対値が2^63以上だと三角関数が異常値をとる不具合を修正しました。
従来，FPCのsin, cosを直接利用する形に翻訳していたものを，別途用意したライブラリを使う形にするために，内部構造を変更しています。
関係ないところに変更の余波が及ぶ可能性もあるので，不具合に気付いた方は報告をお願いします。]]></description>
<pubDate>Fri, 15 May 2026 21:02:45 +0900</pubDate>
</item>
<item>
<title>微細構造定数と質量比3種</title>
<author>百瀬</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8948160</link>
<description><![CDATA[CODATA2022の不確かさ内の精度で物理定数を導出します。
数字パズルとして組合わせを見つける確率や情報圧縮の
観点から、結果を狙っての設計は不可能だと思いますが、
お詳しい方のご意見を頂けましたら幸いです。


LET u=1
LET r=u+2
LET a=r*(r-u)
LET b=2
LET nn=a+b-u
LET rel=a+b+r
LET ph=nn+b
LET h=rel+u+nn
LET n=r+rel+ph+h
LET c=2*n
LET p=4*ATN(1)
LET t=1-a/nn^2
LET Phi=n*r+rel+r/c+(rel-ph)/c^2+(18/(nn*p))*t/c^3+(4*p)*t/c^4
LET d1=r+ph+u
LET d2=h*(n-(r+u))
LET d3=d1*d2
LET d4=d2*(n-(r+u))*a*(rel-r]]></description>
<pubDate>Fri, 15 May 2026 14:14:45 +0900</pubDate>
</item>
<item>
<title>Re: 三角関数値が異常です</title>
<author>SHIRAISHI Kazuo</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8944678</link>
<description><![CDATA[上掲プログラムで，xに2進小数として切りのいい数を指定しないとカオスになるのは，2進モードのMOD関数が十分な精度を持たないのが影響していました。修正します。

]]></description>
<pubDate>Sun, 03 May 2026 08:36:57 +0900</pubDate>
</item>
<item>
<title>Re: ガチャ</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8946927</link>
<description><![CDATA[https://dskjal.com/statistics/chance-calculator-jp
https://mikami3345.cloudfree.jp/Probability/Probability.html

! スマホガチャ　当選率P%をN回ガチャ引いて1個以上当たる確率
!LET P=1/100 ! 当選率
!LET N=100 ! ガチャを引く回数
!PRINT (1-(1-P)^N)*100;&amp;quot;%&amp;quot;

SET WINDOW -10,150,-10,100
DRAW GRID(10,10)
LET P=1/100 ! 当選率
FOR N=0 TO 150 ! ガチャを引く回数
   PLOT LINES:N,(1-(1-P)^N)*100;
NEXT N
END
-----------------------------------------------------------------------
上記のシュミレーションプログ]]></description>
<pubDate>Sun, 03 May 2026 07:43:01 +0900</pubDate>
</item>
</channel>
</rss>
