Das Zitat hab ich nicht gefunden, aber die Kamera scheint ja ne Wucht zu sein.
ALGORITHMEN TEIL X: Das hat uns noch gefehlt!
-
-
-
Abt. So ein Pseudozufall aber auch!
=======================
Trotz der -zigtausendfach besseren Performance heutiger Computersysteme gegenüber den Großrechnern der 1960-iger Jahre gibt es mathematische Probleme (z.B. Optimierungsaufgaben), die noch immer nicht mit reiner Rechenkraft vollständig gelöst werden können. Dann ist man auf sog. "Monte-Carlo-Methoden" angewiesen: Man zieht (wie im berühmten Spielcasino) statistisch Zufallsstichproben und schließt daraus auf das zugrunde liegende Verhalten des Gesamtsystems.Voraussetzunng ist, daß ein leistungsfähiger, möglichst gleich-verteilter Zufallsgenerator zur Verfügung steht - gleichverteilt, weil der Generator selbst ja sonst die Ergebnisse verzerren würde. Aber auch die Anzahl der ziehbaren Stichproben geht in die Aussagekraft des Ergebnisses ein - wir brauchen also einen SEHR SCHNELLEN, ausreichend genauen und AUSGEZEICHNET GLEICHVERTEILTEN Zufallsgenerator. Tataaaaa - hier ist einer!
GrussCode
Alles anzeigenWindowTitle "Einfacher, schneller Single Precision Pseudo-Random Generator" ' Rechtliches: Teilauszug aus ACM-Algo. Nr. 359 by John Burghart ' Details und Referenzen siehe Anhang weiter unten! OHNE GEWÄHR! Cls declare seed& seed&=12345 print print " SOLL 12345 0.096616 207482415" print seed&,r_uniform_01(),seed& print print " SOLL 207482415 0.833995 1790989824" print seed&,r_uniform_01(),seed& print print " SOLL 1790989824 0.947702 2035175616" print seed&,r_uniform_01(),seed& print waitinput End Proc r_uniform_01 DECLARE k&,r_uniform_01! 'extern_global: seed& k& = seed& \ 127773 seed&= 16807*(seed&-k&*127773)-k&*2836 case seed&<0:seed&=seed&+2147483647 return seed&*val("4.656612875e-10") endproc ' ******************************************************************************* ' R_UNIFORM_01 returns a unit SINGLE PRECISION pseudorandom number. ' This routine implements the recursion ' seed = 16807 * seed mod (2^31-1) ' r_uniform_01 = seed/(2^31-1) ' The integer arithmetic never requires more than 32 bits including a sign bit. ' ' If the initial seed is 12345, then the first three computations are ' Input Output R_UNIFORM_01 ' SEED SEED ' 12345 207482415 0.096616 ' 207482415 1790989824 0.833995 ' 1790989824 2035175616 0.947702 ' ' Modified: 11 August 2004 Author: John Burkardt ' Reference: ' Paul Bratley, Bennett Fox, L E Schrage, ' A Guide to Simulation, ' Springer Verlag, pages 201-202, 1983. ' ' Pierre L'Ecuyer, ' Random Number Generation, ' in Handbook of Simulation, ' edited by Jerry Banks, ' Wiley Interscience, page 95, 1998. ' ' Bennett Fox, ' Algorithm 647: ' Implementation and Relative Efficiency of Quasirandom ' Sequence Generators, ' ACM Transactions on Mathematical Software, ' Volume 12, Number 4, pages 362-376, 1986. ' ' P A Lewis, A S Goodman, J M Miller, ' A Pseudo-Random Number Generator for the System/360, ' IBM Systems Journal, ' Volume 8, pages 136-143, 1969. ' ' Parameters: ' ' Input/output, integer SEED, the "seed" value, which should NOT be 0. ' On output, SEED has been updated. ' ' Output, real R_UNIFORM_01, a new pseudorandom variate, ' strictly between 0 and 1. ' Although SEED can be represented exactly as a 32 bit integer, ' it generally cannot be represented exactly as a 32 bit real number!
-
Hey Peter, dein Pop-Art Code ist ja crass
Sowas würd ich nie im Leben zusammenkriegen.
Hast du noch mehr solche mathematisch-grafischen bzw. psychodelische Spielereien?
Dann könntest hier ja glatt 'ne eigene Rubrik für aufmachen
Sieht schon cool aus.... -
Danke JörgG, hab von Dir aber auch schon einiges gesehen... Das ganze ist halt eine Zeitfrage.
Beste Grüsse!Abt. Trägerberechnung in der Mechanik
=========================
Nachstehend ewas ganz anderes: Eine halbautomatische Übersetzung eines Fortran-90-Programms. Bekanntlich versuche ich, alte Algorithmenschätze wieder auszugraben. Automatisch klappt das leider noch nicht ausreichend, z.B. die Formatierung von Ausgaben. Ich hatte auch wenig Zeit, die Ausgabewerte an Hand der Beispiele im Originalprogramm zu verifizieren - also bitte: Vorsicht! Das ganze läuft wie immer ohne Gewähr!
GrussCode
Alles anzeigenWindowTitle "Resonanzfrequenzen mechanischer Träger, dynamische Masse, Steifigkeit etc." '{Übersetzung aus Fortran-90 nach XProfan 11.2a (Demo) 2016-09 by P.Specht,Vienna.at ' Quelle: http://jean-pierre.moreau.pagesperso-orange.fr/Fortran/beam1_f90.txt ' ******************************************************************************* ' * Resonance Frequencies of a bending beam * ' * - Modal Mass and Stiffness * ' * - Deformation modes and Maximum Strain * ' * --------------------------------------------------------------------------- * ' * --------------------------------------------------------------------------- * ' * REFERENCE: "Mécanique des vibrations linéaires By M. Lalanne, * ' * P. Berthier, J. Der Hagopian, Masson, Paris 1980" * ' * * ' * F90 Release By J-P Moreau, Paris. * ' * (www.jpmoreau.fr) * ' ******************************************************************************* ' NOTE: For a bending beam of constant section S, the deviation v(x) is given ' by: ' EI d4v/dx4 + rho*S d2v/dt2 - Tex = 0 (1) ' where: ' E = Young's modulus of beam material (steel: 2E11 Pa) ' I = Moment of inertia of S (rectangle: B*H^3/12) ' rho = Volumic Mass (steel: 7800 kg/m3) ' Tex = External force per length unit ' x = beam abscissa from x=0 to x=L ' ' d4v/dx4: 4th partial derivative with respect to x, ' d2v/dt2: 2nd partial derivative with respect to time, t. ' ' We seek solutions of v(x,t) having the form: v(x) * f(t). This leads to solving ' ' d2f(t)/dt2 + w2 f(t) = 0 (2) ' and ' d4v(x)/dx4 - rho.S/(EI) w2 v(x) = 0 (3) ' with ' w = pulsation of force excitation ' ' The solution of (2) has the form: f(t) = A sin(wt) + B cos(wt) (4) ' The solution of (3) is obtained by considering v(x) = V e^rx (5) ' ' the characreristic equation of which is: r^4 - rho.S w2 /(EI) = 0 (6) ' ' The complex roots of (6) are: beta, -beta, j.beta and -j.beta, with ' ' beta = 4th Root of (rho.s w2 / (EI)) (7) ' ' From (5) and the the 4 complex roots of (6), we can write: ' ' v(x) = C sin(beta.x) + D cos(beta.x) + E sh(beta.x) + F ch(beta.x) (8) ' ' The resonance pulsations are given by: wn = Xn^2 /L^2 * sqrt(EI/(rho.S)) (9) ' ' The Xn values are presented below for various limit conditions: ' ' Limit Conditions X1^2 X2^2 X3^2 X4^2 X5^2 ' ----------------------------------------------------------------------- ' Fixed-free: 1+ch(X)*cos(X)=0 3.516 22.03 61.69 120.9 199.8 ' Sup.-Sup.: sin(X)=0 9.869 39.47 88.82 157.9 246.7 ' Fixed-Fixed or Free-Free: ' 1 - ch(X) cos(X) = 0 22.37 61.67 120.9 199.8 298.5 ' Fixed-Sup. or Free-Sup.: ' tan(X) = tanh(X) 15.41 49.96 104.2 178.2 272.0 ' ----------------------------------------------------------------------- ' ' The max. strain is given by: sigma = E * H/2 * d2vi(x) / dx2 ' '}------------------------------------------------------------------------------- 'PROGRAM BEAM1 'IMPLICIT REAL*8 A-H, O-Z declare i&,j&,k&,l&,m&,n& 'Integer Families: i j k l m n Declare I1!,I2!,L!,L0!,J!,K1!,M1! 'REAL*8 I1,I2,L,L0,J,K1,M1 Declare ans$,A1![5],X![25] Declare pi!,e!,R!,A!,B!,H!,S!,B1!,B2!,O1!,O2!,C!,C1!,C2!,D!,S1!,S2! Declare T!,T1!,T2!,T3!,T4!,T5!,T6!,T7!,T8!,W!,Y!,Z!,P!,F!,N1&,N2& REPEAT CLS print " " PRINT " Fixed-Free Beam, M=1" PRINT " Fixed-Supported, M=2" PRINT " Fixed-Fixed, M=3" PRINT " Free-Free, M=4" PRINT " Free-Supported, M=5" PRINT " Supported-Supported, M=6" print " " Print " Input Limit Conditions: M= ";:Input M& Print " " Pi! = Pi() If M&=1 A1![1] = 3.5160152 A1![2] = 22.034491 A1![3] = 61.697214 A1![4] = 120.90191 A1![5] = 199.85953 ElseIf (M&=2) OR (M&=5) A1![1] = 15.418205 A1![2] = 49.964862 A1![3] = 104.24769 A1![4] = 178.26972 A1![5] = 272.03097 ELSEIF (M&=3) OR (M&=4) A1![1] = 22.373285 A1![2] = 61.672822 A1![3] = 120.90339 A1![4] = 199.85944 A1![5] = 298.55553 ELSEIF (M&=6) A1![1] = 9.8696044 A1![2] = 39.478417 A1![3] = 88.826439 A1![4] = 157.91367 A1![5] = 246.74011 EndIF PRINT " " Print " Young's Modulus: ";:Input E! ' Elastizitätsmodul (Material des Trägers) PRINT " " Print " Volumic Mass : ";:Input R! ' Massendichte Print " " Print " Beam Width ... : ";:Input B! ' Breite Print " Beam Thickness : ";:Input H! ' Dicke Print " Beam Length .. : ";:Input L! ' Länge PRINT " " Print " " J! = B!*H!*H!*H!/12 ' Moment of Inertia (Statisches Trägheitsmoment) S! = B!*H! ' Section (Querschnitsfläche) Whileloop 5:i&=&Loop B1! = Sqrt(A1![I&]) F! = A1![I&] / (2 * Pi! *L!*L!) * Sqrt(E!*J!/R!/S!) Print " Frequency (Hz) = ",F! ' Eigenfrequenz des Trägers EndWhile PRINT " " Print " Do you want the modes, modal masses & Stiffnesses (y/n): ";:Input ans$ Case Left$(Upper$(Ans$),1)="N":BREAK Print " " Print " How many modes (Maximum 5): ";:Input n1& ' Zu berechnende Oberwellen Print " " print " How many points for deviation, slope & max. strain (max. 25): ";:Input n2& PRINT " " Print " Do you want automatic divisions (y/n): ";:Input ans$ ' sollen die (Last-)Teilstücke automatisch errechnet werden? ' Wenn nein: Einzeleingabe der Teilstücke If Ans$="n" WhileLoop N2&:i&=&Loop print " X(",I&,") = ";:Input ans$ ':::::i2 ? X![i&]=Val(ans$) EndWhile ELSE L0! = L!/(N2&-1) X![1] = 0 WhileLoop 2,n2&:i&=&Loop X![I&]=X![I&-1]+L0! EndWhile EndIf WhileLoop n1&:i&=&Loop B1!= SQRT(A1![I&]) B2!= B1!/L! O1!= Cos(B1!):I1!=Sin(B1!) O2!= Cos(2*B1!):I2!=Sin(2*B1!) C1!= (Exp(B1!) + Exp(-1*B1!))/2 S1!= (Exp(B1!) - Exp(-1*B1!))/2 C2!= (Exp(2*B1!) + Exp(-2*B1!))/2 S2!= (Exp(2*B1!) - EXP(-2*B1!))/2 A! = 1 IF M&=1 B!= -(I1!+ S1!) / (O1! + C1!) C! = -1 D! = -B! ElseIf (M&=2) OR (M&=3) B!= (-I1! + S1!) / (O1! - C1!) C!= -1 D!= -B! ELSEIF (M&=4) B! = (I1! - S1!) / (-1*O1! + C1!) C!= 1 D!= B! ELSEIF (M&=5) B!= -(I1! + S1!) / (O1! + C1!) C!= 1 D!= B! ElseIf (M&=6) B!=0 C!=0 D!=0 EndIF T1! = A!*A!/2 * (L! - 1/2/B2! * I2!) T2! = B!*B!/2 * (L! + I2!/2/B2!) T3! = C!*C!/2 * (S2!/2/B2! - L!) T4! = D!*D!/2 * (S2!/2/B2! + L!) T5! = A!*B!/2/2/B2!*(1-O2!) T6! = C!*D!/2/2/B2!*(C2!-1) T7! = EXP(B1!) / 2 / 2 / B2! * (A! * C! + A! * D!) * (I1! - O1!) T7! = T7! + EXP(-B1!) / 2 / 2 / B2! * (A!* D!- A!* C!) * (I1! + O1!) T7! = T7!+ A!* C!/ 2 / B2! T8! = Exp(B1!) / 2 / 2 / B2! * (B! * C! + B! * D!) * (I1! + O1!) T8! = T8!+ EXP(-B1!) / 2 / 2 / B2!* (B!* D!- B!* C!) * (I1! - O1!) T8! = T8! - B! * C! / 2 / B2! T! = T1! + T2! + T3! + T4! + T5! + T6! + T7! + T8! M1! = R!* S!* T! K1! = M1! *B2!*B2!*B2!*B2! * E! *H!*H! /12/R! W! = Sqrt(K1! / M1!) F! = W!/2/Pi! PRINT " " Print " MODE #",I1! PRINT " ----------" PRINT " " print " OMEGA=", W!,"FREQUENCY=",F! PRINT " " PRINT " Modal Mass=", M1!, " Modal Stiffness=", K1! PRINT " " PRINT " X Deviation Slope Strain (x 10^6) " PRINT " -------------------------------------------------" WhileLoop n2&:k&=&Loop Z!= X![K&] I1! = Sin(B2!*Z!): O1! = Cos(B2!* Z!) S1! = (EXP(B2!* Z!) - EXP(-B2! * Z!)) / 2 C1! = (EXP(B2!* Z!) + EXP(-B2!* Z!)) / 2 Y!= A!* I1!+ B!* O1!+ C!* S1!+ D!* C1! P!= B2!* (A!* O1!- B!* I1! + C! * C1! + D! * S1!) M1! = B2!*B2! * (-A! * I1! - B! * O1! + C! * S1! + D! * C1!) M1! = E! * H! * M1! / 2 Print " ";Z!, Y!, P!, M1! EndWhile print " " WaitInput EndWhile Beep:WaitInput:CLS UNTIL 0 Print "\n--------------------------- END ---------------------------------------" Beep:Waitinput 4000 END ' of file beam1.prf
-
P.S.: Hier die Testdaten des F90-Originalprogramms zum Vergleich:
Code
Alles anzeigenSAMPLE RUN: Fixed-Free Beam, M=1 Fixed-Supported, M=2 Fixed-Fixed, M=3 Free-Free, M=4 Free-Supported, M=5 Supported-Supported, M=6 Limit Conditions, M= 3 Young Modulus: 2E11 Volumic Mass.: 7800 Beam Width....: 0.4 Beam Thickness: 0.5 Beam Length...: 10 Frequency (Hz) = 26.025373 Frequency (Hz) = 71.739944 Frequency (Hz) = 140.638973 Frequency (Hz) = 232.483361 Frequency (Hz) = 347.290041 Do you want the modes, modal masses & Stiffnesses (y/n): y How many modes (Maximum 5): 5 How many points for deviation, slope & max. strain: 11 Do you want automatic divisions (y/n): y MODE #1 ------- OMEGA= 163.5222 FREQUENCY= 26.0254 Modal Mass= 5.40002743637149E+0006 Modal Stiffness= 1.44394161046433E+0011 X Deviation Slope Strain (x10^6) ------------------------------------------------ 0.0000 0.0000 0.0000 22771.74 1.0000 0.1925 0.3498 12232.17 2.0000 0.6304 0.4927 2225.41 3.0000 1.1155 0.4494 -6194.01 4.0000 1.4814 0.2635 -11846.94 5.0000 1.6164 0.0000 -13841.17 6.0000 1.4814 -0.2635 -11846.94 7.0000 1.1155 -0.4494 -6194.01 8.0000 0.6304 -0.4927 2225.41 9.0000 0.1925 -0.3498 12232.17 10.0000 -0.0000 -0.0000 22771.74 MODE #2 ------- OMEGA= 450.7554 FREQUENCY= 71.7399 Modal Mass= 1.64384471757779E+009 Modal Stiffness= 3.33997017195899E+014 X Deviation Slope Strain (x10^6) ------------------------------------------------ 0.0000 0.0000 0.0000 61624.92 1.0000 0.4554 0.7516 14015.32 2.0000 1.2058 0.6202 -24480.45 3.0000 1.5043 -0.0778 -40796.43 4.0000 1.0338 -0.8261 -29766.62 5.0000 0.0000 -1.1411 -0.00 6.0000 -1.0338 -0.8261 29766.62 7.0000 -1.5043 -0.0778 40796.43 8.0000 -1.2058 0.6202 24480.46 9.0000 -0.4554 0.7516 -14015.31 10.0000 -0.0000 0.0000 -61624.92 MODE #3 ------- OMEGA= 883.6607 FREQUENCY= 140.6390 Modal Mass= 6.30221918268558E+011 Modal Stiffness= 4.92112747787204E+017 X Deviation Slope Strain (x10^6) ------------------------------------------------ 0.0000 0.0000 0.0000 120907.45 1.0000 0.7701 1.1128 -6282.87 2.0000 1.5079 0.1215 -77726.96 3.0000 0.8687 -1.2982 -47991.93 4.0000 -0.6284 -1.3976 39638.73 5.0000 -1.4060 -0.0000 85988.24 6.0000 -0.6284 1.3976 39638.73 7.0000 0.8687 1.2982 -47991.92 8.0000 1.5079 -0.1215 -77726.96 9.0000 0.7701 -1.1128 -6282.87 10.0000 -0.0000 -0.0000 120907.44 MODE #4 ------- OMEGA=1460.7360 FREQUENCY= 232.4834 Modal Mass= 2.62456494665287E+014 Modal Stiffness= 5.60016486006314E+020 X Deviation Slope Strain (x10^6) ------------------------------------------------ 0.0000 0.0000 0.0000 199859.15 1.0000 1.0745 1.2736 -58760.62 2.0000 1.3192 -0.9913 -120007.61 3.0000 -0.4227 -1.9219 45103.94 4.0000 -1.3935 0.3075 139911.06 5.0000 -0.0000 1.9969 0.02 6.0000 1.3935 0.3075 -139911.05 7.0000 0.4227 -1.9219 -45103.98 8.0000 -1.3192 -0.9913 120007.59 9.0000 -1.0745 1.2736 58760.66 10.0000 -0.0000 0.0000 -199859.09 MODE #5 ------- OMEGA=2182.0877 FREQUENCY= 347.2900 Modal Mass= 1.14990481414791E+017 Modal Stiffness= 5.47527941977509E+023 X Deviation Slope Strain (x10^6) 0.0000 0.0000 0.0000 298555.55 1.0000 1.3218 1.1293 -144271.18 2.0000 0.6736 -2.2318 -91130.35 3.0000 -1.3394 -0.7648 201616.08 4.0000 -0.2202 2.4118 33178.41 5.0000 1.4146 0.0000 -211057.80 6.0000 -0.2202 -2.4118 33178.38 7.0000 -1.3394 0.7648 201616.09 8.0000 0.6736 2.2318 -91130.32 9.0000 1.3218 -1.1293 -144271.20 10.0000 -0.0000 -0.0000 298555.50
-
Abt. Physik-Überblick
=============
Falls Euch die Themen zum Programmieren ausgehen, hier ein paar interessante Betätigungsfelder.
GrussSpoiler anzeigen
Entdeckungen in der Physik
==========================
Mechanik
--------
Archimedisches Prinzip (Auftrieb)
Fallgeschwindigkeit (Galileo)
Massenträgheit
Pascalsches Gesetz (Luftdruck)
Hookesches Gesetz (Kraft prop. Federweg)
Definition der Kinetischen Energie (Young)
Carnot-Zyklus Idealer Gase
Dopplereffekt
Zweites Gesetz der Thermodynamik (Clausius, Kelvin)
Rheologie und ReibungsphysikThermodynamik
-------------
Energieerhaltung (Mayer, Kelvin)
Gaskinetische Theorie (Clausius, Maxwell)
Entropie (Clausius)
Bewegungsdynamik von Gasatomen (Maxwell)
Zustandsgleichung der Gase und Flüssigkeiten, Molekularkräfte
Gaslichtregler für LeuchttürmePhysikalische Chemie
---------------------
Massenerhaltung bei chemischen Reaktionen (Lavoisier)
Spontane Radioaktivität
Rayleigh-Streuung zur Gasdichte, Entdeckung des Argons
Röntgenkristallographie
Charakteristisches Röntgenspektrum der Elemente
Nickelstahlanomalien für Präzisionsmessungen
Röntgenspektroskopie von Eiweissen
Elektron-Atom-Wechselwirkung
Sedimentationsgleichgewicht
Neutron
Positron
Allotrope Formen des Wasserstoffes
Appleton-Schicht & StratosphäreElektrotechnik
--------------
Elektrische Abstoßung und Anziehung (Coulomb)
Elektrischer Strom (Ampère)
Magnetinduktion (Biot, Savart)
Elektrischer Widerstand (Ohm)
Elektrische Elementarladung
Bestimmung des Erdmagnetfeldes (Weber; Gauss)
Feldlinien, Elektrochemie (Michael Faraday)
Faraday-Phasendrehung elektromagn. Wellen
Gesamtenergieerhaltung (Joule, Helmholtz)
Elektromagnetische Wellen (Maxwell)
Compton-Effekt
Blasenkammer zur Bahnbeobachtung
Glühelektrischer Richardson-Effekt
Molekularstrahlepitaxie
Halbleiter, Transistoreffekt
quantisierter Hall-Effekt (Von Klitzing-Effekt)
Elektronenoptik, Elektronenmikroskop
Rastertunnelmikroskop
Hochtemperatur-Supraleitung in keramischen Materialien
Halbleiterheterostrukturen für Hochgeschwindigkeits- und Optoelektronik
Oberflächenwellenkammfilter
Techniken zur Integration von Schaltkreisen
Erster Quantencomputer (512 qbit)Strahlungsphysik
----------------
Snellius-sches Gesetz (Lichtbrechung)
Wellentheorie des Lichts (Young)
Welleninterferenz (Fresnel)
Schwarzkörperstrahlung (Kirchhoff)
Spektrumsverschiebung bei Temperaturerhöhung
Röntgenstrahlen
Kathodenstrahlen
Interferenzfarbringfotografie
Funksender
Bildröhre
Phasenkontrastmikroskop
Holografie
Apertursynthesetechnik, Aperturradar
Lichtleiter
CCD-Sensor
Blaue LED
Laserspektroskopie
hochauflösende Elektronenspektroskopie
Tscherenkow-Effekt, Bremsstrahlung
optischer Frequenzkamm
Quantentheorie der optischen KohärenzMaterialwissenschaften
----------------------
Suprafluidität
Ferromagnetismus und Antiferromagnetismus
Supraleitung
Tunneleffekt in Halb- bzw. Supraleitern
Suprastrom durch eine Tunnel-Barrieren, Josephson-Effekt
kollektive und Teilchen-Bewegung in Atomkernen, reale Struktur der Atomkerne
Ionisation, Blitzforschung
Riesenmagnetwiderstand (GMR)
GraPhen
Höchstdruckphysik
Plasmaphysik, Magnetohydrodynamik
Elektronenstruktur in magnetischen und ungeordneten Systemen
Neue Tieftemperaturphysik
kritische Phänomene bei Phasenumwandlungen
Ordnungsprozesse in Flüssigkristallen und Polymerlösungen
Ionenfallentechnik, Paul-Falle
Atomuhr
Suprafluidität in Helium_3
Neue Art Quantenflüssigkeit mit fraktionell geladenen Anregungen
Tieftemperaturphysik, Flüssiges Helium
Quantenstruktur der Elektroschwachen Wechselwirkung
Bose-Einstein-Kondensation von Gasen
Theorie zu Supraleitern und SupraflüssigkeitenKosmologie
-----------
Heliozentrisches Weltbild (Kopernikus)
Erdmagnetfeld
Bewegungsgesetze im Gravitationsfeld (Newton)
Konstanz der Lichtgeschwindigkeit
Kosmische Strahlung
Pulsare
kosmische Mikrowellen-Hintergrundstrahlung (Big Bang-Bestätigung)
Struktur und Entwicklung der Sterne
Bildung der chemischen Elemente im Weltall
Pulsare in Doppelsternsystemen
Nachweis kosmischer Neutrinos
kosmische Röntgenquellen
Verbesserte Wilson-Nebelkammer, Natur der Höhenstrahlung
21.Jh:
Mapping der kosmischen Hintergrundstrahlung
Beschleunigung in der Expansion des Weltalls
Dunkle Materie
Dunkle Energie
Higgs Boson am LHC von CERN
GravitationswellenKernphysik
----------
Atomtheorie der Materie (Dalton, Leukipp, Demokrit)
Quantentheorie
Fotoelektrischer Effekt
Atomaufbau, Energieniveaus und Licht
Quantenmechanik
Wellenmechanik
Wellennatur der Elektronen und der Materie
Raman-Streuung des Lichtes
Zeeman-Effekt: Aufspaltung der Spektrallinien im Magnetfeld
Elektronenbeugung in Kristallen
Kernreaktion durch langsame Neutronen
Künstliche Radioaktive Elemente
Cyklotron
Magnetisches Moment des Protons
Resonanzmethode << magnetische Eigenschaften von Atomkernen
Pauli-Ausschließungsprinzip
Mesonen
Mesonenfotografie
Kernkollisionen
Kernspinresonanzspektroskopie
statistische Interpretation des Quadrats der Wellenfunktion
Koinzidenzmethode zur Aufklärung von Kernreaktionen
Feinstruktur des Wasserstoffspektrums, Lamb-Verschiebung
Magnetisches Moment des Elektrons
Paritätsprinzip bei Elementarteilchen
Antiproton
Verbesserte Blasenkammer
Elektronenstreuung im Atomkern
Struktur der Nukleonen
Resonanzabsorption der Gammastrahlung, Mößbauer-Effekt
fundamentale Symmetrie-Prinzipien
Nukleare Schalenstruktur
Quantenelektronik, Maser-,Laser-Prinzip
Quantenelektrodynamik
Optische Methoden beim Studium der Hertz-Resonanzen in Atomen
Verständnis der Kernreaktionen, Energieerzeugung in Sternen
Wasserstoffblasenkammer, erweiterze Resonanzzustände des Atoms
Quarks und Gluonen
schwere Elementarteilchen
vereinigte schwache und elektromagnetische Wechselwirkung
schwache neutrale Ströme
Verletzung fundamentaler Symmetrieprinzipien beim Zerfall von K-Mesonen
Feldpartikel W und Z, Vermittler schwacher Wechselwirkung
Neutrinostrahlmethode, Dublettstruktur der Leptonen durch Entdeckung des Myonneutrinos
tiefinelastischen Elektronenstreuung an Kernen, Quarkmodell
Vieldraht-Proportionalkammer
Streuung ungeladener Kernteilchen
Massereiches negativ geladenes t-Lepton
Neutrino
Kühlen und Einfangen von Atomen mit Hilfe von Laserlicht
asymptotischen Freiheit in der Theorie der Starken Wechselwirkung
Mechanismus der spontanen Symmetriebrechung
Existenz von mindestens drei Quarkfamilien
Quantensysteme manipulieren
Verständnis des Ursprungs der Masse subatomarer Teilchen
Neutrinooszillationen, Neutrinomasse
Tau neutrinosP.S.: Ab 1880 sind hier alle Physik-Nobelpreise berüchsichtigt, davor nur ganz wichtige Erkenntnisse
-
Abt. Nie wieder hässliche Bildschirmschoner!
============================
Verdammt... schon passiert!
GrussCode
Alles anzeigenWindowtitle " A b s t r a k t o r":Windowstyle 24 randomize:Window 0,0 - %maxx,%maxy:cls 0 var xh&=width(%hwnd)\4:var yh&=height(%hwnd)\2 line 0,yh& - 2*xh&,yh&:line xh&,0 - xh&,2*yh& declare x1!,x2!,x3!,x4!,a!,b!,c!,d! x1!=1.2:x2!=1:x3!=1:a!=1:b!=0.03:c!=0.09:d!=1/pi() repeat x4!=x1!*sin(A!*x3!+B!)+sin(C!*x2!+D!) usepen 0,x4!,rgb(100*x3!,100*x2!,100*x1!) line xh&+128*x3!,(128*x2!) - xh&+128*x3!+1,128*x2! if rnd()<0.002 d!=Pi()*rnd()-0.2 a!=Pi()*rnd()-0.5 b!=Pi()*rnd() c!=Pi()*rnd() waitinput 42 case rnd()<0.005:cls 0 endif x1!=x2!:x2!=x3!:x3!=x4! until %key>0:end
-
Erstaunlich, was mit so ein paar Zeilen alles möglich ist
Gruß Volkmar
-
Endlich werden die Galaxienkarten der Enterprise auch uns zugänglich gemacht...
-
Abt. Warum MIDI manchmal schräg klingt
==========================
Das folgende Machwerk soll helfen, die Abdeckung des General-Midi-Standards durch jene der PC-eigenen Variante bzw. auch der von XProfan zugewiesenen Instrumentierung zu prüfen. Das Progi versucht dabei bereits, die Instrumentennummern möglichst dem GM-Standard anzugleichen (GM-Nr. - 1 = Profannummer, bei Drums: GM-Nr + 1 = Profannummer).
GrussCode
Alles anzeigenWindowTitle " GENERAL-MIDI SOUND COMPATIBILITY TESTER" WindowStyle 24:randomize:font 2 cls Declare tmp$[],Group$[],Drums$[],i&,j& 'goto "skip" Goto "GetInfo" Main: whileloop 0,sizeof(tmp$[])-1:i&=&Loop clear group$[]:group$[]=explode(tmp$[i&],",") cls:locate 2,2:print group$[0]; whileloop sizeof(group$[])-1:j&=&Loop locate 4,4:print group$[j&];" " Play val(group$[j&])-1, -1 ,0 Play 45,3,0 endwhile endwhile Sound 2000,200 waitinput 2000 skip: Goto "GetDrumInfo" PlayDrums: whileloop 0,sizeof(tmp$[])-1:i&=&Loop clear Drums$[]:Drums$[]=explode(tmp$[i&],",") cls:locate 2,2:print Drums$[0]; whileloop sizeof(Drums$[])-1:j&=&Loop locate 4,4:print Drums$[j&];" " Play 0;0;0;val(Drums$[j&])+1,0,0 waitinput 50 Play 0;0;0;val(Drums$[j&])+1,0,0 waitinput 150 Play 0;0;0;val(Drums$[j&])+1,0,0 waitinput 1000 endwhile endwhile Sound 1000,50 waitinput 200 Sound 1000,400 print "\n\n E N D E " waitinput END GetInfo: clear tmp$[] tmp$[]=explode(\ \ "Piano:,"+\ "1 Acoustic_Grand_Piano,"+\ "2 Bright_Acoustic_Piano,"+\ "3 Electric_Grand_Piano,"+\ "4 Honky-tonk_Piano,"+\ "5 Electric_Piano_1,"+\ "6 Electric_Piano_2,"+\ "7 Harpsichord,"+\ "8 Clavi|"+\ \ "Chromatic_Percussion:,"+\ "9 Celesta,"+\ "10 Glockenspiel,"+\ "11 Music_Box,"+\ "12 Vibraphone,"+\ "13 Marimba,"+\ "14 Xylophone,"+\ "15 Tubular_Bells,"+\ "16 Dulcimer|"+\ \ "Organ:,"+\ "17 Drawbar_Organ,"+\ "18 Percussive_Organ,"+\ "19 Rock_Organ,"+\ "20 Church_Organ,"+\ "21 Reed_Organ,"+\ "22 Accordion,"+\ "23 Harmonica,"+\ "24 Tango_Accordion|"+\ \ "Guitar:,"+\ "25 Acoustic_Guitar_(nylon),"+\ "26 Acoustic_Guitar_(steel),"+\ "27 Electric_Guitar_(jazz),"+\ "28 Electric_Guitar_(clean),"+\ "29 Electric_Guitar_(muted),"+\ "30 Overdriven_Guitar,"+\ "31 Distortion_Guitar,"+\ "32 Guitar_harmonics|"+\ \ "Bass:,"+\ "33 Acoustic_Bass,"+\ "34 Electric_Bass_(finger),"+\ "35 Electric_Bass_(pick),"+\ "36 Fretless_Bass,"+\ "37 Slap_Bass_1,"+\ "38 Slap_Bass_2,"+\ "39 Synth_Bass_1,"+\ "40 Synth_Bass_2|"+\ \ "Strings:,"+\ "41 Violin,"+\ "42 Viola,"+\ "43 Cello,"+\ "44 Contrabass,"+\ "45 Tremolo_Strings,"+\ "46 Pizzicato_Strings,"+\ "47 Orchestral_Harp,"+\ "48 Timpani|"+\ \ "Ensemble:,"+\ "49 String_Ensemble_1,"+\ "50 String_Ensemble_2,"+\ "51 Synth_Strings_1,"+\ "52 Synth_Strings_2,"+\ "53 Voice_Aahs,"+\ "54 Voice_Oohs,"+\ "55 Synth_Voice,"+\ "56 Orchestra_Hit|"+\ \ "Brass:,"+\ "57 Trumpet,"+\ "58 Trombone,"+\ "59 Tuba,"+\ "60 Muted_Trumpet,"+\ "61 French_Horn,"+\ "62 Brass_Section,"+\ "63 Synth_Brass_1,"+\ "64 Synth_Brass_2|"+\ \ "Reed:,"+\ "65 Soprano_Sax,"+\ "66 Alto_Sax,"+\ "67 Tenor_Sax,"+\ "68 Baritone_Sax,"+\ "69 Oboe,"+\ "70 English_Horn,"+\ "71 Bassoon,"+\ "72 Clarinet|"+\ \ "Pipe:,"+\ "73 Piccolo,"+\ "74 Flute,"+\ "75 Recorder,"+\ "76 Pan_Flute,"+\ "77 Blown_Bottle,"+\ "78 Shakuhachi,"+\ "79 Whistle,"+\ "80 Ocarina,"+\ \ "Synth_Lead:,"+\ "81 Lead_1_(square),"+\ "82 Lead_2_(sawtooth),"+\ "83 Lead_3_(calliope),"+\ "84 Lead_4_(chiff),"+\ "85 Lead_5_(charang),"+\ "86 Lead_6_(voice),"+\ "87 Lead_7_(fifths),"+\ "88 Lead_8_(bass_+_lead)|"+\ \ "Synth_Pad:,"+\ "89 Pad_1_(new_age),"+\ "90 Pad_2_(warm),"+\ "91 Pad_3_(polysynth),"+\ "92 Pad_4_(choir),"+\ "93 Pad_5_(bowed),"+\ "94 Pad_6_(metallic),"+\ "95 Pad_7_(halo),"+\ "96 Pad_8_(sweep)|"+\ \ "Synth_Effects:,"+\ "97 FX_1_(rain),"+\ "98 FX_2_(soundtrack),"+\ "99 FX_3_(crystal),"+\ "100 FX_4_(atmosphere),"+\ "101 FX_5_(brightness),"+\ "102 FX_6_(goblins),"+\ "103 FX_7_(echoes),"+\ "104 FX_8_(sci-fi)|"+\ \ "Ethnic:,"+\ "105 Sitar,"+\ "106 Banjo,"+\ "107 Shamisen,"+\ "108 Koto,"+\ "109 Kalimba,"+\ "110 Bagpipe,"+\ "111 Fiddle,"+\ "112 Shanai|"+\ \ "Percussive:,"+\ "113 Tinkle_Bell,"+\ "114 Agogo_Bells,"+\ "115 Steel_Drums,"+\ "116 Woodblock,"+\ "117 Taiko_Drum,"+\ "118 Melodic_Tom,"+\ "119 Synth_Drum,"+\ "120 Reverse_Cymbal|"+\ \ "Sound_effects:,"+\ "121 Guitar_Fret_Noise,"+\ "122 Breath_Noise,"+\ "123 Seashore,"+\ "124 Bird_Tweet,"+\ "125 Telephone_Ring,"+\ "126 Helicopter,"+\ "127 Applause,"+\ "128 Gunshot" ,"|") Goto "Main" GetDrumInfo: clear tmp$[]:tmp$[]=explode(\ "Drumkits_Kanal_4-Note:,"+\ "1 Standard_Kit,"+\ "9 Room_Kit,"+\ "17 Power_Kit,"+\ "25 Electronic_Kit,"+\ "26 TR-808_Kit,"+\ "33 Jazz_Kit,"+\ "41 Brush_Kit,"+\ "49 Orchestra_Kit,"+\ "57 Sound_FX_Kit,"+\ "128 Percussion|"+\ \ "Perkussionsklänge_Kanal4:,"+\ "35 Bass_Drum_2,"+\ "36 Bass_Drum_1,"+\ "37 Side_Stick,"+\ "38 Snare_Drum_1,"+\ "39 Hand_Clap,"+\ "40 Snare_Drum_2,"+\ "41 Low_Tom_2,"+\ "42 Closed_Hi-hat,"+\ "43 Low_Tom_1,"+\ "44 Pedal_Hi-hat,"+\ "45 Mid_Tom_2,"+\ "46 Open_Hi-hat,"+\ "47 Mid_Tom_1,"+\ "48 High_Tom_2,"+\ "49 Crash_Cymbal_1,"+\ "50 High_Tom_1,"+\ "51 Ride_Cymbal_1,"+\ "52 Chinese_Cymbal,"+\ "53 Ride_Bell,"+\ "54 Tambourine,"+\ "55 Splash_Cymbal,"+\ "56 Cowbell,"+\ "57 Crash_Cymbal_2,"+\ "58 Vibra|"+\ \ "Slap:,"+\ "59 Ride_Cymbal_2,"+\ "60 High_Bongo,"+\ "61 Low_Bongo,"+\ "62 Mute_High_Conga,"+\ "63 Open_High_Conga,"+\ "64 Low_Conga,"+\ "65 High_Timbale,"+\ "66 Low_Timbale,"+\ "67 High_Agogo,"+\ "68 Low_Agogo,"+\ "69 Cabasa,"+\ "70 Maracas,"+\ "71 Short_Whistle,"+\ "72 Long_Whistle,"+\ "73 Short_Guiro,"+\ "74 Long_Guiro,"+\ "75 Claves,"+\ "76 High_Wood_Block,"+\ "77 Low_Wood_Block,"+\ "78 Mute_Cuica,"+\ "79 Open_Cuica,"+\ "80 Mute_Triangle,"+\ "81 Open_Triangle" ,"|") Goto "PlayDrums"
-
P.S. zu oben: Die Profan-Drumkit-Belegung geht über den Light-GM-Midi-Standard hinaus, wobei sich manche Geräuscherzeuger aber wiederholen. Es wurden alle oben nicht verwendeten Drum-Nummern akkustisch überprüft, die belegten können hiermit abgespielt werden:
Code
Alles anzeigenWindowTitle "Sondertest: Profan-spezifische Midi-Drumarten" var t&=200 cls Play 0;0;0;27,0,0 : waitinput t& Play 0;0;0;28,0,0 : waitinput t& Play 0;0;0;29,0,0 : waitinput t& Play 0;0;0;30,0,0 : waitinput t& Play 0;0;0;31,0,0 : waitinput t& Play 0;0;0;32,0,0 : waitinput t& Play 0;0;0;33,0,0 : waitinput t& Play 0;0;0;34,0,0 : waitinput t& print:print 35:Play 0;0;0;35,0,0 : waitinput t& print:print 36:Play 0;0;0;36,0,0 : waitinput t& print:print 78:Play 0;0;0;78,0,0 : waitinput t& print:print 79:Play 0;0;0;79,0,0 : waitinput t& Play 0;0;0;80,0,0 : waitinput t& Play 0;0;0;81,0,0 : waitinput t& Play 0;0;0;82,0,0 : waitinput t& Play 0;0;0;83,0,0 : waitinput t& Play 0;0;0;84,0,0 : waitinput t& Play 0;0;0;85,0,0 : waitinput t& Play 0;0;0;86,0,0 : waitinput t& Play 0;0;0;87,0,0 : waitinput t& print:print 88:Play 0;0;0;88,0,0 : waitinput t& waitinput 3000
-
Abt. Wer wird denn gleich böses denken?
---------------------------------------------Spoiler anzeigen
Schrei nicht zu viel!
Iss brav auf!
Spiele mit didaktisch wertvollem Spielzeug!
Betritt nicht den Rasen!
Lerne aus unseren bezahlten Büchern.
Konzentriere Dich!
Studiere was wir Dir vorsetzen!
Lern autofahren!
Bewirbt Dich um Arbeit und geh arbeiten!
Finde eine Wohnung!
Finde eine Freundin/einen Freund!
Hab Kinder!
Schau unsere Werbesendungen!
Mache alle Moden mit!
Vertrau auf die Regierung!
Benimmt dich standesgemäß!
Geh stets am Gehweg!
Bleib schon bei Gelb stehen!
Halte Dich stets ans Gesetz!
Spare fürs Alter!
Jammere nicht!Und jetzt sprich mir nach:
"I c h _ b i n _ f r e i !" -
Abt. Verworrdackeltes (Norddeutsch: Kunterbunt Vergeigtes)
--------------------------------------------------------------------Code
Alles anzeigenWindowtitle " Zweites Perlin-Rätsel" ' Übertragung eines C-Konstrukts nach XProfan-11 by P.Specht ' Q:Am 25.9.2016 oben rechts auf http://mrl.nyu.edu/~perlin/ ' main(k){float i,j,r,x,y=-16;while(puts(""),y++<15)for(x ' =0;x++<84;putchar(" .:-;!/>)|&IH%*#"[k&15]))for(i=k=r=0; ' j=r*r-i*i-2+x/25,i=2*r*i+y/10,j*j+i*i<11&&k++<111;r=j);} Window 0,0-%maxx,%maxy:declare i!,j!,k&,r!,y&:font 2 whileloop -16,15:y&=&Loop:whileloop 0,84:clear i!,k&,r! :while k&<111:j!=r!*r!-i!*i!-2+&Loop/25:i!=2*r!*i!+y&/12 case (j!*j!+i!*i!)>11:break:inc k&:r!=j!:endwhile print mid$(" .:;/!>)%|+Ih@ #",k& mod 16,1); endwhile:print:endwhile:waitinput
-
Abt. Midi-Fehlschläge *genier*
----------------------------------
Vorsicht, beim Hören meines 'epochalen Werkes' droht das Ohrenschmalz ranzig zu werden! Profan-11-Midifunktionen hatten eben noch einige Tücken - Das soll sich ja mit neueren Versionen deutlich verbessert haben. Gruss, und: Sorry ...P.S.: Auch Anvil Midi Studio (Freeware) ist in letzter Version noch besser geworden, man kann z.B. Gesang mehrkanalig synchronisieren!
Spoiler anzeigen
Cls: Declare p_&,m&,o&,oo&
Declare a_&,ais_&,h_&,b_&,c_&,cis_&,d_&,dis_&,e_&,f_&,fis_&,g_&,gis_&
Declare a&,ais&,h&,b&,c&,cis&,d&,dis&,e&,f&,fis&,g&,gis&
Declare a1&,ais1&,h1&,b1&,c1&,cis1&,d1&,dis1&,e1&,f1&,fis1&,g1&,gis1&
Declare a2&,ais2&,h2&,b2&,c2&,cis2&,d2&,dis2&,e2&,f2&,fis2&,g2&,gis2&
Declare k0&,k1&,k2&,k3&,k4&,k5&,k6&,k7&,k8&,k9&,k10&,k11&,k12&,k13&,k14&,k15&m&=20 : p_&=10000/120
a_&=22:ais_&=23:h_&=24:b_&=24:c_&=25:cis_&=26:d_&=27
dis_&=28:e_&=29:f_&=30:fis_&=31:g_&=32:gis_&=33proc o :parameters o& : oo&=12*o&
a&=a_&+oo&:ais&=ais_&+oo&:h&=h_&+oo&:b&=b_&+oo&
c&=c_&+oo&:cis&=cis_&+oo&:d&=d_&+oo&:dis&=dis_&+oo&
e&=e_&+oo&:f&=f_&+oo&:fis&=fis_&+oo&:g&=g_&+oo&
gis&=gis_&+oo&
a1&=a&+12:ais1&=ais&+12:h1&=h&+12:b1&=b&+12
c1&=c&+12:cis1&=cis&+12:d1&=d&+12:dis1&=dis&+12
e1&=e&+12:f1&=f&+12:fis1&=fis&+12:g1&=g&+12
gis1&=gis&+12
a2&=a1&+12:ais2&=ais1&+12:h2&=h1&+12:b2&=b1&+12
c2&=c1&+12:cis2&=cis1&+12:d2&=d1&+12:dis2&=dis1&+12
e2&=e1&+12:f2&=f1&+12:fis2&=fis1&+12:g2&=g1&+12
gis2&=gis1&+12
endprocproc play14 :parameters t&,k0&,k1&,k2&,k3&,k4&,k5&,k6&,k7&,k8&,k9&,k10&,k11&,k12&,k13&
Play k0&;k1&;k2&;k3&;k4&;k5&;k6&;k7&;k8&;k9&;k10&;k11&;k12&;k13& , 0,0
waitinput t&
Play -k0&;-k1&;-k2&;-k3&;-k4&;-k5&;-k6&;-k7&;-k8&;-k9&;-k10&;-k11&;-k12&;-k13&, 0,0
endprocproc play6 :parameters t&,k0&,k1&,k2&,k3&,k4&,k5&
Play k0&;k1&;k2&;k3&;k4&;k5& ,0,0
waitinput t&
Play -k0&;-k1&;-k2&; k3& ; -k4&;-k5&, 0,0
endprocm&=90 ' setze Instrumentierung
play m&; m&; m&; 0; m&; m&,-1,00
waitinput 200O(3)
play6 270, e1& ,0,0, 0, 0,0
play6 250, f1& ,0,0, 0, 0,0
play6 400, g1& ,0,0, 0, 0,0
play6 400, e1& ,0,0, 0, 0,0
play6 400, e1& ,0,0, 0, 0,0
play6 420, e1& ,0,0, 0, 0,0
play6 400, d1& ,0,0, 0, 0,0play6 250, d1& ,d&,0, 0, 0,0
play6 250, e1& ,e&,0, 0, 0,0
play6 400, f1& ,f&,0, 0, 0,0
play6 400, d1& ,d&,0, 0, 0,0
play6 250, a2& ,a1&,0, 0, 0,0
play6 250, a2& ,a1&,0, 0, 0,0
play6 1200, g1& ,g&,0, 0, 0,0O(2)
play6 250, e1& ,e&,g&, 0, 0,0
play6 250, f1& ,f&,a&, 0, 0,0
play6 400, g1& ,g&,c1&, 0, 0,0
play6 400, e1& ,e&,g&, 0, 0,0
play6 400, e1& ,e&,g&, 0, 0,0
play6 440, e1& ,e&,f&, 0, 0,0
play6 350, d1& ,d&,f&, 0, 0,0play6 250, d1& ,d&,f&, 0, 0,0
play6 250, e1& ,e&,g&, 0, 0,0
play6 400, f1& ,f&,a&, 0, 0,0
play6 400, b1& ,b&,d&, 0, 0,0
play6 400, b1& ,b&,d&, 0, 0,0
play6 1600, c1& ,c&,e&,88, 0,0waitinput 1000
'Funktion O(n) berechnet Tasten für 3 Oktaven ab dem n-gestrichenen C
O(0) : play6 200, c&,e&,g&, 88, c1&,e1&
play6 200, c1&,e1&,g1&, 88, c2&,e2&
O(2) : play6 200, c&,e&,g&, 88, c1&,e1&
play6 200, c1&,e1&,g1&, 88, c2&,e2&
waitinput 200
O(1) : play6 300, c&,e&,g&, 88, c1&,e1&
play6 300, c1&,e1&,g1&, 88, c2&,e2&
waitinput 200
O(3) : play6 400, c&,e&,g&, 88, c1&,e1&
play6 500, c1&,e1&,g1&, 88, c2&,e2&
waitinput 600
O(-1) : play6 1500, c&,e&,g&, 00, c1&,c2&
waitinput 5000
End -
Abt. Lonesome Ranger beim Zocken
======================
Es gibt seit 1963 eine gute Schätzformel, die eine Obergrenze für die Wahrscheinlichkeit liefert, daß man bei bekannten Mindest-, Mittel- und Höchstauszahlungen einarmiger Banditen eine Summe von mehr als dem eigenen Gesamteinsatz gewinnen kann. Man kann sich also nun seine Chancen ausrechnen.
GrussP.S.: Ich z.B. gewinne täglich - und zwar meinen Einsatz! Weil ich nicht spiele!
Code
Alles anzeigenWindowTitle "Kombinatorische Statistik - Ungleichung von Wassilij Hoeffding, USA 1963" 'Q: Wikipedia; (D) Demo 2016-09 by P.Specht, ohne jedwede Gewähr! *********** WindowStyle 24:font 0:CLS print "\n\n\n Beispiel: Wie wahrscheinlich ist es höchstens, beim n-maligen Würfeln mit" print " einem Spielwürfel eine Augensumme von mindestens x Punkten zu erreichen?" print "\n Die Berechnung erfolgt mittels der Ungleichung von Hoeffding, die besagt:" print:font 2 print " P{Sum(i=1..n,(x[i]-xm)) >= C} <= Exp(-2*sqr(C) / Sum(sqr(b[i]-a[i]))" print:font 0 print " Die Wahrscheinlickeit, daß die Summe der Abweichungen vom Mittelwert " print " bei n voneinander unabhängigen Ereignissen (z.B. Würfel-Würfe) größer als" print " eine gewählte Mindestsumme C ist, ist *jedenfalls* kleiner als der nach der " print " Hoeffding-Formel aus den quasi sicheren Grenzen a und b errechnete Wert." print "\n Hinweis: Der Wert b - a wird in der Statistik auch RANGE genannt!" font 2:print "\n [Taste] ":waitinput declare n&,E!,a!,b!,c!,du!,do!,dc!,nenn!,Res! no: Cls:Print "\n Anzahl Ereignisse (Würfe, z.B. 100) gesamt: ";:input n&:case n&<=0:goto "no" Print "\n Erwartungswert [beim Würfel u.dgl. meist das mittlere Ergebnis," Print " also (1+2+3+4+5+6)/6 = 3.5 ], Erwartungswert E = ";:input E! print "\n Quasi-sichere Untergrenze (Mit Würfeln wirft man mindestens " print " 1 Auge, daher a = 1) Untergrenze a = ";:input a! print "\n Quasi-sichere Obergrenze (Mit Würfeln wirft nie mehr als " print " 6 Augen, daher b = 6) Obergrenze b = ";:input b! cerr: print "\n Für welche Mindestsumme soll die Wahrscheinlichkeit " print " berechnet werden? (Gesamtzahl Würfe * Augen) c = ";:input c! print if (c!<(n&*a!)) or (c!>(n&*b!)) print "\n *** Fehler! Die Mindestsumme c muss im Bereich " print " [";format$("%g",a!*n&);" .. ";format$("%g",b!*n&);"] liegen!" beep:waitinput:goto "cerr" endif du!=a!-E!:do!=b!-E!:dc!=c!-n&*E!:nenn!=(n&*sqr(do!-du!)) if nenn!=0 beep:print "\n *** Fehler: Rangegrenzen zusammenfallend! ***":waitinput:goto "no" endif Res!=Exp(-2*sqr(dc!)/nenn!) print "\n\n Die Wahrscheinlickeit, daß die Summe von ";n&;" Ereignis-" print " Resultaten ";c!;" oder mehr beträgt, liegt jedenfalls unter " print "\n P = ";format$("%g",Res!) print " bzw. ";format$("%g",Res!*100);" % " waitinput : goto "no"
-
Abt. Verworrdackeltes (Norddeutsch: Kunterbunt Vergeigtes)
--------------------------------------------------------------------Code
Alles anzeigenWindowtitle " Zweites Perlin-Rätsel" ' Übertragung eines C-Konstrukts nach XProfan-11 by P.Specht ' Q:Am 25.9.2016 oben rechts auf http://mrl.nyu.edu/~perlin/ ' main(k){float i,j,r,x,y=-16;while(puts(""),y++<15)for(x ' =0;x++<84;putchar(" .:-;!/>)|&IH%*#"[k&15]))for(i=k=r=0; ' j=r*r-i*i-2+x/25,i=2*r*i+y/10,j*j+i*i<11&&k++<111;r=j);} Window 0,0-%maxx,%maxy:declare i!,j!,k&,r!,y&:font 2 whileloop -16,15:y&=&Loop:whileloop 0,84:clear i!,k&,r! :while k&<111:j!=r!*r!-i!*i!-2+&Loop/25:i!=2*r!*i!+y&/12 case (j!*j!+i!*i!)>11:break:inc k&:r!=j!:endwhile print mid$(" .:;/!>)%|+Ih@ #",k& mod 16,1); endwhile:print:endwhile:waitinput
Aber warum Berlin? Meinst du das Apfelmännchen ist genauso faszinierend wie Merkel?
-
Apfelweibchen...
Aber weil wir schon bei Quatsch sind: Hier mein (nur in Teilen gelungener) Versuch der Grenzen-Auslotung, um eine 3D-Matrix aus Integerzahlen (einmal uInt, einmal signed Int) auf den Vollbildschirm zu bekommen. Es handelt sich nicht um ein neuronales Netzwerk, aber vielleicht kann man´s dabei ja eines Tages brauchen...
GrussP.S.: Mathematica 11 verwendet jetzt Grafikkarten-Power (GPU-Rechnen), um auch mit Neuronalen Netzwerken experimentieren zu können, ohne daß einem dabei die Füße einschlafen. Zumindest die Studenten-Version scheint recht preiswert zu sein, das bekannte MemBrain dagegen ist noch immer gratis...
Code
Alles anzeigenWindowStyle 24:window 0,0-%maxx,%maxy randomize:declare z&,s&,h&,i&,j&,k& z&=9 : s&=7 : h&=5 'Zeilen, Spalten, Höhenlagen dec z&:dec s&:dec h&:declare m&[s&,z&,h&],r&,n& proc showN :parameters L& casenot L&:L&=3:var f$=mkstr$(" ",L&-1):locate 1,1:print :whileloop 0,h&:k&=&Loop:whileloop 0,z&:j&=&Loop:print " "; whileloop 0,s&:i&=&Loop:print right$(f$+str$(m&[i&,j&,k&]),L&), endwhile:print:endwhile:print:endwhile:print endproc proc showZ :parameters L& casenot L&:L&=4:var f$=mkstr$(" ",L&):locate 1,1:print :whileloop 0,h&:k&=&Loop:whileloop 0,z&:j&=&Loop:print " "; whileloop 0,s&:i&=&Loop:print right$(f$+str$(m&[i&,j&,k&]),L&);" "; endwhile:print:endwhile:print:endwhile:print endproc cls 200 whileloop 0,31:n&=&Loop locate 1,1:print n&:r&=2^n&-1 m&[]=rnd(r&) '-(&Loop=31) showN(lg(abs(r&+1))+1) waitinput 500 endwhile cls 200 whileloop 0,31:n&=&Loop locate 1,1:print n&:r&=2^n& m&[]=rnd(r&)*if(rnd()>=0.5,1,-1) showZ(lg(abs(r&))+2) waitinput 500 endwhile beep:waitinput 2000:end
-
Abt. Nobody is perfect
==============1. Man starte den Windows-eigenen Calculator (calc.exe)
2. Bitte Eintippen: 4
3. Nun die Quadratwurzel ziehen: --> 2
4. Davon 2 abziehen!
5. Staunen ...
GrussP.S.: Selbst Microsoft leidet also an den Tücken der binären Repräsentation von Floatingpoint-Zahlen!
-
Interessantes Ergebnis
Gruß Volkmar
-
Abt. Nobelpreise Chemie
==================
Weil wir da oben eine Liste der Entdeckungen in der Physik haben, dachte ich daß das auch für Chemie interessant wäre. Da ich dabei kein Fachmann bin, konnte ich keine speziellen Gruppen bilden. Eine chronologische Aufzählung scheint aber auch nicht uninteressant - also bittesehr!
GrussSpoiler anzeigen
Entdeckungen und Nobelpreise für Chemie
---------------------------------------------------------------------------------
4000 v.Chr.: Ägypten: Glas- und Keramikerzeugung, Färbemittel, Heilmittel, Gifte ("chemios")
Phönizier, Griechen, Römer nutzten und erweiterten dieses Erfahrungswissen
6. Jh v. Chr.: Aristoteles 4 Elemente-Lehre: Erde Wasser Feuer Luft
(Gegner von Demokrit, der unteilbare kleine Teile - Atome - als Grundbestandteil ansah)
8.-15. Jh. n. Chr.: Alchemie, Suche nach dem Stein der Weisen, Eisen zu Gold machen können:
Ergebnis systematischer Versuche waren Rubinglas, Pozellan, Phosphor.
16. Jh. n. Chr.: Der Arzt Paracelsus Theophrastus Bombastus von Hohenheim stellt Heilmittel her.
17. Jh. n. Chr.: Der Engländer Boyle prägt den Begriff "Element", begründet die wissenschaftliche Chemie.
Mitte 19.Jh: Mendelejew und Meyer schaffen unabh. voneinander das Periodensystem der Elemente
Erste Fabriken produzieren Schwefelsäure, Soda, Düngemittel
1890 Trennung in Anorganische und Organische Chemie (Harnsäure, Farbstoffe sh. "Blau machen")
1901 Gesetze der chemischen Dynamik und des osmotischen Druckes in Lösungen
1902 synthetische Zucker- und Puringruppen
1903 Theorie der elektrolytischen Dissoziation
1904 indifferente gasförmige Edelgase in der Luft und ihr Platz im periodischen System
1905 organische Farbstoffe und die hydroaromatischen Verbindungen
1906 Isolierung des Elements Fluor sowie Einführung des elektrischen Moissant-Ofens
1907 biochemische Untersuchungsmethoden, zellfreie Gärung
1908 Zerfall der Elemente und die Chemie der radioaktiven Stoffe
1909 Katalyse sowie chemische Gleichgewichtsverhältnisse und Reaktionsgeschwindigkeiten
1910 alicyclische Verbindungen
1911 Entdeckung von Radium und Polonium, Isolierung in metallischem Zustand
____ und deren wichtige chemische Verbindungen
1912 Grignard’sches Reagenz für Fortschritte der organischen Chemie; organische
____ Verbindungen bei Gegenwart fein verteilter Metalle hydrieren
1913 Bindungsverhältnisse der Atome im Molekül geklärt, Fortschritte der anorganischen Chemie
1914 genaue Bestimmung des Atomgewichts von zahlreichen chemischen Elementen;
____ Untersuchungen der Farbstoffe im Pflanzenreich,Chlorophyll
1918 Synthese von Ammoniak aus dessen Elementen (Haber-Bosch-Verfahren)
1920 Thermochemie, Nernstsche Gleichung
1921 Chemie der radioaktiven Stoffe; Vorkommen und Natur der Isotope
1922 Isotopen in mehreren nicht radioaktiven Elementen mit Hilfe seines Massenspektrographen;
____ Gesetz der Ganzzahligkeit
1923 Mikroanalyse organischer Substanzen
1925 heterogene Natur kolloidaler Lösungen sowie Methoden der Kolloidchemie
1926 disperse Systeme
1927 Gallensäure und verwandte Substanzen
1928 Aufbau der Sterine und Zusammenhang mit den Vitaminen
1929 Zuckervergärung, Enzyme
1930 struktureller Aufbau der Blut- und Pflanzenfarbstoffe; Synthese des Hämins
1931 chemische Hochdruckverfahren
1932 Oberflächenchemie
1934 Entdeckung des schweren Wasserstoffes
1935 weitere radioaktive Elemente
1936 Molekularstrukturen, Dipolmomente, Beugung von Röntgenstrahlen, Elektronen in Gasen
1937 Kohlenhydrate und Vitamin C; Carotinoide und Flavine sowie über die Vitamine A und B2
1938 Carotinoide und Vitamine
1939 Sexualhormone; Polymethylene und höhere Terpene
1943 Isotope als Indikatoren bei der Erforschung chemischer Prozesse
1944 Kernspaltung von Atomen
1945 Agrikultur- und Nahrungsmittelchemie, Konservierung von Futtermitteln und Futterpflanzen
1946 Kristallisierbarkeit von Enzymen; Darstellung von Enzymen und Virus-Proteinen in reiner Form
1947 biologisch wichtige Pflanzenprodukte, Alkaloide
1948 Elektrophorese und Adsorption, komplexe Natur von Serum-Proteine
1949 chemische Thermodynamik, Eigenschaften bei extrem tiefen Temperaturen“
1950 Dien-Synthese
1951 Chemie der Transurane
1952 Erfindung der Verteilungs-Chromatographie
1953 makromolekulare Chemie
1954 chemische Bindung und ihre Anwendung zur Aufhellung der Struktur komplexer Substanzen
1955 biochemisch bedeutsame Schwefelverbindungen, Synthese eines Polypeptidhormons
1956 Mechanismen chemischer Reaktionen
1957 Nukleotide und Co-Enzymnukleotide
1958 Struktur der Proteine, besonders Insulin
1959 polarographische Methode der Analyse
1960 Kohlenstoff 14 zur Altersbestimmung in Archäologie, Geologie, Geophysik, Radiokarbonmethode
1961 Kohlensäure-Assimilation der Pflanzen
1962 Struktur der Globulinproteine
1963 Technologie der Hochpolymere
1964 Strukturbestimmung biologisch wichtiger Substanzen mit Röntgenstrahlen
1965 Naturstoffsynthese
1966 chemischen Bindungen und Elektronenstruktur der Moleküle mit der Orbital-Methode
1967 extrem schnelle chemischen Reaktionen, die durch Zerstörung des Gleichgewichts
____ durch sehr kurze Energieimpulse ausgelöst werden
1968 Onsager-(reziproke) Beziehungen, grundlegend für Thermodynamik irreversibler Prozesse
1969 Konformationsbegriff und dessen Anwendung in der Chemie
1970 Zucker-Nukleotide und ihre Funktion in der Biosynthese von Kohlenhydraten
1971 Elektronenstruktur und die Geometrie bei den Molekülen, insbesondere freier Radikale
1972 Ribonuklease, Aminosäurereihen und ihre biologisch wirksamen Konformationen;
____ katalytisch aktives Zentrums der Ribonuklease-Moleküle
1973 metallorganische Sandwich-Verbindungen
1974 theoretische und experimentelle physikalische Chemie der Makromoleküle
1975 Stereochemie von Enzym-Katalyse-Reaktionen, Stereochemie organischer Moleküle und Reaktionen
1976 Struktur der Borane
1977 irreversible Thermodynamik und Theorie der ‚dissipativen Strukturen‘
1978 biologische Energieübertragung durch Entwicklung der chemiosmotischen Theorie
1979 Bor- und Phosphorverbindungen in wichtigen Reagenzien für organische Synthesen
1980 Nukleinsäure-Biochemie und Hybrid-DNA; Basensequenzen in Nukleinsäuren
1981 Verlauf chemischer Reaktionen
1982 kristallographische Verfahren zur Entschlüsselung biologisch wichtiger Nukleinsäure-Protein-Komplexe
1983 Reaktionsmechanismen der Elektronenübertragung, insbesondere bei Metallkomplexen
1984 einfache, geniale Methode zur Herstellung von Peptiden und Proteinen (Merrifield-Synthese)
1985 direkte Methoden zur Bestimmung von Kristallstrukturen
1986 Dynamik chemischer Elementarprozesse
1987 Moleküle mit strukturspezifischer Wechselwirkung von hoher Selektivität (Supramolekulare Chemie)
1988 Reaktionszentrum der Photosynthese bei einem Purpurbakterium
1989 beschleunigende Eigenschaften der Ribonukleinsäure (Ribozyme)
1990 Theorie und Entwicklung von Methoden zur organischen Synthese (Retrosynthese)
1991 hochauflösende Kernresonanzspektroskopie als Methode zur Analyse von Molekülstrukturen
1992 Theorie von Elektronentransfer-Reaktionen in chemischen Systemen (Marcus-Theorie)
1993 Polymerase-Kettenreaktion; Veränderung (Mutagenese) der Desoxyribonukleinsäure
1994 Erforschung der Carbokationen
1995 Chemie der Erdatmosphäre, Bildung und Abbau von Ozon
1996 Fullerene (Buckyballs) als neue Form des Kohlenstoffs mit kugelförmigen Molekülen
1997 Klärung der Synthese des energiereichen Moleküls Adenosintriphosphat (ATP):
____ ionentransportierendes Enzyms Natrium-Kalium-ATPase
1998 quantenchemische Methoden, mit denen die Eigenschaften von Molekülen und deren
____ Zusammenwirken theoretisch erforscht werden können
1999 Übergangszustand chemischer Reaktionen mit Hilfe der Femtosekundenspektroskopie
2000 Entwicklung von leitenden Polymeren
2001 chiral katalysierende Hydrierungsreaktionen und Oxidationsreaktionen (Sharpless-Epoxidierung)
2002 weichen Desorptions/Ionisations-Methoden für massenspektrometrische Analysen von biologischen
____ Makromolekülen; Entwicklung der kernmagnetischen Resonanzspektroskopie zur Bestimmung der
____ dreidimensionalen Struktur von biologischen Makromolekülen in Lösungen
2003 Wasserkanäle in Zellmembranen; Ionenkanäle in Zellmembranen
2004 Ubiquitin-gesteuerter Proteinabbau
2005 Metathese-Methode in der organischen Synthese
2006 molekulare Grundlagen der Gentranskription in eukaryotischen Zellen
2007 chemische Verfahren auf festen Oberflächen
2008 grün fluoreszierendes Protein als Marker
2009 Struktur und Funktion des Ribosoms
2010 Palladium-katalysierte Kreuzkupplungen in organischer Synthese
2011 Entdeckung der Quasikristalle
2012 Studien zu G-Protein-gekoppelten Rezeptoren
2013 multiskale Modelle für komplexe chemische Systeme
2014 superauflösende Fluoreszenzmikroskopie (Photoactivated Localization Microscopy, STED-Mikroskop)
2015 mechanistische DNA-Reparatur
2016 ??? (wird vergeben am 5.Okt. 2016 um 15:00 MEZ) -
Jetzt mitmachen!
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!