Abt. EaR 16 ´Irr Rational´
==================
Zur Ehrenrettung der Computerarithmetik:
Was ist Sqrt( 4 + 2 * Sqrt(3) ) - Sqrt(3) ?
a) Ohne Computerhilfe: _____
b) Mit Computer: _____
Abt. EaR 16 ´Irr Rational´
==================
Zur Ehrenrettung der Computerarithmetik:
Was ist Sqrt( 4 + 2 * Sqrt(3) ) - Sqrt(3) ?
a) Ohne Computerhilfe: _____
b) Mit Computer: _____
Lösung zu EaR 16
-----------------
a) händisch: Sqrt( 4 + 2 * Sqrt(3) ) - Sqrt(3) = X
Da Quadratwurzel in Quadratwurzel vorkommt, handelt es sich um die Lösung einer Minimalpolynomgleichung vierten Grades. Daher treten durch die jeweils zwei möglichen Wurzelvorzeichen acht mögliche Lösungen auf, von denen jeweils zwei vorzeicheninvers gekoppelt sind. Erst aus der Aufgabenstellung ergibt sich, welcher Satz an Lösungen tatsächlich realisiert wird:
+ + + : 1
+ + - : 4.46410161513775
+ - + : -1
+ - - : 2.46410161513775
- + + : -4.46410161513775
- + - : -1
- - + : -2.46410161513775
- - - : 1
b) Die meisten Computersprachen berücksichtigen nur den Absolutwert von Wurzeln. Die Computerlösung lautet daher 1.
Abt. Ohne Worte
============
WindowTitle "Konvergenz der Ramanujan-PY Formel testen"
'https://www.youtube.com/watch?v=ZoaEPXEcLFI
cls:appendmenubar 100,"Dauer ca. 3 min"
set("Decimals",17)
declare py!,vz&
vz&=-1
whileloop 1,10000000,2
case rnd()<0.00001:print "*";
vz&=-vz&
py!=py!+vz&/&Loop
endwhile
py!=4*py!
print "\n ";py!;"\n -";pi();"\n Abs.Fehler: ";format$("%g",abs(py!-pi()))
py!=9801/(1103*sqrt(8))
print "\n ";py!;"\n -";pi();"\n Abs.Fehler: ";format$("%g",abs(py!-pi()))
beep:waitinput
End
Alles anzeigen
Abt. FORMEN ERKENNEN: DAS HU-MOMENT EINES BILDES
=========================================
Hab´ eben etwas Interessantes gefunden, allerdings keine Zeit es auszuprogrammieren. XProfan ist da wohl auch nicht erste Wahl, aber XPIA bzw. XPSE vielleicht? Hier das Link zum Originaltext (PDF). Die Bilder dort zeigen, was geht - geeignete Bildaufbereitung vorausgesetzt.
Gruss
P.S.: Verbesserungsvorschläge für den Hu-Algorithmus gibt es auch schon: Link
HU-MOMENTS
'nach Ming-Kuei Hu, "Visual Pattern Recognition by Moment Invariants",
(0) I[x,y]=Ortsintensität des Pixels, üblicherweise digitalisierte Intensität 0..127 = 0, 127..255=1
'Procedure HU_Moments :parameters Pic.raw = I(Zeile,Spalte)
(1) M = SUM(x, SUM(y, I[x,y]) ) 'Einfaches Moment (wäre Trägheitsmoment, wenn massebehaftet gedacht)
(2) M[i,j] = SUM(x, SUM(y, x^i*y^j*I[x,y]) ) 'Rohes Moment
(3) xm = M[1,0]/M_[0,0] ; ym = M[0,1]/M[0,0] 'Zentroid
(4) µ[i,j] = SUM(x, SUM(y, (x-xm)^i *(y-ym)^j *I[x,y]) ) 'Zentrales Moment
(5) eta[i,j] = µ[i,j] / ( µ[0,0]^((i+j)/2 +1) ) 'Skalennormiertes zentrales Moment
(6) Die 7 Hu-Momente: Translations-, Rotations- und Größenunabhängige Momente
'Def.: Hu Moments (Hu moment invariants) are a set of 7 numbers calculated
'using central moments that are invariant to image transformations.
'The first 6 moments have been proved to be invariant to
'translation, scale, and rotation, and reflection,
'while the 7th moment’s sign changes for image reflection.
h[0]=e[2,0]+e[0,2]
h[1]=(e[2,0]-e[0,2])^2+4*e[1,1]^2
h[2]=(e[3,0]-3*e[1,2])^2+(3*e[2,1]-e[0,3])^2
h[3]=(e[3,0]+e[1,2])^2+(e[2,1]+e[0,3])^2
h[4]=(e[3,0]-3*e[1,2])*(e[3,0]+e[1,2])*((e[3,0]+e[1,2])^2-3*(e[2,1]+e[0,3])^2)+(3*e[2,1]-e[0,3])*(3*(e[3,0]+e[1,2])^2-(e[2,1]+e[0,3])^2)
h[5]=(e[2,0]-e[02])*((e[3,0]+e[1,2])^2-(e[2,1]+e[0,3])^2+4*e[1,1]*(e[3,0]+e[1,2])*(e[2,1]+e[0,3]))
h[6]=(3*e[2,1]-e[0,3])*(e[3,0]+e[1,2])*( (e[3,0]+e[1,2])^2-3*(e[2,1]+e[0,3])^2 )+(e[3,0]-3*e[1,2])*(e[2,1]+e[0,3])*( 3*(e[3,0]+e[1,2])^2-(e[2,1]+e[0,3])^2 )
'h[6]=(3*e21 - e03 )*( e30 + e12 )*[ ( e30 + e12 )^2-3*( e21 + e03 )^2 ]+( e30 -3* e12 )*( e21 + e03 )*[ 3*( e30 + e12 )^2-( e21 + e03 )^2 ]
(7) H_ = -1*sign(h[i])*if(h[i]=0, 0, log(abs(h[i])) )'Log-Transformation
(8) Shape Matching using Hu Moments
'As mentioned earlier, all 7 Hu Moments are invariant under translations (move in x or y direction),
'scale and rotation. If one shape is the mirror image of the other, the seventh Hu Moment flips in sign.
'Isn’t that beautiful?: 6 images and their Hu Moments.
(9) Shape Matching
'Contour-Distance D2 between two shapes using matchShapes:
'How to use Hu Moments to find the distance between two shapes.
'If the distance is small, the shapes are close in appearance
'and if the distance is large, the shapes are farther apart in appearance.
(10) A,B sind Grauskalenbilder. D1,D2,D3 geben ähnliche Ergebnisse:
(Ein empfehlenswertes und bewährtes Konturendistanzmaß ist vor allem D2(A,B) )
D1(A,B) = SUM(i=0..6; abs(1/HB[i]-1/HA[i]) )
D2(A,B) = SUM(i=0..6; abs(HA[i]-HB[i]) ) 'empfohlen
D3(A,B) = SUM(i=0..6; abs(HA[i]-HB[i])/abs(HA[i]) )
(11) Individuelle Distanzmaße sind möglich, z.B. Euklidische Distanz:
'First, you calculate log transformed Hu Moments as mentioned in the previous section,
'and then calculate the distance yourself:
D(A,B) = sqrt(SUM(i=0..6;(HB[i]-HA[i])^2) 'Nachteil: Rechenintensiv
---
Abt. Berühmte Zahl erwürfeln
======================
Windowtitle "Berühmte Zahl erwürfeln"
'Q: https://www.youtube.com/watch?v=-2PA7SbWoJ0
Windowstyle 24
CLS
font 2
set("decimals",17)
randomize
declare sum!,n&,m&,avg&,e!,z&
z& = 100000 'Durchläufe
Whileloop z&
sum!=0
n&=0
case rnd()<=0.0001:print "*";'Lebenszeichen
while sum!<1 'Das Experiment
sum!=sum!+rnd()
inc n&
endwhile
inc avg&,n&
inc m&
endwhile
e!=avg&/m&
print
print "\n Nach ";format$("#,0";m&);" Zufallsexperimenten:"
print "\n Zufallsergebnis:",e!
print "\n Berühmte Zahl e:",exp(1)
print "\n Abweichung Diff:",format$("%g",e!-exp(1))
print "\n Relativer Fehler",format$("%g",100*abs((e!-exp(1))/exp(1)));" %"
beep:waitinput:End
Alles anzeigen
Gruss
Abt. Ist "Ruhezustand" erlaubt?
========================
Insbesondere auf Laptops und ab Windows-10 oft als Normalzustand wird beim Shutdown das aktive System auf die Platte gerettet, um beim Wiedereinschalten rasch zur Verfügung zu stehen. Manchmal verhindern bestimmte Softwarepakete bzw. Systemzustände den Einsatz dieser Möglichkeit. Nach dem untenstehenden Hinweis (er stammt von A. Miethe+) lässt sich das aber abfragen.
Gruss
Abt. Fair teilen
===========
Drei (N=3) Freunde wollen in eine Wohngemeinschaft ziehen. Die drei Räume sind alle über einen gemeinsamen Gang erreichbar, sehen aber völlig unterschiedlich aus. Man möchte die Mietkosten fair aufteilen, und zwar so dass alle Freunde mit ihren unterschiedlichen Präferenzen zufrieden sind und gemeinsam der maximale Nutzen entsteht. Dass so ein Aufteilungspunkt existiert, ist durch Sperner´s Lemma garantiert. Dabei wird u.a. die Tatsache ausgenutzt, dass jeder Punkt im Inneren eines gleichseitigen Dreieckes (bei 3 Freunden) - bzw. einer N-1_dimensionalen gleichseitigen Pyramide (bei N Freunden) - die gleiche Summe an Abständen von den Seiten aufweist. Warum man nicht 100,000 Fragen nach den einzelnen Präfenrenzen jedes Freundes erfragen muß, ist im vorgenannten Video recht gut beschrieben.
Die Lösungsmethode hat es sogar in die NewYork Times geschafft, wo eine Online-App beim fairen Teilen helfen kann - einfach mal bisschen rumspielen damit!
Gruss
Abt. Aktuelle Elektrosymbole
=====================
Von Zeit zu Zeit ändern sich sogar altbewährte DIN-Normen. Ich war relativ überrascht, wie viele Symbole für elektrische Bauelemente sich seit meiner Schulzeit bzw. Zeit als Techn. Zeichner geändert haben - etwa für Elektrolytkondensatoren. Naja, ist ja auch schon einige Zeit her ... Hier das Link zu den aktuellen Zeichen, hilfreich zur eigenen Altersbestimmung
Gruss
Abt. Großkreisdistanzformel testen
==========================
Wie weit sind der
* Nashville International Airport (BNA), Tennessee/USA mit den Koordinaten
36°7.2' Nördl.Breite, 86°40.2' (in Dezimalgrad: 36.12, -86.67), und der
* Los Angeles International Airport (LAX), California/USA
33°56.4' N, 118°24.0' W (Dezimalgrad: 33.94, -118.40) in Luftlinie voneinander entfernt?
(Es handelt sich wiedereinmal um eine Rosettacode-Aufgabe.)
Gruss
WindowTitle "Großkreis-Distanzformel testen"
CLS:font 2
print "Großkreis-Distanz:",Format$("####.#############",\
GroßkreisDistanz(36.12,-86.67 , 33.94,-118.4)),"km."
Waitinput ' 2887.2599506071104 km
End
Proc ArcSin :Parameters Angle!:Declare Erg!
If Abs(Angle!)=1:Erg!=Angle!*Pi()/2
Else :Erg!=ArcTan(Angle!/Sqrt(1-Sqr(Angle!)))
EndIf:Return Erg!
EndProc
Proc GroßkreisDistanz :Parameters n1!,e1! , n2!,e2! 'Dezimalgrad
var D2R!=ArcTan(1)/45:var diam!=2*6372.8:var Lg1m2!=(e1!-e2!)*D2R!
var Lt1!=n1!*D2R!:var Lt2!=n2!*D2R!:var dz!=sin(Lt1!)-sin(Lt2!)
var dx!=cos(Lg1m2!)*cos(Lt1!)-cos(Lt2!):var dy!=sin(Lg1m2!)*cos(Lt1!)
var hDist!=ArcSin(Sqrt(sqr(dx!)+sqr(dy!)+sqr(dz!))/2)*diam!
return hDist!
Endproc
Alles anzeigen
Abt. Interessante Links
==================
Wie Computer Dezimalzahlen (nicht) repräsentieren können: Engl. Youtube von PBS und wie man das sogar zum beschleunigen von Algorithmen (zB in der Kryptographie) nutzen kann ...
Gruss
Abt. Spirograph als Wappengenerator
============================
... gedacht zum selber dran rumbasteln.
Mit leicht senilen Grüßen
WindowTitle "Spiro als Wappengenerator"
WindowStyle 24
Window 0,0-%maxx,%maxy
font 2
randomize
var xh&=width(%hwnd)\2
var yh&=height(%hwnd)\2
var f!=pi()/180/4
declare x!,y!,w!
declare r0!,r1!,r2!,r3!,r4!
declare w0!,w1!,w2!,w3!,w4!
declare x0!,x1!,x2!,x3!,x4!
declare y0!,y1!,y2!,y3!,y4!
Repeat
Whileloop 20,3,-3
r0!=196*rnd()
r1!=48*rnd()
r2!=24*rnd()
r3!=12*rnd()
r4!=6*rnd()
usepen 0,&Loop,rgb(rnd(255),rnd(255),rnd(255))
Whileloop 0,360*4
w!=f!*&Loop
w0!=w!
w1!=-2*w!
w2!=3*w!
w3!=-5*w!
w4!=-7*w!
x0!=r0!*cos(w0!):y0!=r0!*sin(w0!)
x1!=r1!*cos(w1!):y1!=r1!*sin(w1!)
x2!=r2!*cos(w2!):y2!=r2!*sin(w2!)
x3!=r3!*cos(w3!):y3!=r3!*sin(w3!)
x4!=r4!*cos(w4!):y4!=r4!*sin(w4!)
x!=x0!+x1!+x2!+x3!+x4!
y!=y0!+y1!+y2!+y3!+y4!
'locate 0,0:print x!,y!
Line xh&-y!,(yh&+x!) - xh&-y!,yh&+x!
endwhile
waitinput 4000
endwhile
Waitinput
cls
until %key=27
beep
waitinput
end
Alles anzeigen
Abt. Interessante Links
=================
Der berühmteste Samurai war Miyamoto Musashi. Er bestand 60 Kämpfe auf Leben und Tod und starb an Altersschwäche in einer Höhle, in die er sich zurückgezogen hatte - nicht ohne vorher noch ein Buch über meisterliche Kampfkunst zu schreiben. In Kurzform handelt es sich um 21 Regeln, die ein letztlich philosophisches System der Selbstdisziplin darstellen. Es muss angemerkt werden, - und da relativiert sich die Bewunderung für alte Kulturen eiin wenig, - daß das System der Samurai letztlich dazu führte, daß Japan auf seiten der Nationalsozialisten in den 2. Weltkrieg ging. Zu den Regeln siehe Spoiler!
Gruss
Die 21 Regeln des Dokkodô („Der einsame Weg“)
----------------------------------------------
1. Handle nicht gegen die traditionelle Moral.
2. Sei in keinerlei Hinsicht voreingenommen.
3. Strebe nicht nach Behaglichkeit.
4. Überschätze dich nicht, aber schätze das Volk sehr.
5. Bleibe dein ganzes Leben lang frei von Habgier.
6. Bedaure niemals, was du getan hast - es ist passiert. Aber denke voraus!
7. Beneide niemals andere, weder wegen ihres Glückes noch aufgrund eigenen Unglücks.
8. Sei nicht darüber betrübt, von jemandem oder von etwas getrennt zu werden.
9. Tadele weder dich noch andere.
10. Träume nicht davon, dich in eine Frau zu verlieben.
11. Habe keine Vorlieben oder Abneigungen.
12. Lehne keinerlei Unterkunft ab.
13. Beanspruche kein wohlschmeckendes Essen für dich selbst.
14. Sammle keine antiken und seltenen Gegenstände.
15. Vollziehe keine Reinigungszeremonien, lebe nicht deshalb abstinent, um dich vor Bösem zu schützen.
16. Schätze Schwerter und Waffen.
17. Gelobe: Ich werde auf dem Weg der Gerechtigkeit nicht an meinem Leben hängen.
18. Suche keinen bequemen Altersruhesitz.
19. Achte Götter und Buddha, doch mache dich nicht von ihnen abhängig.
20. Gelobe: Ich werde eher mein Leben aufgeben, als meinen Namen beschmutzen.
21. Mein Herz und meine Seele werden nicht einen Augenblick lang vom Weg des Schwertes abweichen.
Abt. EaR 17´Malerei´
===============
Reihenhaus-Siedlung: 10 gleich große Fassaden sind zu streichen, der Auftrag geht an Fa. Klexel. Eigentümerin Frau Klexel teilt ihre Leute ein: Bert schafft eine Fassade in 3 Stunden, Chrstian braucht 5 Stunden pro Fassade, Dorian schafft die Fassade in 4 Stunden. Der Auftrag eilt. Wie lange brauchen die drei Maler der Firma Klexel?
Hallo p.specht,
ohne Frühstück-, Mittags- und Pinkel- Pause werden die Maler nach exakt 7 Stunden und 50 Minuten fertig.
-> 1 Stunde: 1/3 + 1/5 +1/4 = 7/9
-> 10 Stunden: 70/9 -> 7 Std. 50 Minuten
Tschau
Na schaunmer mal:
Lösung zu EaR 17
-----------------------
Bert ... 1 Fassade 3 h
Chris .. 1 Fassade 5 h
Dor .... 1 Fassade 4 h
Gemeinsame Basis = 3 * 5 * 4 = 60 h
In diesen 60 h schafft
Bert 60/3 = 20 Fassaden,
Chris 60/5 = 12 Fassaden und
Dorian 60/4 = 15 Fassaden,
Mit anderen Worten: In 60 Stunden schaffen sie gemeinsam 47 Fassaden.
Das bedeutet: Für eine Fassade brauchen sie also 60 h / 47 Fassaden ~ 1.2766 h/Fassade,
10 Fassaden sollen sie anstreichen, also brauchen sie dazu gemeinsam 12.766 h,
das sind 12 h 46 min.
==============
Fleissaufgabe:
Wieviele Fassadenn schaffen Bert, Chris und Dorian anteilig?
Bert: 12.766 / 3 h = 4.2553 Fassaden
Chris: 12.766 / 5 = 2.5533
Dorian: 12.766 / 4 = 3.1915
-----------------------------------------------------------------------
Zusammen: 10.0001 Fassaden (inkl. kleiner Rundungsfehler)
Probe: Formel nutzen
================
Gesamtzeit = Aufragsvolumen * (3 * 5 * 4) / ( 3*5 + 3*4 + 5*4) =
= 10 * 60/(15+12+20) = 600/47 = 12.766 h,
q.e.d.
Hallo p.specht,
da liege ich wohl daneben.
Griff ins Klo.
Oder auch nicht.
Tschau
Nein, dein Ansatz war schon richtig: 1/(1/5+1/3+1/4)=1.2766
Man muss nur am Ende nochmal 1/x drücken
Das klappt dann auch mit 4 oder mehr Malern (Stichwort ´Harmonisches Mittel´).
Hallo p.specht,
ich gehe die Lösung vom Kopf an.
Das es da Fehler gibt, gebe ich zu.
Tschau
Hallo p.specht,
Nein, dein Ansatz war schon richtig: 1/(1/5+1/3+1/4)=1.2766
Man muss nur am Ende nochmal 1/x drücken
Im Kopf 1/x drücken.
Mein Fehler waren die 47/60.
60/47 wäre wohl richtig gewesen, bzw 600/47, ein klarer Fall von verkalkung der grauen Zellen.
Tschau
Abt. Wachstumsschwäche ?
====================
Die Leistungsfähigkeit einer Volkswirtschaft wird durch das Bruttoinlandsprodukt BIP gemessen. Das Wachstum wird allerdings stets an den Daten des letzten Jahres festgemacht. Steigt das BIP, dann wird es immer schwieriger, hohe Wachstumsraten zu halten. Das ist aber vollkommen logisch: Bleibt das Wachstum absolut gleich, sinkt die gemeldete Wachstumsrate. Spekulanten beginnen dann zu jammern, aber Normalos können sich weiter über die gesteigerte Leistungsfähigkeit freuen. Das nachstehende Progi zeigt diesen logischen Effekt.
Gruss
WindowTitle "Wachstums-´Reduktion´, logisch betrachtet"
Cls:font 2:var s$=" "
AppendMenuBar 100,s$+"Wachstum abs."+s$+s$+\
"Wachstum proz."+s$+s$+s$+"auf BIP"
declare n&,old!,bip!,proz!,steigabs!
bip!=1:old!=bip!:steigabs!=1
Nochma:
inc n&
bip!=bip!+steigabs!
proz! = (bip!-old!)/old!*100
old!=bip!
print "\n ";if(n&<10," ","");n&;". +";\
format$("##0.00",steigabs!);" Mrd.$",\
tab(25);format$("##0.00",proz!),"%",\
tab(40);format$("##0.00",bip!);" Mrd.$"
waitinput 6000
goto "Nochma"
Alles anzeigen
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!