10 OPTION BASE 1
15 DIM C(3),B(3,3)
25 DIM A(3,3)=(1,2,3,2,4,5,3,5,6), X(3)=(3,4,5)  ' MAT READ A,X
30 MATH M_INVERSE A(),B()                        ' MAT B=INV(A)
45 MATH M_PRINT B()                              ' MAT PRINT B
50 MATH V_MULT B(),X(),C()                       ' MAT C=B*X
60 PRINT "SOLUTIONS ARE "
65 PRINT
70 MATH V_PRINT C()                              ' MAT PRINT C
100 END

  1.0000,   -3.0000,    2.0000
 -3.0000,    3.0000,   -1.0000
  2.0000,   -1.0000,    0.0000
SOLUTIONS ARE

  1.0000,   -2.0000,    2.0000

Next /*

For a= 0 To 360 Step 5
*/

Next
/*

Option ANGLE DEGREES
MODE 3
Const cx = 4, cy = 4
Const size = 9
Const total = size * size

Dim xin(total - 1), yin(total - 1)
Dim xout(total - 1), yout(total - 1)
Dim ccolor(total - 1)

For i = 0 To total - 1
   x = i Mod size
   y = i \ size
   sx = x + 50
   sy = y + 50
   If x = y Or x + y = 8 Then
   ccc=Rnd()*&hFFFF00
       cColor(i) = ccc
       Pixel sx, sy, ccolor(i)
   Else
       Color (i) = RGB(0, 0, 0)
   EndIf
   xin(i) = x
   yin(i) = y
Next

Do

For a= 0 To 360 Step 5
   ccc=Rnd()*&HFFFFFF
Circle 124,54,7,1,,RGB(yellow)
angle = a
Math V_ROTATE cx, cy, angle, xin(), yin(), xout(), yout()
For i = 0 To total - 1
   If ccolor(i) <> RGB(0, 0, 0) Then
       x = Int(xout(i) + 0.5)
       y = Int(yout(i) + 0.5)
       If x >= 0 And x < size And y >= 0 And y < size Then
           Pixel x + 120, y + 50, ccolor(i)
       EndIf
   EndIf
Next

For i = 0 To total - 1
    If ccolor(i) = RGB(0, 0, 0) Then
       x = Int(xout(i) + 0.5)
       y = Int(yout(i) + 0.5)
       If x >= 0 And x < size And y >= 0 And y < size Then
           Pixel x + 120, y + 50, ccolor(i)
       EndIf
   EndIf
Next



Next a
Loop

'I'm trying to solve three equations in three unknowns

'x + 2y + 3z = 3
'2x + 4y + 5z = 4
'3x + 5y + 6z = 5


OPTION BASE 1
DIM C(3),B(3,3)
DIM A(3,3)=(1,2,3,2,4,5,3,5,6), X(3)=(3,4,5)  ' MAT READ A,X
MATH M_INVERSE A(),B()                        ' MAT B=INV(A)
'MATH M_PRINT B()                              ' MAT PRINT B
MATH V_MULT B(),X(),C()                       ' MAT C=B*X
PRINT "SOLUTION IS "
PRINT
print "x,y,z"
MATH V_PRINT C()                              ' MAT PRINT C
END

OPTION BREAK 0

If warning then
 sdWarningFlag=1
 redrawScreenFlag=1
EndIf

If MM.sdcardWarning then
 'reach out to user to deal with the problem
 'this way I have full control about the warning message
EndIf

' Bubble Universe

'2 Nested loops each 52 =2704 points calculated VGA
'Pico 2040Anal @ 378MHz normal 316mS Framebuff 397mS
'Pico 2350Anal @ 378MHz normal 185mS Framebuff 185mS

'2 Nested loops each 66 =4356 points calculated VGA
'Pico 2040Anal @ 378MHz normal 553mS Framebuff 683mS
'Pico 2040Anal @ 378MHz Framebuff/CLS 607ms
'Pico 2350Anal @ 378MHz normal 341mS Framebuff 341mS
'Pico 2350HDMI @ 372MHz normal 333mS Framebuf 333mS
'Pico 2350HDMI @ 372MHz normal 278mS Framebuf 279mS CLS,remove arrays

Play mp3 "B:/mp3/sailing"
Pause 1000
Play pause

MODE 2
Font 8
FRAMEBUFFER create
FRAMEBUFFER write f

Dim Float u(65),w(65),p,q,t,v=0,x=0,b
Dim Integer c(65),d(65),n(65),m(32,65),nn,dd,xc,yc,xs,ys
Dim Integer a,g,i,j,cc',y,z,f(16,65),l(16,65)
'Dim Integer e(65):Math Set 2,e()
Const r=(2*Pi)/235,k=255,s=50
CLS RGB(black)
t=Rnd*10
't=1
nn=Peek(varaddr n())
dd=Peek(varaddr d())
cc=Peek(varaddr c())
'calculate centre and scale factor
xc=MM.HRES\2:yc=MM.VRES\2
xs=MM.HRES/4.2:ys=MM.VRES/4.0  'Oval
'xs=MM.HRes/6:ys=MM.VRes/4      'Circular

For a=0 To 65
For g=0 To 65
 If a<18 And g<18 Then
  n(g)=RGB(0,255,0)
 Else
  n(g)=RGB(a*3.93,g*3.93,128*(a+g<65))
 EndIf
Next 'g
Memory pack nn, Peek(varaddr m(0,a)),66,32 'pack pixel colours
Next 'a
Do
CLS
Inc t,0.035:g=0:Print Timer,MM.Info(heap):Timer =0
For i=60To 255Step 3
'z=Peek(varaddr f(0,g)):Memory unpack z,cc,66,16
'y=Peek(varaddr l(0,g)):Memory unpack y,dd,66,16
'Pixel c(),d(),0'Box c(),d(),e(),e(),0,,0
b=r*i+t
 For j=0To 65:u(j)=Sin(i+v)+Sin(x):v=Cos(i+v)+Cos(x):x=u(j)+b:w(j)=v:Next
 Math Scale u(),xs,c():Math Scale w(),ys,d():Math add c(),xc,c():Math Add d(),yc,d()
 Memory unpack Peek(varaddr m(0,g)),nn,66,32 'unpack pixel colours
 Pixel c(),d(),n()'Box c(),d(),e(),e(),0,,n()
 'Memory pack cc,z,66,16:Memory pack dd,y,66,16
 Inc g
Next 'i
FRAMEBUFFER copy f,n
Loop