School themes from USSR and EurAsia

[mnrvovrfc]

Code is horrible to read. Then other people complain QB64 IDE doesn't format it well. At least stop using loop statements between colons. I refuse to copy this program to see what it does.

[DANILIN]

Today is Cosmonautics Day since 1961

It's time to watch USSR cartoon
with American voices & subtitles

Mystery of Third Planet (1981)



It is not clear: if owner of Barnes site is on forum

[DANILIN]

Day of Earth 22\4 ?

VyZoV



Day of Earth 4/22 ?

[DANILIN]

Russian school algorithm: array and dots and animated mesh

We see that motion vector is divided into halves 5=(1+9)/2
3=(1+5)/2: 2=(1+3)/2: 4=(3+5)/2: 7=(5+9)/2: 6=(5+7)/2: 8=(7+9)/2

Main target: translation into other languages especially JavaScript

damesh online qbjs.org

animation 150 KB

Code: (Select All)

Randomize Timer ' damesh.bas Danilin from Russia
Screen 12 ' 1! 2 3? 4 5! 6 7? 8 9!
n=8: u=256: Dim x(n,9),y(n,9)

For i=1 To n
    x(i,1)=Int(Rnd*u+3): y(i,1)=Int(Rnd*u+3)
    x(i,9)=Int(Rnd*u+3): y(i,9)=Int(Rnd*u+3)
Next

Data -5,1,9,-3,1,5,-2,1,3,-4,3,5,-7,5,9,-6,5,7,-8,7,9

For g=1 To 9 - 2: Read d,a,v
    For i=1 To n: x(i,-d)=(x(i,a) +x(i,v))/2: y(i,-d)=(y(i,a) +y(i,v))/2: Next
Next

For g=1 To 10: For k=1 To 9: _Delay .1: Cls
    For i=1 To n: For j=1 To n: Circle (x(i,k),y(i,k)),2: Next: Next

        For i=1 To n - 1: For j=i To n
            Line (x(i,k),y(i,k))-(x(j,k),y(j,k)),i
           'Line (x(i,k),y(i,k))-(x(i+1,k),y(i+1,k)),i
    Next: Next: Next

    For k=8 To 2 Step -1: _Delay .1: Cls

For p=1 To 9
    For i=1 To n: For j=1 To n: Circle (x(i,p),y(i,p)),2,i: Next: Next
Next
    For i=1 To n - 1: For j=i To n
       Line (x(i,k),y(i,k))-(x(j,k),y(j,k)),i
      'Line (x(i,k),y(i,k))-(x(i+1,k),y(i+1,k)),i
    Next: Next: Next
Next

Obvious development: cycles without circles and cycles with circles

Now array is 2-dimensional: point number and number on vector
A 3-dimensional array is possible: vectors several in a row
It is possible to rotate shape and scale by scaling algorithm

Mathematical basis: my universal table of connection of 2 points








  damesh.bas (Size: 993 bytes / Downloads: 56)

[DANILIN]

Circle Diagram    https://qb64forum.alephc.xyz/index.php?topic=4367
November 06, 2021, 12:12:44 pm

Visualization pie chart 4 algorithms simultaneously

Code: (Select All)

Screen 12: Randomize Timer 'diagram.bas  Russian Circle Diagram
N = 12: s = 0: Dim d(N+5),r(N+1+5):
For i = 1 To N: d(i) = Int(Rnd * 90+9): s = s+d(i): Print d(i): Next: Print "SUM= "; s
For i = 2 To N: r(i) = r(i-1)+d(i) * 2 * 3.1416 / s: Next: r(N+1) = r(1)

For i = 2 To N+1: For j = 1 To 100: Circle (150,100),j,i,r(i-1),r(i)
    Circle (149,99),j,i,r(i-1),r(i): Circle (151,99),j,i,r(i-1),r(i)
_Delay .002: Next: Next

For j = 1 To 100: For i = 2 To N+1: Circle (350,100),j,i,r(i-1),r(i)
    Circle (349,100),j,i,r(i-1),r(i): Circle (351,99),j,i,r(i-1),r(i)
Next: _Delay .01: Next

_Delay 1: Cls 'Screen 12: Randomize Timer diagout.bas  Russian Circle Diagram
N = 16: s = 0 ': Dim d(N),r(N+1):
For i = 1 To N: d(i) = Int(Rnd * 90+9): s = s+d(i): Print d(i): Next: Print "SUM= "; s
For i = 2 To N: r(i) = r(i-1)+d(i) * 2 * 3.1416 / s: Next: r(N+1) = r(1)

For i = 2 To N+1 Step 2: For j = 1 To 100: Circle (150,100),j,i,r(i-1),r(i)
    Circle (149,99),j,i,r(i-1),r(i): Circle (151,99),j,i,r(i-1),r(i)
_Delay .002: Next: Next

For i = 3 To N+1 Step 2: For j = 100 To 1 Step -1: Circle (150,100),j,i,r(i-1),r(i)
    Circle (149,99),j,i,r(i-1),r(i): Circle (151,99),j,i,r(i-1),r(i)
_Delay .002: Next: Next

For j = 1 To 100: For i = 2 To N+1
    If (i Mod 2) = 0 Then Circle (350,100),j,i,r(i-1),r(i): Circle (349,99),j,i,r(i-1),r(i): Circle (351,99),j,i,r(i-1),r(i)
        If (i Mod 2) = 1 Then Circle (350,100),100-j,i,r(i-1),r(i): Circle (349,99),100-j,i,r(i-1),r(i): Circle (351,99),100-j,i,r(i-1),r(i)
Next: _Delay .01: Next: End

Each animation is less than 100 KB







  diagram.bas (Size: 1.53 KB / Downloads: 98)

https://qbjs.org/?code=U2NyZWVuIDEyOiBSY...cDsjogRW5k