Post by: DANILIN on June 20, 2021, 02:22:21 am
I create theme again remembering programs
Later there will be a repeat of program where
computer guesses 1 out of a billion for logarithmic number of steps
Now a my curiosity:
Single-line "Guess Number" program QBasic QB64 from Russia
Code: QB64: [Select]
An array of programs in many languages and a similar topic here:
http://rosettacode.org/wiki/Guess_the_number#BASIC
rosettacode.org/wiki/Guess_the_number
http://rosettacode.org/wiki/Guess_the_number/With_feedback_(player)#BASIC
rosettacode.org/wiki/Guess_the_number/With_feedback_(player)
Hi Lo without Secret Number?
https://qb64.org/forum/index.php?topic=3120.30
Update: program better view
1 IF Russia = 0 THEN Russia = 2222: RANDOMIZE TIMER: num = INT(RND * 100) + 1: GOTO 1 ELSE IF Russia <> 0 THEN INPUT n: IF n < num THEN PRINT "MORE": GOTO 1 ELSE IF n > num THEN PRINT "less": GOTO 1 ELSE IF n = num THEN PRINT "da": END ELSE GOTO 1 'DANILIN Russia 9-9-2019 guessnum.bas
Post by: bplus on June 20, 2021, 03:37:38 pm
https://www.qb64.org/forum/index.php?topic=3120.msg123881#msg123881
And here is my one liner in case you forgot or can't find old posts like me:
Code: QB64: [Select]
US many bytes shorter than Russia one. :)
Post by: DANILIN on June 21, 2021, 12:55:37 am
knowing date i found your message:
September 12, 2019, 09:59:10 AM
Your program still needs RANDOMIZE TIMER
But my message is earlier
September 12, 2019, 06:07:54 AM
Russian anecdote from 18 century:
2 athletes compete: Russian and American
American athlete finished 2nd
Russian athlete finished penultimate
Post by: bplus on June 21, 2021, 05:46:12 pm
Quote
2 athletes compete: Russian and American
American athlete finished 2nd
Russian athlete finished penultimate
Yes that the American should finish 2nd would be more notable than the other thing mentioned last. ;-))
Post by: SMcNeill on June 21, 2021, 07:34:02 pm
Yes that the American should finish 2nd would be more notable than the other thing mentioned last. ;-))
Back in college, my teacher used something like this to discuss propaganda in the media.
The facts: A race was held between an American and a Russian, and the American won.
American propaganda headline: International Race results are in! America comes in first. Russia, dead last!
Russian propaganda headline: International Race results are in. Mother Russia gets second place finish, while America comes in second to last!
*ALL* the news articles are 100% true and valid, but the *perception* they generate is what’s the propaganda — and in today’s world, we see this slant on almost *ALL* news stories.
Post by: DANILIN on June 22, 2021, 05:12:48 am
Program from year 2019 damilliiard.bas is guessing integral differential
numbers cyclopean by approaches logarithmic
It's just not clear how to go into even bigger numbers
Code: QB64: [Select]
- 'daMilliard.bas
- t = 0: h1 = 0: h2 = 10^7
- comp = 1 'INT(RND*h2) 'comp
Results for diapason 1 from 10^7
Code: [Select]
1 human = 1326126 comp = 1928303 less
2 human = 1326126 comp = 964151 MORE
3 human = 1326126 comp = 1446227 less
4 human = 1326126 comp = 1205189 MORE
5 human = 1326126 comp = 1325708 MORE
6 human = 1326126 comp = 1385967 less
7 human = 1326126 comp = 1355837 less
8 human = 1326126 comp = 1340772 less
9 human = 1326126 comp = 1333240 less
10 human = 1326126 comp = 1329474 less
11 human = 1326126 comp = 1327591 less
12 human = 1326126 comp = 1326649 less
13 human = 1326126 comp = 1326178 less
14 human = 1326126 comp = 1325943 MORE
15 human = 1326126 comp = 1326060 MORE
16 human = 1326126 comp = 1326119 MORE
17 human = 1326126 comp = 1326148 less
18 human = 1326126 comp = 1326133 less
19 human = 1326126 comp = 1326126 win by 19 stepsUpdate: online compilator c#
rextester.com/BEVKB31555
In light of above: Song of Day:
Post by: bplus on June 22, 2021, 07:44:38 am
I am thinking of a number between 1 and 2...
Post by: SMcNeill on June 22, 2021, 11:14:06 am
Care to try Floats? :)
I am thinking of a number between 1 and 2...
Well, since precision limits at X number of digits (depending on SINGLE, DOUBLE, _FLOAT), even then the answer would be doable with enough binary guesses. ;)
Post by: DANILIN on June 22, 2021, 03:05:25 pm
=LOG(10^9;2)
=30 steps
what I write at once: numbers are cyclopean
and number of steps is logarithmic
Logarithm: those who understand think faster
My express lecture over 5 years ago from 2010++ years about...
Logarithm of Life
annually something changes in multiple
? through what QUANTITY of years is
something will give growth in right scale ?
SCALE is: GROWTH to extent of QUANTITY
SCALE = GROWTH ^ QUANTITY
QUANTITY: to what extent do you build
GROWTH to get SCALE
LOGARIFM: to what extent to erect
GROWTH to get SCALE
excel formula: QUANTITY = ...
=LOG(SCALE;GROWTH)
check: something annually grows 2 times
? in how many years
something will grow 64 times ?
SCALE = GROWTH ^ YEARS
64 = 2 ^ YEARS
YEAR = LOG(SCALE;GROWTH)
= LOG(64;2)
= 6
answer: over 6 years
example: over 25 years of inflation
devalued money 12 times
? what was inflation every year ?
? what was logarithm of inflation ?
? what should be growth to something
would have grown 12 times over 25 years ?
YEAR = LOG (SCALE;GROWTH)
GROWTH = SCALE ^ (1 / YEARS)
GROWTH = 12 ^ (1/25)
GROWTH = 1.1045 = 10.5 % per year
translate to same logarithm:
decimal: = LOG (SCALE) / LOG (GROWTH)
natural: = LN (SCALE) / LN (GROWTH)
Post by: DANILIN on July 18, 2021, 12:46:24 pm
Example: if multiplier is 12 for 15 years: inflation =12^(1/15) = +18%.
Example: if multiplier is 12 and inflation is 1.18: =LOG(12)/LOG(1.18) = 15 years.
So I'm interested in: do you use WolframAlpha ?
In general a dozen formulas have been tested...
Post by: _vince on July 19, 2021, 03:46:46 am
In general a dozen formulas have been tested...
is there a document confirming this formula?
Post by: DANILIN on July 19, 2021, 06:34:22 am
to what degree to raise to get
and I first solved it in numbers
and then understanding was translated into chains of formulas
https://wolframalpha.com/input/?i=solve+C%2B%281-p%29%5EN%3D1+for+N (https://wolframalpha.com/input/?i=solve+C%2B%281-p%29%5EN%3D1+for+N)
https://mathsolver.microsoft.com/ru/solve-problem/C+%7B%60left(1-P%60right)%7D%5E%7BN%7D%3D1 (https://mathsolver.microsoft.com/ru/solve-problem/C+%7B%60left(1-P%60right)%7D%5E%7BN%7D%3D1)
plus formulas of compound percentage
are also derived logarithmically with checks
Visual Mathematics & DANILIN Russians formulas
500 KB = 0,5 MB
Russia & USA
http://kenokeno.ucoz.ru/doc/davizmath.pdf
Only english USA
http://kenokeno.ucoz.ru/doc/davizeng.pdf
Post by: _vince on July 19, 2021, 07:43:43 am
Post by: DANILIN on July 19, 2021, 11:01:54 am
approximately "Randomness and probability waves and we"
I do not remember exact name
Where we discussed with several ones even after analyzing and understanding formulas
but then topic went to off-topic and into archive and disappeared
and I can't find copies anywhere but my messages are same everywhere
and only answers of local ones are practically lost
Parallel english topic:
https://csharpforums.net/threads/falsification-of-probability.5109/page-2#post-15349
Internet Visual Mathematica