<?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: マンデルブロート</title>
<author>knoike</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8955511</link>
<description><![CDATA[本題からは離れた余談なのですが、「Mandelbrot」の t は発音せず、「マンデルブロ（マンデルブロー）」と読みます。
「ballet（バレエ）」とか、
「depot（デポ）」とか、
「buffet（ビュッフェ）」などと同じです。]]></description>
<pubDate>Mon, 20 Jul 2026 06:21:54 +0900</pubDate>
</item>
<item>
<title>Re: マンデルブロート</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8955511</link>
<description><![CDATA[マンデルブロートの着色法には繰り返し数以外にもある。
下記プログラムはZの偏角を利用している。


SET COLOR MIX(0) 0,0,0
SET COLOR MODE &amp;quot;NATIVE&amp;quot;
CLEAR
LET XS=-2
LET YS=-2
LET XE=2
LET YE=2
SET WINDOW XS,XE,YE,YS
SET POINT STYLE 1
ASK BITMAP SIZE XSIZE,YSIZE
LET KMAX=50
LET N=2
FOR Y=0 TO YSIZE
   FOR X=0 TO XSIZE
      LET A=COMPLEX(WORLDX(X),WORLDY(Y))
      LET Z=0
      FOR K=1 TO KMAX
         LET Z=Z^N+A
         IF ABS(Z)&amp;gt;2 THEN
            LET H=MOD(DEG(ANGLE(RE(Z),IM(Z)))+360,360]]></description>
<pubDate>Sun, 19 Jul 2026 07:54:37 +0900</pubDate>
</item>
<item>
<title>Re: マンデルブロート</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8955511</link>
<description><![CDATA[Zの距離を利用したもの


FOR I=0 TO 7
   SET COLOR MIX(I) BITAND(I,2)/2,BITAND(I,4)/4,BITAND(I,1)
NEXT I
CLEAR
LET XS=-2
LET YS=-2
LET XE=2
LET YE=2
SET WINDOW XS,XE,YE,YS
SET POINT STYLE 1
ASK BITMAP SIZE XSIZE,YSIZE
LET KMAX=50
LET N=2
FOR Y=0 TO YSIZE
   FOR X=0 TO XSIZE
      LET A=COMPLEX(WORLDX(X),WORLDY(Y))
      LET Z=0
      LET DZ=1
      FOR K=1 TO KMAX
         LET Z=Z^N+A
         LET DZ=N*Z^(N-1)*DZ
         IF ABS(Z)&amp;gt;2 THEN
            LET R=ABS(Z)
            LET DR=]]></description>
<pubDate>Sun, 19 Jul 2026 07:53:09 +0900</pubDate>
</item>
<item>
<title>Re: マンデルブロート</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8955511</link>
<description><![CDATA[軌道トラップによる描画


FOR I=0 TO 7
   SET COLOR MIX(I) BITAND(I,2)/2,BITAND(I,4)/4,BITAND(I,1)
NEXT I
CLEAR
LET XS=-2
LET YS=-2
LET XE=2
LET YE=2
SET WINDOW XS,XE,YE,YS
SET POINT STYLE 1
ASK BITMAP SIZE XSIZE,YSIZE
LET KMAX=50
LET N=2
FOR Y=0 TO YSIZE
   FOR X=0 TO XSIZE
      LET A=COMPLEX(WORLDX(X),WORLDY(Y))
      LET Z=0
      LET MINDIST=1E+8
      FOR K=1 TO KMAX
         LET Z=Z^N+A
         LET MINDIST=MIN(MINDIST,ABS(Z))
         IF ABS(Z)&amp;gt;2 THEN
            LET COL=INT(]]></description>
<pubDate>Sun, 19 Jul 2026 07:51:54 +0900</pubDate>
</item>
<item>
<title>マンデルブロート</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8955511</link>
<description><![CDATA[ポテンシャル関数による描画


FOR I=0 TO 7
   SET COLOR MIX(I) BITAND(I,2)/2,BITAND(I,4)/4,BITAND(I,1)
NEXT I
CLEAR
LET XS=-2
LET YS=-2
LET XE=2
LET YE=2
SET WINDOW XS,XE,YE,YS
SET POINT STYLE 1
ASK BITMAP SIZE XSIZE,YSIZE
LET KMAX=50
LET N=2
FOR Y=0 TO YSIZE
   FOR X=0 TO XSIZE
      LET A=COMPLEX(WORLDX(X),WORLDY(Y))
      LET Z=0
      FOR K=1 TO KMAX
         LET Z=Z^N+A
         IF ABS(Z)&amp;gt;2 THEN
            LET COL=(N-LOG(LOG(ABS(Z)))/LOG(2))*8
            SET POINT COLOR MAX(1,M]]></description>
<pubDate>Sun, 19 Jul 2026 07:50:19 +0900</pubDate>
</item>
<item>
<title>Re: 4次元グラフィックス</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8953919</link>
<description><![CDATA[4次元トーラス



OPTION ANGLE DEGREES
LET LMIN=1E+10
LET LMAX=-1E+10
LET NN=40 !'分割数
LET MM=40
DIM M(4,4),POINT(4),ROTXY(4,4),ROTXZ(4,4),ROTYU(4,4),ROTYZ(4,4),ROTXU(4,4),ROTZU(4,4)
DIM XX(0 TO NN,0 TO MM),YY(0 TO NN,0 TO MM),ZZ(0 TO NN,0 TO MM),WW(0 TO NN,0 TO MM)
SET POINT STYLE 1
FOR J=0 TO MM
   FOR I=0 TO NN
      LET ALPHA=I*360/NN
      LET BETA=J*360/MM
      LET XX(I,J)=COS(ALPHA)
      LET YY(I,J)=SIN(ALPHA)
      LET ZZ(I,J)=COS(BETA)
      LET WW(I,J)=SIN(BETA)
      LET XM]]></description>
<pubDate>Sun, 05 Jul 2026 07:51:04 +0900</pubDate>
</item>
<item>
<title>Re: 4次元グラフィックス</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8953919</link>
<description><![CDATA[二十四胞体


https://ja.wikipedia.org/wiki/正二十四胞体

以下データのみ


DATA -1,0,0,0
DATA 0,-1,0,0
DATA 0,0,-1,0
DATA 0,0,0,-1
DATA 1,0,0,0
DATA 0,1,0,0
DATA 0,0,1,0
DATA 0,0,0,1
DATA -0.5,-0.5,-0.5,-0.5
DATA -0.5,-0.5,-0.5,0.5
DATA -0.5,-0.5,0.5,-0.5
DATA -0.5,-0.5,0.5,0.5
DATA -0.5,0.5,-0.5,-0.5
DATA -0.5,0.5,-0.5,0.5
DATA -0.5,0.5,0.5,-0.5
DATA -0.5,0.5,0.5,0.5
DATA 0.5,-0.5,-0.5,-0.5
DATA 0.5,-0.5,-0.5,0.5
DATA 0.5,-0.5,0.5,-0.5
DATA 0.5,-0.5,0.5,0.5
DATA 0.5,0.5,-0.5,-0.5]]></description>
<pubDate>Sun, 05 Jul 2026 07:49:44 +0900</pubDate>
</item>
<item>
<title>Re: 4次元グラフィックス</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8953919</link>
<description><![CDATA[十六胞体

https://ja.wikipedia.org/wiki/正十六胞体

以下データのみ



DATA -1,0,0,0
DATA 0,-1,0,0
DATA 0,0,-1,0
DATA 0,0,0,-1
DATA 1,0,0,0
DATA 0,1,0,0
DATA 0,0,1,0
DATA 0,0,0,1



DATA 3,5,6,7
DATA 3,4,6,7
DATA 3,4,5,7
DATA 3,4,5,6
DATA 3,0,6,7
DATA 3,0,5,7
DATA 3,0,5,6
DATA 3,1,6,7
DATA 3,1,4,7
DATA 3,1,4,6
DATA 3,0,1,7
DATA 3,0,1,6
DATA 3,2,5,7
DATA 3,2,4,7
DATA 3,2,4,5
DATA 3,0,2,7
DATA 3,0,2,5
DATA 3,1,2,7
DATA 3,1,2,4
DATA 3,0,1,2
DATA 3,3,5,6
DATA 3,3,4,6
DATA]]></description>
<pubDate>Sun, 05 Jul 2026 07:48:22 +0900</pubDate>
</item>
<item>
<title>Re: 4次元グラフィックス</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8953919</link>
<description><![CDATA[八胞体を表示します。


https://ja.wikipedia.org/wiki/正八胞体


OPTION ANGLE DEGREES
LET LMIN=1E+10
LET LMAX=-1E+10
DIM M(4,4),POINT(4),ROTXY(4,4),ROTXZ(4,4),ROTYW(4,4),ROTYZ(4,4),ROTXW(4,4),ROTZW(4,4)
DIM X(50),Y(50),Z(50),W(50),MESH(50,10)
FOR I=1 TO 16
   READ X(I),Y(I),Z(I),W(I)
   LET XMAX=MAX(X(I),XMAX)
   LET XMIN=MIN(X(I),XMIN)
   LET YMAX=MAX(Y(I),YMAX)
   LET YMIN=MIN(Y(I),YMIN)
   LET ZMAX=MAX(Z(I),ZMAX)
   LET ZMIN=MIN(Z(I),ZMIN)
   LET WMAX=MAX(W(I),WMAX)
   LET WMIN=MIN(W(I]]></description>
<pubDate>Sun, 05 Jul 2026 07:47:08 +0900</pubDate>
</item>
<item>
<title>4次元グラフィックス</title>
<author>しばっち</author>
<link>http://deimal-basic.bbs.fc2.com/?act=reply&amp;tid=8953919</link>
<description><![CDATA[4次元グラフィックス


https://ja.wikipedia.org/wiki/五胞体
https://ja.wikipedia.org/wiki/多胞体

ワイヤーフレームで五胞体を表示します。
平行投影で4次元→2次元としています。
また、X-Y平面を描画していますが、X-Z平面やX-W平面、Y-W平面等もあります。


OPTION ANGLE DEGREES
LET LMIN=1E+10
LET LMAX=-1E+10
DIM M(4,4),POINT(4),ROTXY(4,4),ROTXZ(4,4),ROTYW(4,4),ROTYZ(4,4),ROTXW(4,4),ROTZW(4,4)
DIM X(20),Y(20),Z(20),W(20),MESH(20,3)
FOR I=1 TO 5
   READ X(I),Y(I),Z(I),W(I) ! 座標データ読み込み
   LET X]]></description>
<pubDate>Sun, 05 Jul 2026 07:45:02 +0900</pubDate>
</item>
</channel>
</rss>
