Show threadRheolism23h ago
#bbcmicrobot MO.1:V.275;8;0;531;15;0;29,624;528;5:N=314:F.P=0TON:Y=1-2*P/N:T=2.4*P:MOVESQR(1-Y*Y)*COST*480,Y*480:M=115A.SINT<0:GC.1,1EORM:V.47EORM:N.:V.1
Show threadRheolism1d ago
#bbcmicrobot @glymph MO.4:V.29,624;528;5:N=314:F.P=0TON:Y=1-2*P/N:T=2.4*P:MOVESQR(1-Y*Y)*COST*480,Y*480:V.47EOR115A.SINT<0:N.:V.1
Show threadRheolism1d ago
#bbcmicrobot MO.1:A%=13:V.531;4;0;787;6;0;29,624;528;5:N=314:F.P=0TON:Y=1-2*P/N:R=SQR(1-Y*Y):T=2.4*P:X=R*COST:Z=R*SINT:GC.1,3+(Z<0):MOVEX*480,Y*480:CA.!554:I.I:N.:V.1
Show threadRheolism1d ago
#bbcmicrobot 0TR.1:N=N:IFN N.:V.1 EL.MO.0:V.29,592;528;5:N=314:F.I=0TON:Y=1-2*I/N:R=SQR(1-Y*Y):T=2.4*I:X=R*COST:Z=R*SINT:IFZ<0N.EL.MOVEX*480,Y*480:G.0
Show threadRheolism2d ago
#bbcmicrobot 0TR.1:!-506=11:V.11-INKEY5,31X%,Y%:X%=X%+(1ORA%):Y%=Y%+(1ORB%):A%=A%EORX%MOD36=0:B%=B%EORY%MOD24=0:RUN
Show threadgroff ๐Ÿ‡บ๐Ÿ‡ฆ2d ago
#bbcmicrobot ๐Ÿš€
REM @sil
DIM M 1024
FOR L=13TO17:?L=?-444: NEXT
FORL=M TOM+1023 STEP4:!L=RND:N.
C%=1:A=0
REPEAT
O=FNround(C%)
T=A*C%
C%=-NOTC%
A=(T+O)/C%
PRINT"Pi after "; C%; " rounds is "; A*4
UNTILC%>10000
END
DEFFNround(X%)
F%=0:H%=0:T%=0
REPEAT
R%=((M?((X%/8)MOD1023))/2^(X%MOD8))AND1
IFR%=1H%=-NOTH%ELSET%=-NOTT%
F%=-NOTF%:X%=-NOTX%
UNTILH%>T%
P.
=H%/F%
Tom Gidden2d ago
#bbcmicrobot DIMn(321),c(321),a(2):MO.1:F.Y%=0TO255:a(0)=3.4+.9*Y%/256:F.X%=0TO321:c(X%)=n(X%):n(X%)=0:N.:e=0:F.X%=0TO319:a(1)=2.5+X%/320:z=0:c=.5:R%=15:M%=8:F.J%=1TO10:r=a(R%AND1):R%=R%DIV2:M%=M%-1:IFM%=0THENR%=Q%:M%=L%
c=r*c*(1-c):r=ABS(r-2*r*c):z=z+LOG(r):N.:v=-z*1.4+3+e+c(X%):IFv<0THENv=0ELSEIFv>6THENv=6
V%=v+.5:IFV%<0THENV%=0ELSEIFV%>6THENV%=6
E=v-V%:e=E*.44:IFX%THENn(X%-1)=n(X%-1)+E*.19
n(X%)=n(X%)+E*.31:IFX%<320THENn(X%+1)=n(X%+1)+E*.06
GC.0,V%:PL.69,X%*4,Y%*4:N.:N.
Rheolism2d ago
#bbcmicrobot 0TR.9:P."TRACE adventure. Enter N S E W to move.":P$="You are at ":P.P$;
1I.'I$:P.P$;:G.INSTR("SEWN",I$)+1
2I.'I$:P.P$;:G.INSTR("NEWS",I$)+1
3I.'I$:P.P$;:G.INSTR("NEW",I$)+3
4I.'I$:P.P$;:G.INSTR("WES",I$)+1
5I.'I$:P.P$;:G.INSTR("WE",I$)+5
6I.'I$:P.P$;:G.INSTR("EW",I$)+1
7I.'I$:P.P$;:G.INSTR("ES",I$)+6
8I.'I$:P.P$;:G.INSTR("SEW",I$)+6
9P."the end!":TR.OFF
Rheolism2d ago
#bbcmicrobot 0IFD%TR.1:F%=NOTF%:X%=X%+(D%A.F%):D%=D%*(1ORF%A.(X%<32ORX%>1124)):MOVEX%,999:G.0EL.MO.4:GC.4,0:V.5:D%=42:X%=32:G.0
Show threadRheolism3d ago
#bbcmicrobot @bazzargh !526=!-52:DIMS(512):F.V%=1TO512:S(V%)=SQR(V%+V%):N.:MO.0:V%=512:V.29,624;488;5:S%=-V%*SQR.5:MOVES%,S%:N%=4:Q%=32:PROCH(-Q%,-Q%,Q%,0,0,Q%):V.21
DEFPROCH(A%,B%,C%,D%,E%,F%)IFN%<0X%=(A%+C%+D%+1)DIV2:Y%=(B%+E%+F%+1)DIV2:DR.X%*S(512-Y%*Y%),Y%*S(512-X%*X%):E.
N%=NOT-N%:C%=C%DIV2:D%=D%DIV2:E%=E%DIV2:F%=F%DIV2:PROCH(A%,B%,D%,F%,C%,E%):A%=A%+C%+C%:B%=B%+E%+E%:PROCH(A%,B%,C%,E%,D%,F%):A%=A%+D%+D%:B%=B%+F%+F%:PROCH(A%,B%,C%,E%,D%,F%):PROCH(A%+D%+D%,B%+F%+F%,-D%,-F%,-C%,-E%):N%=-NOTN%:E.