Asked by:
maths & graphic
General discussion

a new thread relating to creating graphics from math functions and operationsWednesday, 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.
 add adds 7 to each num
 pmt permuts 2 random rows
 clr clears turtle lines
 err shows duplicated values
 missing shows missing nums and its sum
 Edited by Tryhest 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: HVD7121
 Edited by Tryhest 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(1x*x) GraphicsWindow.SetPixel (x*s100+200 300y*s100 "red") y=Math.Power(x 2/3)+Math.SquareRoot(1x*x) GraphicsWindow.SetPixel (x*s100+200 300y*s100 "red") y=Math.Power(x 2/3)Math.SquareRoot(1x*x) GraphicsWindow.SetPixel (200x*s100 300y*s100 "red") y=Math.Power(x 2/3)+Math.SquareRoot(1x*x) GraphicsWindow.SetPixel (200x*s100 300y*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
 Edited by Nonki Takahashi Sunday, July 26, 2020 1:38 AM added a new line
Sunday, July 26, 2020 1:36 AM 
nice done nnki))
a bit updated: CSN344
Monday, July 27, 2020 7:24 AM