locked
maths & graphic RRS feed

  • 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.
    • 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: HVD712-1



    • 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(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.

    Screen shot of a program Binary Relation in A={0,1}


    Nonki Takahashi


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

    a bit updated: CSN344

    Monday, July 27, 2020 7:24 AM