... und das ist vollkommen richtig! (Lösung!)
ALGORITHMEN - Teil XX: Zwischen Fersuch und Irrdumm
-
-
-
Es gibt hier vielleicht ganz Gewitzte, die schauen bei solchen Fragen frech im Dings....na wie heißt das noch gleich...
ach ja...im Internet nach. klick -
Abt. EaR 30 ´Schallplatte´
===================
Eine Vinyl-Langspiel-Schallplatte mit einem Durchmesser von 30,48 cm hat einen Rand von 8.5 mm und endet in etwa bei einem Radius von 4.5 cm vom Mittelpunkt aus gemessem (Wen´s interessiert: Das Mittelloch hat einen Durchmesser von 7 mm), Frage: Wie lang ist die für Musik genutzte Rille, wenn auf einen cm ca. 60 Rillen kommen? -
Lösung zu EaR 30
----------------Spoiler anzeigen
Genutzter Aussenradius = 30.48/2 - 0.85 = ra = 14.39 cm
Aussenumfang = 2*ra*Pi() = 2 * 14.39 * 3.141592654 = 90.45 cmInnenradius (Auslaufbeginn) = ri = 4.5 cm
Innenumfang = 2*ri*Pi() = 2 * 4.5 * 3.141592654 = 28.27 cmNutzbereichstrecke = ra - ri = 9.89 cm
Mit 60 Rillen pro cm gibt das eine Windungszahl
von 9.89 * 60 = 593 WindungenDer mittlere Umfang einer Windung errechnet sich zu
(Aussenumfang + Innenumfang)/2 = (90.45 + 28.27) / 2 =
= 118.72 / 2 = 59.36 cm.Da wir 593 Windungen haben, wären das 35200 cm =
Antwort: 352 m Rille.Plausibilitätstest: Eine Plattenseite spielt bei 33 1/3 Upm ca 20 min.
In 20 min müssten also 593 Umdrehungen stattfinden:
20 * 33.333333333 = 666 Windungen: Die Größenordnung stimmt also!Die Länge der Rille einer LP-Seite beträgt ca. 350 m.
-
Abt. Interessante Links
==================
Wenn man, wie ich, die letzten 10 Jahre unter einem Stein gelebt hat (In-Anspruch-nahme durch Berufsleben, Ängste geschürt duch Horrorberichte z.B. über Internet-Banking, NSA-Tracking etc.), dann ist man dankbar für eine Liste aktuell populärer SOCIAL MEDIA SERVICES samt Beschreibung, was man damit eigentlich machen kann - bzw. wozu es eigentlich gut (?) ist. Dazu kommt allerdingns die offene Frage, welche Sprachkenntnisse man zum Mitmachen besitzen sollte, bzw. ob es gute Übersetzungsalgorithmen dazu gibt, falls man sich auf´s Lesen beschränken will. Mir fehlen auch noch Infos über Special Interest Services wie z.B. XING oder die Fotocommunity etc. Sollte eigentlich sogar einen eigenen Thread rechtfertigen ...
Gruss -
Abt. Mathematische Rekorde
=====================
Es gibt einen neuen Rekord bei der Multiplikativen Persistenz (="Beständigkeit") zu vermelden:
Die Rekordzahl lauet: 277.777.788.888.899 mit Persistenzzahl 11. Quelle: YoutubeErläuterung an Hand eines Beispiels:
5428 => 5 * 4 * 2 * 8 = 320 => 3*2*0 = 0
Mit anderen Worten: 5428 hat die Persistenz 2
(2 Stufen bis das Ziffernprodukt einstellig wird).Anm.: Sucht man hier neue Rekorde, also möglichst große Zahlen, dann muss man sich vor sogenannten Doom-Konfigurationen (Doomsday, "Das Ende ist nahe") hüten, das sind z.B. Ziffernfolgen wie 5 * 2, die jedenfalls Null erzeugen.
GrussP.S.: Anbei ein Prüfprogramm dazu. Eingabetaste allein testet die neue Rekordzahl.
Code
Alles anzeigenWindowTitle upper$("Multiplikative Persistenz einer Zahl testen") WindowStyle 24 Cls font 2 Declare z$,p!,n& rept: Cls Print "\n Zu testende pos. Ganzzahl (<=16677181699666569):", '(p! darf hier max. 9007199254740992 werden!) input z$ if right$(mkstr$("0",16)+z$,17)>"16677181699666569" print "\n Zu groß!":beep waitinput goto "rept" endif if z$="" z$=277777788888899 print "\n Bisheriger Rekord (Feb. 2019):" endif print n&=0 lup: print " ";z$," (";n&;")" case val(z$)<10:goto "skip" p!=1 whileloop len(z$) p!=p!*val(mid$(z$,&Loop,1)) endwhile z$=format$("################0",p!) inc n& goto "lup" skip: print "\n Persistenz = ";n& waitinput GOTO "rept" '----------
-
Abt. EaR 31 ´Ramanujans Near-miss´
============================
Es ist bewiesen, dass X^N + Y^N = Z^N für ganze Zahlen X,Y,Z > 0 und N>2 keine Lösung haben kann. Im ´Vergessenen Tagebuch´des berühmten indischen Mathematikers Ramanujan findete sich ein Beihnahe-Gegenbeispiel:65601^3+67402^3 = 83802^3 ???
Frage: Um wieviel differieren die beiden "Gleichungs"-Seiten?
P.S.: Nachtrag zum Beitrag vorher: Multiplikative Persistenz wird in der Fachliteratur auch "Beharrlichkeit" genannt!
-
Abt. Fairste Spielfolge bezüglich "Wer darf anfangen"
=======================================
Dürfen zwei Spieler abwechselnd Dinge aus einem Korb wählen, und besteht Einigkeit über die Wertigkeit dieser Dinge, dann wird sich der erste, Spieler A, stets sofort das beste bzw. wertvollste Ding aus dem Korb nehmen. Das wird bei Spieler B im Laufe der Zeit ungut auffallen, und er möchte auch als Erster beginnen. Die Mathematiker Thue und Morse haben sich überlegt, wie die Abfolge beim Spielbeginn sein muss, damit bei mehreren solchen Spielen möglichst große Fairness entsteht. So enstand die Thue-Morse-Folge, die man mit dem untenstehenden Progi erzeugen kann. Sie weist, ähnlich wie die Zahl Pi, eine Struktur auf, die sich niemals mehrfach wiederholt. Interessant ist, daß man sie u.a. einfach aus Binär-Paritäten erzeugen kann.
GrussP.S. Quelle: Youtube
Code
Alles anzeigenWindowTitle "Thue-Morse Fairest Drawgame-Folge erzeugen" CLS:font 2:declare par&,w$,ThueMorse$ AppendMenuBar 100,"Eine Taste = Ende + Ergebnis in Zwischenablage!" Whileloop 0,2^31-1 par&=WhoseTurn$(&Loop) '= Binärtest auf 32bit-Parity Odd w$=if(par&,"B ","A ") ThueMorse$=ThueMorse$+str$(par&) print w$; putclip w$ waitinput 7 case &Loop<20:waitinput 200 case %key:break endwhile clearclip:putclip ThueMorse$ print "\n\n Fairste Wahlabfolge in Zwischenablage! (Spieler A = 0, B = 1)" beep:Waitinput 4444 End Proc WhoseTurn$ :parameters v&:v&=v&-((v&>>1) & $55555555) v&=(v& & $33333333)+((v&>>2) & $33333333) Return int((((v&+(v&>>4) & $F0F0F0F)*$1010101)>>24) mod 2) Endproc
-
Lösung zu EaR 31:
-------------------Spoiler anzeigen
Die Aufgabe lautet also X = 65601^3 + 67402^3 - 83802^3Dank Windows-Zubehör-Taschenrechner Calc.exe, der in 128-bit-Genauigkeit
rechnet, ergibt sich:65601^3 = 282313326276801
67402^3 = 306209281368808, ergibt
zusammen: 588522607645609, weniger
83802^3= -588522607645608
--------------------------------
Der Unterschied beträgt 1
================= -
Abt. Piloten istS nicht verboten
====================
Auch nicht, eine normale Sinusfunktion durch abgekürztes Kopfrechnen zu ersetzen (ohne jede Gewähr!):Beispiel A:
-----------
Ein (Simulator)-Pilot erfährt vom zuständigen ATC folgende Windverhältnisse an der zugewiesenen Landebahn "Clear to land O-9er Left: Wind 250 with 15 knots". (Air Traffic Controller sprechen schnellstes, undeutlichstes Englisch, Piloten müssen daher höllisch aufpassen, ob dabei ihre Flugzeug-Kennung genannt wurde, und müssen die ganz Soße dann unter Nachnennung dieser Flugkennung wiederholen).Die Kopfrechnung geht so: Die Landebahn heisst 18 L, weil sie in Kompass-Richtung 180° beflogen wird (und dabei die linke von zwei parallelen Landebahnen). Der Wind kommt aus 250° mit 15 Knoten (Ein Knoten entspricht 1,852 km/h, 18 knots sind also ca. 28 km/h, also rund 7,7 m/s, aber das interessiert hier nicht).
Dem Piloten geht es dabei nur um die Seitenwind-Komponente quer zur Landbahn. Er rechnet nun überschlägig wie folgt:
1. Größerer Wert minus Kleinerer Wert:
Windrichtung 250° / 10 = 25
Landebahn-Lagekennung: 18
===================
Differenz: 7
2. Aufwerten um 2: 7 + 2 = Faktor 9
3. Seitenwind = Wind /10 * Faktor = 15 knots /10 * 9 = 1.5 * 9 = 14 Knots
Der Seitenwind quer weht also mit etwa 14 Knoten.Probe: 15 Knoten * Sin(250°-180°) = 15*0.94 = 14,1 knots Crosswind
-
Beispiel B:
----------
"Clear to land 3-4: Wind 2-5-O with 22 gusty"34 - 25 = 9; + 2 = 11 ; * 2.2 ~ 24 knoten Crosswind, Böen-Warnung.
Probe: 22 Knoten * Sin(340°-250°)= 22 * Sin(90°) = 22 Knoten.
Das bedeutet: bei Differenzen 8, 9 oder 10 braucht man gar nicht zu rechnen, weil der Wind selbst quer kommt. -
Beispiel C:
----------
"Clear to land Oh-2: Wind 3-5-O with 18 knots" (Knots muss der ATC dazusagen, da in manchen Afrikanischen Ländern km/h angesagt werden.)350°-20° = 360°-10°-10° = 30° = "3"; + 2 = Faktor 5
Windkennzahl=1.8 * 5 = (Kommatauschtrick) 18 * 0.5 = 18/2 = 9 knots CrosswindAllgemein gilt:
===========
sin(0)=0, sin(15°)~1/4, sin(30°)=1/2, sin(45°)~70%,
sin(55°)~82%, sin(65°)~90%, sin(>75°)~>96%Gruss
-
Das Board-System lässt mich eine Zeile nicht posten:
"Probe: 18 * Sin(350°-20°) = 18 * Sin(330°) = 18 * o.5 = 9 knots Crosswind."
Rote Meldung: Ihre Nachricht enthält folgende zensierte Wörter: +Msgnr
Damit es dennoch klappt, musste ich bei o.5 statt 0 ein o eingeben!!!
Greift Artikel 13 schon?
Testet mal statt in Worten in Ziffern:
Nullkommafünf Abstand Istgleich Abstand Neun.
Das System mag das nicht!Die obige eigene Message-Nr auch nicht!!!
-
Problem wurde behoben, 0.5 = 9 klappt nun!
-
Abt. EaR 32
===========
Opi hat den vierstelligen Code seines Fahrradschlosses vergessen. Er findet in der Geldbörse aber noch den Zettel, auf dem folgende Hinweise stehen:CODE ABCD:
--------------
B + 2 = D
A - C = C
C * B = A
A / B = DIm Rechen war Opi nie sehr gut. Hilf ihm, den Zugangscode zu rekonstruieren!
-
Hallo p.specht,
haste im Rätsel einen Tippfehler eingebaut?
Tschau
-
Nachmal geprüft: Nö, passt!
-
Achso: Rechnen, nicht rechen... Sorry!
Lösung zu EaR 32
------------------Spoiler anzeigen
1) B + 2 = D
2) A - C = C
3) C * B = A
4) A / B = D
-------------
Aus 2) folgt *) A = 2 * C
in 3) eingesetzt: C * B = 2 * C ==> B = 2 ;
Mit 1): B + 2 = D >>> D = 4 ;
Wegen 4): A/2 = 4 >>> A = 8
Da aus *) 8 = 2 * C >>> C = 4 .Der Zugangscode des Fahrradschlosses lautet also "8244".
======================================Geht aber auch mittels XProfan:
Code
Alles anzeigenWindowTitle "EaR 32-Löser Brute-force" WindowStyle 24 Declare a!,b!,c!,d! Cls:font 2:print Whileloop 0,9:a!=&Loop Whileloop 1,9:b!=&Loop Whileloop 0,9:c!=&Loop Whileloop 0,9:d!=&Loop if (B! + 2) = D! if (A! - C!) = C! if (C! * B!) = A! if (A! / B!) = D! print " ";int(a!),int(b!),int(c!),int(d!) endif endif endif endif endwhile endwhile endwhile endwhile print " ========" waitinput end
-
Abt. EaR 33
========
Wieviele Ur-Ur-Ur-Ur-Ur-Urgroßmütter hast du? -
Abt. Weitere Mathe-Rekorde
=====================
Eine Superpermutation entsteht, wenn man alle Permutationen einer bestimmten Anzahl von Elementen so zusammenschreibt, dass jede in der entstehenden Zeichenkette zu finden ist, und es sich dabei eine der kürzestmöglichen aller auf diese Weise zusammengestellten Zeichenketten handelt.Man dachte, eine Formel für die kürzestmöglichen Superpermutationen gefunden zu haben, es stellte sich aber heraus dass diese Formel nur für den Bereich von n=1 bis 5 Elementen gilt. Für n = 6 wurde eine um 1 kleinere Superpermutation gefunden, und man kann bisher lediglich eine untere Miindestgrenze angeben, tappt aber ab der Zahl 6 aufwärts bisher im Dunkeln.
Dieser Bereich ist also für Überraschungen gut, und da gab es von Mr. Greg Evans einen neuen Bestwert für n = 7. Sein Superpermutationsstring weist eine Länge von 5906 Stellen auf - eine Stelle besser als der bisherige Rekord. Anbei in überprüfender Form der neue Rekordwert!
Gruss
Code
Alles anzeigenWindowTitle "Superpermutation of 7 New Record, by Greg Evans" CLS:var S7_5906$=\ "12345671234561723456127345612374561327456137245613742561374526137456213745612347561324756"+\ "13427561347256134752613475621347561234576123451672345162734516237451623475162345716234517"+\ "62345126734512637451263475126345712634517263451276345123674512364751236457123645172364512"+\ "73645123764512346751234657123465172346512734651243765124367512436571243651724365127436512"+\ "47365124637512463571246351724635127463512476351246735142673514627351467235146732514673521"+\ "64735216743521673452163745216347521634572163452716345217643521764532716453276145327641532"+\ "76451326745132647513264571326451732645137264531726453712645372164537261453726415372645132"+\ "76453127645321764523176452137645217365421736524173652147365217436521734652173645217634521"+\ "67354216375421635742163547216354271635421763542167352416375241635724163527416352471635241"+\ "76352416735214673512465371246531724653127465312476531246753142675314627531467253146752316"+\ "47532164753126475316247531642753164725316475231674532167453126745316274531672453167425316"+\ "74523167542316752431675234167523146753214675312465731246513724651327465132476513246715324"+\ "67135246713254671235467125346712543671524367154236715432675143267541326754312675432167543"+\ "26174536217453612745361724536174253617452361745326174352617432561743265174236517426351742"+\ "65317426513742651734261573426175342167534217653421756342175364217534621753426173542617345"+\ "26173425617342651743261574362157436125743162574312657413265741236574126357412653741265734"+\ "12657431256741325674123567412536741256374125673412567431257641325761432576134257613245761"+\ "32547613257461325764123576412537614253761245376125437615243761542376154327615437261543762"+\ "15437612534761253746125376412573641257634125764312574631257436152743615724361574236157432"+\ "61754362175436127543617254361752436175423617543267154362715436721543671254637125467312547"+\ "63125473615247361542736154723615473261457362145763214756321476532147635214763251476321547"+\ "63214576231457621345762143576214537621457361245736142573614527361457236145732614753621475"+\ "36124753614275361472536147523614753261473526147325614732651472365147263514726531472651347"+\ "26514372651473261547362154736125473162547312654713265471236547126354712653471265437162534"+\ "71625374162537146253716425371624537162543716524371654237165432716543721654371265473125647"+\ "13256471235647125364712563471256437215643725164327561432756413275643127564321756432715643"+\ "27516432571634251763425167342516374251634725163427516342571632451763245167324516372451632"+\ "74516324751632457163254716325741632571463275146327154632714563271465327146352714632571643"+\ "52716435721643571264351726435127643512674351264735126437512643571624351762435167243516274"+\ "35162473516243751624357164235176423516742351647235164273516423751462375142637514236751423"+\ "76514273651427635142765314276513427651432765142375614235761423567143256714352671435627143"+\ "56721435671243561724356127435612473561243756124357612435671423561742356147235614273561423"+\ "75164235716432517643251674325164732516437256143725641372564317256437125647312546713245671"+\ "32465713246751324615732461753246173524617325416723541762354716235476123547621354762315467"+\ "23154627315462371546231756423157642135674213564721356427135642173562413756241357624135672"+\ "41356274135624713562417356214735621743562173456217354621735642137564213576421537462153742"+\ "61537421653742156374215367421537642157364215763421576432157642315674231564723156427315642"+\ "37156423175624315762431567243156274315624731562437156243175623415762341567234156273415623"+\ "74156234715623417562314756231745623175463217456321746532174635217463251746321574632175463"+\ "12754631725463175246315724631527463152476315246731524637152463175426315742631547263154276"+\ "31542673154263715426317546231574623517462357146235741623574612357462135746231547623514762"+\ "35417263541723654172356417235461723541672534176253147625317462531764253176245317625431765"+\ "24317654231765432176543127654317265431762534172653417256341725364172534617253416725431672"+\ "54136725143672513467215347621534726153472165347215634721536472153467213546721345672134657"+\ "21364572136547213657421365724136572143657213467521364752136745213675421367524136752143765"+\ "21437562143752614375216437521463725146372154637214563721465372146357214637521436752134672"+\ "51364725136742513672451367254163725416732541763254173625147362517436251734625713642571362"+\ "45713625471362574136257143625713462751364275136247513627451362754163275416237541263754123"+\ "67541237654132765413726541376251437625134762513746251376425137624513762541376524137654213"+\ "76541237564123754613275461372546137524613754261375462137546123754162735412673541276354127"+\ "36541273564127354612735416275341267534127653412756341275364127534612753416275431627541362"+\ "75143627513462715342671354267134526713425671342657143265714236571426357142653714265731426"+\ "57134267513426715342761534271653427156342715364271534627135462713456271346527136452713654"+\ "27136524713652741365271436527134625731462573416257346125734621573462517364251736245173625"+\ "41732654173256417325461732456173246517324615372461532746153247615324167532416573214657321"+\ "64573126457316245731642573164527316542731652473165274316527341652731465273164572316547231"+\ "65742316572431657234165723146572316457321654732165743216573421657324165372416532741653247"+\ "16532417653241567321456731245637124563172456312745631247563124576312456731425637142563174"+\ "25631472563142756314257631425673145263714523671453267145362714536721453671245367142536714"+\ "52376145237164523714652374165237461523476512347652134765231476523417652347165234761523467"+\ "15234617523461572346152734615237465123746521374652317465237145623714526317452631475263145"+\ "72631452763145267314562731456723145673215467321564732156743215673421567324156372415632741"+\ "56324715632417563241576324153672415362741536247153624175362415736241537624153267415326471"+\ "53264175326415732641523764152367415236471523641752364157236415273641526374152634715263417"+\ "52634157263415276341526734152643715264317526431572643152764315267431526473152641375264135"+\ "72614357261345726135472613574261357246135726413527614352761345276135427613524761352746135"+\ "27641352674135264713526417352641" Font 2:print "\n Rekordstring Länge = ";len(S7_5906$);"\n" declare su$,is&,n&, a&,b&,c&,d&,e&,f&,g& Whileloop 7:a&=&Loop Whileloop 7:b&=&Loop:case b&=a&:continue Whileloop 7:c&=&Loop:case c&=a&:continue:case c&=b&:continue Whileloop 7:d&=&Loop:case d&=a&:continue:case d&=b&:continue:case d&=c&:continue Whileloop 7:e&=&Loop case e&=a&:continue:case e&=b&:continue:case e&=c&:continue:case e&=d&:continue Whileloop 7:f&=&Loop: case f&=a&:continue:case f&=b&:continue case f&=c&:continue:case f&=d&:continue:case f&=e&:continue g&=28-a&-b&-c&-d&-e&-f& inc n& su$=str$(a&)+str$(b&)+str$(c&)+str$(d&)+str$(e&)+str$(f&)+str$(g&) is&=instr(su$,S7_5906$) if is&>0 print " ";n&;".: ",a&,b&,c&,d&,e&,f&,g&;" Gefunden an Pos. ";is& else print "\n A L A R M ! : ";su$," n i c h t g e f u n d e n !" sound 2000,200 waitinput END endif endwhile endwhile endwhile endwhile endwhile endwhile Print "ALLES OK!" waitinput END
-
Jetzt mitmachen!
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!