# maths & graphic

• ### General discussion

• a new thread relating to creating graphics from math functions and operations
Wednesday, January 10, 2018 7:18 AM

### All replies

• magic squares: DVM500

Wednesday, January 10, 2018 7:21 AM
• total numbers of squares 7x7 is 49!= 2x3x4x...x48x49=6.082 x 10^62!!

when u find a magic one, u can permutate its rows&cols, then u can have 7!=5040 permutation of each one. magic is the one with all sums of rows and cols and both diagonals the same, thus 175. if u permutate both rows n cols then u have 7! x 7!=25,401,600 subtypes of one magic square! also u can add 7 to each number to mage a new magic square. however if one or both diagonal differs from 175 then it's a semimagic square. if u power every cell to cube and obtain a magic square then its a bimagic square. when u draw sequence of numbers 1 to 49 u can obtain sometimes very complex drawings. i found that sometimes nums increases by 8 in one and by 9 in transverse dir.

explanation of buttons:

• odd displys odd numbers
• all show all nums
• prm show primes
• seq draws num sequence 1..49
• pi shows pi decimals positions: 31 41 5 9 26 5 35 8. i'm looking for finding a magic square with this sequence in one row or col. however its sum is 152 and it's not possible to obtain 175 thus it can be only semimagic square with this  seq. in diagonal, or to replace 5 with 28 to obtain 175 but then it's not pi anymore((
• gen generates a new mag.sq.
• pmt permuts 2 random rows
• clr clears turtle lines
• err shows duplicated values
• missing shows missing nums and its sum

• Edited by Wednesday, January 10, 2018 7:51 AM
Wednesday, January 10, 2018 7:50 AM
• parametric draw of batsign: QPB413

Monday, January 15, 2018 6:41 PM
• fractal julia set anim: HVD712-1

• Edited by Thursday, February 1, 2018 4:51 AM
Thursday, February 1, 2018 4:50 AM
• hearts

```GraphicsWindow.BackgroundColor="midnightblue"
GraphicsWindow.Title="Hearts"

For s100=10 To 100 Step 15
For x=0 To 1 Step .001
y=Math.Power(x 2/3)-Math.SquareRoot(1-x*x)
GraphicsWindow.SetPixel (x*s100+200 300-y*s100 "red")
y=Math.Power(x 2/3)+Math.SquareRoot(1-x*x)
GraphicsWindow.SetPixel (x*s100+200 300-y*s100 "red")
y=Math.Power(x 2/3)-Math.SquareRoot(1-x*x)
GraphicsWindow.SetPixel (200-x*s100 300-y*s100 "red")
y=Math.Power(x 2/3)+Math.SquareRoot(1-x*x)
GraphicsWindow.SetPixel (200-x*s100 300-y*s100 "red")
EndFor
EndFor ```

Thursday, February 8, 2018 9:21 PM
• hearts v2: LQZ137

Thursday, February 8, 2018 9:34 PM
• Recently I read a book "Mindstorm" written by Seymour Papert and strongly inspired from his microworld concept. Then I'd like to create Maths microworlds with Small Basic and other languages.

This is my first (?) microworld: LCH247.

• This program shows all 16 binary relations in a set {0,1}.
• Hit any key to show next relation.

Nonki Takahashi

Sunday, July 26, 2020 1:36 AM
• nice done nnki))

a bit updated: CSN344

Monday, July 27, 2020 7:24 AM