ALGORITHMEN TEIL X: Das hat uns noch gefehlt!

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    Unsere Datenschutzerklärung wurde aktualisiert. Mit der Nutzung unseres Forums akzeptierst Du unsere Datenschutzerklärung. Du bestätigst zudem, dass Du mindestens 16 Jahre alt bist.

    • 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!
      Gruss

      Quellcode

      1. WindowTitle "Einfacher, schneller Single Precision Pseudo-Random Generator"
      2. ' Rechtliches: Teilauszug aus ACM-Algo. Nr. 359 by John Burghart
      3. ' Details und Referenzen siehe Anhang weiter unten! OHNE GEWÄHR!
      4. Cls
      5. declare seed&
      6. seed&=12345
      7. print
      8. print " SOLL 12345 0.096616 207482415"
      9. print seed&,r_uniform_01(),seed&
      10. print
      11. print " SOLL 207482415 0.833995 1790989824"
      12. print seed&,r_uniform_01(),seed&
      13. print
      14. print " SOLL 1790989824 0.947702 2035175616"
      15. print seed&,r_uniform_01(),seed&
      16. print
      17. waitinput
      18. End
      19. Proc r_uniform_01
      20. DECLARE k&,r_uniform_01! 'extern_global: seed&
      21. k& = seed& \ 127773
      22. seed&= 16807*(seed&-k&*127773)-k&*2836
      23. case seed&<0:seed&=seed&+2147483647
      24. return seed&*val("4.656612875e-10")
      25. endproc
      26. ' *******************************************************************************
      27. ' R_UNIFORM_01 returns a unit SINGLE PRECISION pseudorandom number.
      28. ' This routine implements the recursion
      29. ' seed = 16807 * seed mod (2^31-1)
      30. ' r_uniform_01 = seed/(2^31-1)
      31. ' The integer arithmetic never requires more than 32 bits including a sign bit.
      32. '
      33. ' If the initial seed is 12345, then the first three computations are
      34. ' Input Output R_UNIFORM_01
      35. ' SEED SEED
      36. ' 12345 207482415 0.096616
      37. ' 207482415 1790989824 0.833995
      38. ' 1790989824 2035175616 0.947702
      39. '
      40. ' Modified: 11 August 2004 Author: John Burkardt
      41. ' Reference:
      42. ' Paul Bratley, Bennett Fox, L E Schrage,
      43. ' A Guide to Simulation,
      44. ' Springer Verlag, pages 201-202, 1983.
      45. '
      46. ' Pierre L'Ecuyer,
      47. ' Random Number Generation,
      48. ' in Handbook of Simulation,
      49. ' edited by Jerry Banks,
      50. ' Wiley Interscience, page 95, 1998.
      51. '
      52. ' Bennett Fox,
      53. ' Algorithm 647:
      54. ' Implementation and Relative Efficiency of Quasirandom
      55. ' Sequence Generators,
      56. ' ACM Transactions on Mathematical Software,
      57. ' Volume 12, Number 4, pages 362-376, 1986.
      58. '
      59. ' P A Lewis, A S Goodman, J M Miller,
      60. ' A Pseudo-Random Number Generator for the System/360,
      61. ' IBM Systems Journal,
      62. ' Volume 8, pages 136-143, 1969.
      63. '
      64. ' Parameters:
      65. '
      66. ' Input/output, integer SEED, the "seed" value, which should NOT be 0.
      67. ' On output, SEED has been updated.
      68. '
      69. ' Output, real R_UNIFORM_01, a new pseudorandom variate,
      70. ' strictly between 0 and 1.
      71. ' Although SEED can be represented exactly as a 32 bit integer,
      72. ' it generally cannot be represented exactly as a 32 bit real number!
      Alles anzeigen
    • 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.... :top:
      Gruß Jörg

      Ideen gibt es viele - man muß sie nur haben...
      XProfan X2.1, X3.1, X4.1 - XP-Pro SP2/3 & W7-Pro 64 - Mint Mate, AntiX
    • 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!
      Gruss

      Brainfuck-Quellcode

      1. WindowTitle "Resonanzfrequenzen mechanischer Träger, dynamische Masse, Steifigkeit etc."
      2. '{Übersetzung aus Fortran-90 nach XProfan 11.2a (Demo) 2016-09 by P.Specht,Vienna.at
      3. ' Quelle: http://jean-pierre.moreau.pagesperso-orange.fr/Fortran/beam1_f90.txt
      4. ' *******************************************************************************
      5. ' * Resonance Frequencies of a bending beam *
      6. ' * - Modal Mass and Stiffness *
      7. ' * - Deformation modes and Maximum Strain *
      8. ' * --------------------------------------------------------------------------- *
      9. ' * --------------------------------------------------------------------------- *
      10. ' * REFERENCE: "Mécanique des vibrations linéaires By M. Lalanne, *
      11. ' * P. Berthier, J. Der Hagopian, Masson, Paris 1980" *
      12. ' * *
      13. ' * F90 Release By J-P Moreau, Paris. *
      14. ' * (www.jpmoreau.fr) *
      15. ' *******************************************************************************
      16. ' NOTE: For a bending beam of constant section S, the deviation v(x) is given
      17. ' by:
      18. ' EI d4v/dx4 + rho*S d2v/dt2 - Tex = 0 (1)
      19. ' where:
      20. ' E = Young's modulus of beam material (steel: 2E11 Pa)
      21. ' I = Moment of inertia of S (rectangle: B*H^3/12)
      22. ' rho = Volumic Mass (steel: 7800 kg/m3)
      23. ' Tex = External force per length unit
      24. ' x = beam abscissa from x=0 to x=L
      25. '
      26. ' d4v/dx4: 4th partial derivative with respect to x,
      27. ' d2v/dt2: 2nd partial derivative with respect to time, t.
      28. '
      29. ' We seek solutions of v(x,t) having the form: v(x) * f(t). This leads to solving
      30. '
      31. ' d2f(t)/dt2 + w2 f(t) = 0 (2)
      32. ' and
      33. ' d4v(x)/dx4 - rho.S/(EI) w2 v(x) = 0 (3)
      34. ' with
      35. ' w = pulsation of force excitation
      36. '
      37. ' The solution of (2) has the form: f(t) = A sin(wt) + B cos(wt) (4)
      38. ' The solution of (3) is obtained by considering v(x) = V e^rx (5)
      39. '
      40. ' the characreristic equation of which is: r^4 - rho.S w2 /(EI) = 0 (6)
      41. '
      42. ' The complex roots of (6) are: beta, -beta, j.beta and -j.beta, with
      43. '
      44. ' beta = 4th Root of (rho.s w2 / (EI)) (7)
      45. '
      46. ' From (5) and the the 4 complex roots of (6), we can write:
      47. '
      48. ' v(x) = C sin(beta.x) + D cos(beta.x) + E sh(beta.x) + F ch(beta.x) (8)
      49. '
      50. ' The resonance pulsations are given by: wn = Xn^2 /L^2 * sqrt(EI/(rho.S)) (9)
      51. '
      52. ' The Xn values are presented below for various limit conditions:
      53. '
      54. ' Limit Conditions X1^2 X2^2 X3^2 X4^2 X5^2
      55. ' -----------------------------------------------------------------------
      56. ' Fixed-free: 1+ch(X)*cos(X)=0 3.516 22.03 61.69 120.9 199.8
      57. ' Sup.-Sup.: sin(X)=0 9.869 39.47 88.82 157.9 246.7
      58. ' Fixed-Fixed or Free-Free:
      59. ' 1 - ch(X) cos(X) = 0 22.37 61.67 120.9 199.8 298.5
      60. ' Fixed-Sup. or Free-Sup.:
      61. ' tan(X) = tanh(X) 15.41 49.96 104.2 178.2 272.0
      62. ' -----------------------------------------------------------------------
      63. '
      64. ' The max. strain is given by: sigma = E * H/2 * d2vi(x) / dx2
      65. '
      66. '}-------------------------------------------------------------------------------
      67. 'PROGRAM BEAM1
      68. 'IMPLICIT REAL*8 A-H, O-Z
      69. declare i&,j&,k&,l&,m&,n& 'Integer Families: i j k l m n
      70. Declare I1!,I2!,L!,L0!,J!,K1!,M1! 'REAL*8 I1,I2,L,L0,J,K1,M1
      71. Declare ans$,A1![5],X![25]
      72. Declare pi!,e!,R!,A!,B!,H!,S!,B1!,B2!,O1!,O2!,C!,C1!,C2!,D!,S1!,S2!
      73. Declare T!,T1!,T2!,T3!,T4!,T5!,T6!,T7!,T8!,W!,Y!,Z!,P!,F!,N1&,N2&
      74. REPEAT
      75. CLS
      76. print " "
      77. PRINT " Fixed-Free Beam, M=1"
      78. PRINT " Fixed-Supported, M=2"
      79. PRINT " Fixed-Fixed, M=3"
      80. PRINT " Free-Free, M=4"
      81. PRINT " Free-Supported, M=5"
      82. PRINT " Supported-Supported, M=6"
      83. print " "
      84. Print " Input Limit Conditions: M= ";:Input M&
      85. Print " "
      86. Pi! = Pi()
      87. If M&=1
      88. A1![1] = 3.5160152
      89. A1![2] = 22.034491
      90. A1![3] = 61.697214
      91. A1![4] = 120.90191
      92. A1![5] = 199.85953
      93. ElseIf (M&=2) OR (M&=5)
      94. A1![1] = 15.418205
      95. A1![2] = 49.964862
      96. A1![3] = 104.24769
      97. A1![4] = 178.26972
      98. A1![5] = 272.03097
      99. ELSEIF (M&=3) OR (M&=4)
      100. A1![1] = 22.373285
      101. A1![2] = 61.672822
      102. A1![3] = 120.90339
      103. A1![4] = 199.85944
      104. A1![5] = 298.55553
      105. ELSEIF (M&=6)
      106. A1![1] = 9.8696044
      107. A1![2] = 39.478417
      108. A1![3] = 88.826439
      109. A1![4] = 157.91367
      110. A1![5] = 246.74011
      111. EndIF
      112. PRINT " "
      113. Print " Young's Modulus: ";:Input E! ' Elastizitätsmodul (Material des Trägers)
      114. PRINT " "
      115. Print " Volumic Mass : ";:Input R! ' Massendichte
      116. Print " "
      117. Print " Beam Width ... : ";:Input B! ' Breite
      118. Print " Beam Thickness : ";:Input H! ' Dicke
      119. Print " Beam Length .. : ";:Input L! ' Länge
      120. PRINT " "
      121. Print " "
      122. J! = B!*H!*H!*H!/12 ' Moment of Inertia (Statisches Trägheitsmoment)
      123. S! = B!*H! ' Section (Querschnitsfläche)
      124. Whileloop 5:i&=&Loop
      125. B1! = Sqrt(A1![I&])
      126. F! = A1![I&] / (2 * Pi! *L!*L!) * Sqrt(E!*J!/R!/S!)
      127. Print " Frequency (Hz) = ",F! ' Eigenfrequenz des Trägers
      128. EndWhile
      129. PRINT " "
      130. Print " Do you want the modes, modal masses & Stiffnesses (y/n): ";:Input ans$
      131. Case Left$(Upper$(Ans$),1)="N":BREAK
      132. Print " "
      133. Print " How many modes (Maximum 5): ";:Input n1& ' Zu berechnende Oberwellen
      134. Print " "
      135. print " How many points for deviation, slope & max. strain (max. 25): ";:Input n2&
      136. PRINT " "
      137. Print " Do you want automatic divisions (y/n): ";:Input ans$
      138. ' sollen die (Last-)Teilstücke automatisch errechnet werden?
      139. ' Wenn nein: Einzeleingabe der Teilstücke
      140. If Ans$="n"
      141. WhileLoop N2&:i&=&Loop
      142. print " X(",I&,") = ";:Input ans$ ':::::i2 ?
      143. X![i&]=Val(ans$)
      144. EndWhile
      145. ELSE
      146. L0! = L!/(N2&-1)
      147. X![1] = 0
      148. WhileLoop 2,n2&:i&=&Loop
      149. X![I&]=X![I&-1]+L0!
      150. EndWhile
      151. EndIf
      152. WhileLoop n1&:i&=&Loop
      153. B1!= SQRT(A1![I&])
      154. B2!= B1!/L!
      155. O1!= Cos(B1!):I1!=Sin(B1!)
      156. O2!= Cos(2*B1!):I2!=Sin(2*B1!)
      157. C1!= (Exp(B1!) + Exp(-1*B1!))/2
      158. S1!= (Exp(B1!) - Exp(-1*B1!))/2
      159. C2!= (Exp(2*B1!) + Exp(-2*B1!))/2
      160. S2!= (Exp(2*B1!) - EXP(-2*B1!))/2
      161. A! = 1
      162. IF M&=1
      163. B!= -(I1!+ S1!) / (O1! + C1!)
      164. C! = -1
      165. D! = -B!
      166. ElseIf (M&=2) OR (M&=3)
      167. B!= (-I1! + S1!) / (O1! - C1!)
      168. C!= -1
      169. D!= -B!
      170. ELSEIF (M&=4)
      171. B! = (I1! - S1!) / (-1*O1! + C1!)
      172. C!= 1
      173. D!= B!
      174. ELSEIF (M&=5)
      175. B!= -(I1! + S1!) / (O1! + C1!)
      176. C!= 1
      177. D!= B!
      178. ElseIf (M&=6)
      179. B!=0
      180. C!=0
      181. D!=0
      182. EndIF
      183. T1! = A!*A!/2 * (L! - 1/2/B2! * I2!)
      184. T2! = B!*B!/2 * (L! + I2!/2/B2!)
      185. T3! = C!*C!/2 * (S2!/2/B2! - L!)
      186. T4! = D!*D!/2 * (S2!/2/B2! + L!)
      187. T5! = A!*B!/2/2/B2!*(1-O2!)
      188. T6! = C!*D!/2/2/B2!*(C2!-1)
      189. T7! = EXP(B1!) / 2 / 2 / B2! * (A! * C! + A! * D!) * (I1! - O1!)
      190. T7! = T7! + EXP(-B1!) / 2 / 2 / B2! * (A!* D!- A!* C!) * (I1! + O1!)
      191. T7! = T7!+ A!* C!/ 2 / B2!
      192. T8! = Exp(B1!) / 2 / 2 / B2! * (B! * C! + B! * D!) * (I1! + O1!)
      193. T8! = T8!+ EXP(-B1!) / 2 / 2 / B2!* (B!* D!- B!* C!) * (I1! - O1!)
      194. T8! = T8! - B! * C! / 2 / B2!
      195. T! = T1! + T2! + T3! + T4! + T5! + T6! + T7! + T8!
      196. M1! = R!* S!* T!
      197. K1! = M1! *B2!*B2!*B2!*B2! * E! *H!*H! /12/R!
      198. W! = Sqrt(K1! / M1!)
      199. F! = W!/2/Pi!
      200. PRINT " "
      201. Print " MODE #",I1!
      202. PRINT " ----------"
      203. PRINT " "
      204. print " OMEGA=", W!,"FREQUENCY=",F!
      205. PRINT " "
      206. PRINT " Modal Mass=", M1!, " Modal Stiffness=", K1!
      207. PRINT " "
      208. PRINT " X Deviation Slope Strain (x 10^6) "
      209. PRINT " -------------------------------------------------"
      210. WhileLoop n2&:k&=&Loop
      211. Z!= X![K&]
      212. I1! = Sin(B2!*Z!): O1! = Cos(B2!* Z!)
      213. S1! = (EXP(B2!* Z!) - EXP(-B2! * Z!)) / 2
      214. C1! = (EXP(B2!* Z!) + EXP(-B2!* Z!)) / 2
      215. Y!= A!* I1!+ B!* O1!+ C!* S1!+ D!* C1!
      216. P!= B2!* (A!* O1!- B!* I1! + C! * C1! + D! * S1!)
      217. M1! = B2!*B2! * (-A! * I1! - B! * O1! + C! * S1! + D! * C1!)
      218. M1! = E! * H! * M1! / 2
      219. Print " ";Z!, Y!, P!, M1!
      220. EndWhile
      221. print " "
      222. WaitInput
      223. EndWhile
      224. Beep:WaitInput:CLS
      225. UNTIL 0
      226. Print "\n--------------------------- END ---------------------------------------"
      227. Beep:Waitinput 4000
      228. END ' of file beam1.prf
      Alles anzeigen

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von p. specht ()

    • P.S.: Hier die Testdaten des F90-Originalprogramms zum Vergleich:

      Brainfuck-Quellcode

      1. SAMPLE RUN:
      2. Fixed-Free Beam, M=1
      3. Fixed-Supported, M=2
      4. Fixed-Fixed, M=3
      5. Free-Free, M=4
      6. Free-Supported, M=5
      7. Supported-Supported, M=6
      8. Limit Conditions, M= 3
      9. Young Modulus: 2E11
      10. Volumic Mass.: 7800
      11. Beam Width....: 0.4
      12. Beam Thickness: 0.5
      13. Beam Length...: 10
      14. Frequency (Hz) = 26.025373
      15. Frequency (Hz) = 71.739944
      16. Frequency (Hz) = 140.638973
      17. Frequency (Hz) = 232.483361
      18. Frequency (Hz) = 347.290041
      19. Do you want the modes, modal masses & Stiffnesses (y/n): y
      20. How many modes (Maximum 5): 5
      21. How many points for deviation, slope & max. strain: 11
      22. Do you want automatic divisions (y/n): y
      23. MODE #1
      24. -------
      25. OMEGA= 163.5222 FREQUENCY= 26.0254
      26. Modal Mass= 5.40002743637149E+0006 Modal Stiffness= 1.44394161046433E+0011
      27. X Deviation Slope Strain (x10^6)
      28. ------------------------------------------------
      29. 0.0000 0.0000 0.0000 22771.74
      30. 1.0000 0.1925 0.3498 12232.17
      31. 2.0000 0.6304 0.4927 2225.41
      32. 3.0000 1.1155 0.4494 -6194.01
      33. 4.0000 1.4814 0.2635 -11846.94
      34. 5.0000 1.6164 0.0000 -13841.17
      35. 6.0000 1.4814 -0.2635 -11846.94
      36. 7.0000 1.1155 -0.4494 -6194.01
      37. 8.0000 0.6304 -0.4927 2225.41
      38. 9.0000 0.1925 -0.3498 12232.17
      39. 10.0000 -0.0000 -0.0000 22771.74
      40. MODE #2
      41. -------
      42. OMEGA= 450.7554 FREQUENCY= 71.7399
      43. Modal Mass= 1.64384471757779E+009 Modal Stiffness= 3.33997017195899E+014
      44. X Deviation Slope Strain (x10^6)
      45. ------------------------------------------------
      46. 0.0000 0.0000 0.0000 61624.92
      47. 1.0000 0.4554 0.7516 14015.32
      48. 2.0000 1.2058 0.6202 -24480.45
      49. 3.0000 1.5043 -0.0778 -40796.43
      50. 4.0000 1.0338 -0.8261 -29766.62
      51. 5.0000 0.0000 -1.1411 -0.00
      52. 6.0000 -1.0338 -0.8261 29766.62
      53. 7.0000 -1.5043 -0.0778 40796.43
      54. 8.0000 -1.2058 0.6202 24480.46
      55. 9.0000 -0.4554 0.7516 -14015.31
      56. 10.0000 -0.0000 0.0000 -61624.92
      57. MODE #3
      58. -------
      59. OMEGA= 883.6607 FREQUENCY= 140.6390
      60. Modal Mass= 6.30221918268558E+011 Modal Stiffness= 4.92112747787204E+017
      61. X Deviation Slope Strain (x10^6)
      62. ------------------------------------------------
      63. 0.0000 0.0000 0.0000 120907.45
      64. 1.0000 0.7701 1.1128 -6282.87
      65. 2.0000 1.5079 0.1215 -77726.96
      66. 3.0000 0.8687 -1.2982 -47991.93
      67. 4.0000 -0.6284 -1.3976 39638.73
      68. 5.0000 -1.4060 -0.0000 85988.24
      69. 6.0000 -0.6284 1.3976 39638.73
      70. 7.0000 0.8687 1.2982 -47991.92
      71. 8.0000 1.5079 -0.1215 -77726.96
      72. 9.0000 0.7701 -1.1128 -6282.87
      73. 10.0000 -0.0000 -0.0000 120907.44
      74. MODE #4
      75. -------
      76. OMEGA=1460.7360 FREQUENCY= 232.4834
      77. Modal Mass= 2.62456494665287E+014 Modal Stiffness= 5.60016486006314E+020
      78. X Deviation Slope Strain (x10^6)
      79. ------------------------------------------------
      80. 0.0000 0.0000 0.0000 199859.15
      81. 1.0000 1.0745 1.2736 -58760.62
      82. 2.0000 1.3192 -0.9913 -120007.61
      83. 3.0000 -0.4227 -1.9219 45103.94
      84. 4.0000 -1.3935 0.3075 139911.06
      85. 5.0000 -0.0000 1.9969 0.02
      86. 6.0000 1.3935 0.3075 -139911.05
      87. 7.0000 0.4227 -1.9219 -45103.98
      88. 8.0000 -1.3192 -0.9913 120007.59
      89. 9.0000 -1.0745 1.2736 58760.66
      90. 10.0000 -0.0000 0.0000 -199859.09
      91. MODE #5
      92. -------
      93. OMEGA=2182.0877 FREQUENCY= 347.2900
      94. Modal Mass= 1.14990481414791E+017 Modal Stiffness= 5.47527941977509E+023
      95. X Deviation Slope Strain (x10^6)
      96. 0.0000 0.0000 0.0000 298555.55
      97. 1.0000 1.3218 1.1293 -144271.18
      98. 2.0000 0.6736 -2.2318 -91130.35
      99. 3.0000 -1.3394 -0.7648 201616.08
      100. 4.0000 -0.2202 2.4118 33178.41
      101. 5.0000 1.4146 0.0000 -211057.80
      102. 6.0000 -0.2202 -2.4118 33178.38
      103. 7.0000 -1.3394 0.7648 201616.09
      104. 8.0000 0.6736 2.2318 -91130.32
      105. 9.0000 1.3218 -1.1293 -144271.20
      106. 10.0000 -0.0000 -0.0000 298555.50
      Alles anzeigen
    • Abt. Physik-Überblick
      =============
      Falls Euch die Themen zum Programmieren ausgehen, hier ein paar interessante Betätigungsfelder.
      Gruss
      Spoiler 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 Reibungsphysik


      Thermodynamik
      -------------
      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ürme


      Physikalische 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äre


      Elektrotechnik
      --------------
      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ärenz


      Materialwissenschaften
      ----------------------
      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üssigkeiten


      Kosmologie
      -----------
      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
      Gravitationswellen

      Kernphysik
      ----------
      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 neutrinos
      P.S.: Ab 1880 sind hier alle Physik-Nobelpreise berüchsichtigt, davor nur ganz wichtige Erkenntnisse :-)

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von p. specht ()

    • Abt. Nie wieder hässliche Bildschirmschoner!
      ============================
      Verdammt... schon passiert!
      Gruss

      Quellcode

      1. Windowtitle " A b s t r a k t o r":Windowstyle 24
      2. randomize:Window 0,0 - %maxx,%maxy:cls 0
      3. var xh&=width(%hwnd)\4:var yh&=height(%hwnd)\2
      4. line 0,yh& - 2*xh&,yh&:line xh&,0 - xh&,2*yh&
      5. declare x1!,x2!,x3!,x4!,a!,b!,c!,d!
      6. x1!=1.2:x2!=1:x3!=1:a!=1:b!=0.03:c!=0.09:d!=1/pi()
      7. repeat
      8. x4!=x1!*sin(A!*x3!+B!)+sin(C!*x2!+D!)
      9. usepen 0,x4!,rgb(100*x3!,100*x2!,100*x1!)
      10. line xh&+128*x3!,(128*x2!) - xh&+128*x3!+1,128*x2!
      11. if rnd()<0.002
      12. d!=Pi()*rnd()-0.2
      13. a!=Pi()*rnd()-0.5
      14. b!=Pi()*rnd()
      15. c!=Pi()*rnd()
      16. waitinput 42
      17. case rnd()<0.005:cls 0
      18. endif
      19. x1!=x2!:x2!=x3!:x3!=x4!
      20. until %key>0:end
      Alles anzeigen
    • 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).
      Gruss

      Quellcode

      1. WindowTitle " GENERAL-MIDI SOUND COMPATIBILITY TESTER"
      2. WindowStyle 24:randomize:font 2
      3. cls
      4. Declare tmp$[],Group$[],Drums$[],i&,j&
      5. 'goto "skip"
      6. Goto "GetInfo"
      7. Main:
      8. whileloop 0,sizeof(tmp$[])-1:i&=&Loop
      9. clear group$[]:group$[]=explode(tmp$[i&],",")
      10. cls:locate 2,2:print group$[0];
      11. whileloop sizeof(group$[])-1:j&=&Loop
      12. locate 4,4:print group$[j&];" "
      13. Play val(group$[j&])-1, -1 ,0
      14. Play 45,3,0
      15. endwhile
      16. endwhile
      17. Sound 2000,200
      18. waitinput 2000
      19. skip:
      20. Goto "GetDrumInfo"
      21. PlayDrums:
      22. whileloop 0,sizeof(tmp$[])-1:i&=&Loop
      23. clear Drums$[]:Drums$[]=explode(tmp$[i&],",")
      24. cls:locate 2,2:print Drums$[0];
      25. whileloop sizeof(Drums$[])-1:j&=&Loop
      26. locate 4,4:print Drums$[j&];" "
      27. Play 0;0;0;val(Drums$[j&])+1,0,0
      28. waitinput 50
      29. Play 0;0;0;val(Drums$[j&])+1,0,0
      30. waitinput 150
      31. Play 0;0;0;val(Drums$[j&])+1,0,0
      32. waitinput 1000
      33. endwhile
      34. endwhile
      35. Sound 1000,50
      36. waitinput 200
      37. Sound 1000,400
      38. print "\n\n E N D E "
      39. waitinput
      40. END
      41. GetInfo:
      42. clear tmp$[]
      43. tmp$[]=explode(\
      44. \
      45. "Piano:,"+\
      46. "1 Acoustic_Grand_Piano,"+\
      47. "2 Bright_Acoustic_Piano,"+\
      48. "3 Electric_Grand_Piano,"+\
      49. "4 Honky-tonk_Piano,"+\
      50. "5 Electric_Piano_1,"+\
      51. "6 Electric_Piano_2,"+\
      52. "7 Harpsichord,"+\
      53. "8 Clavi|"+\
      54. \
      55. "Chromatic_Percussion:,"+\
      56. "9 Celesta,"+\
      57. "10 Glockenspiel,"+\
      58. "11 Music_Box,"+\
      59. "12 Vibraphone,"+\
      60. "13 Marimba,"+\
      61. "14 Xylophone,"+\
      62. "15 Tubular_Bells,"+\
      63. "16 Dulcimer|"+\
      64. \
      65. "Organ:,"+\
      66. "17 Drawbar_Organ,"+\
      67. "18 Percussive_Organ,"+\
      68. "19 Rock_Organ,"+\
      69. "20 Church_Organ,"+\
      70. "21 Reed_Organ,"+\
      71. "22 Accordion,"+\
      72. "23 Harmonica,"+\
      73. "24 Tango_Accordion|"+\
      74. \
      75. "Guitar:,"+\
      76. "25 Acoustic_Guitar_(nylon),"+\
      77. "26 Acoustic_Guitar_(steel),"+\
      78. "27 Electric_Guitar_(jazz),"+\
      79. "28 Electric_Guitar_(clean),"+\
      80. "29 Electric_Guitar_(muted),"+\
      81. "30 Overdriven_Guitar,"+\
      82. "31 Distortion_Guitar,"+\
      83. "32 Guitar_harmonics|"+\
      84. \
      85. "Bass:,"+\
      86. "33 Acoustic_Bass,"+\
      87. "34 Electric_Bass_(finger),"+\
      88. "35 Electric_Bass_(pick),"+\
      89. "36 Fretless_Bass,"+\
      90. "37 Slap_Bass_1,"+\
      91. "38 Slap_Bass_2,"+\
      92. "39 Synth_Bass_1,"+\
      93. "40 Synth_Bass_2|"+\
      94. \
      95. "Strings:,"+\
      96. "41 Violin,"+\
      97. "42 Viola,"+\
      98. "43 Cello,"+\
      99. "44 Contrabass,"+\
      100. "45 Tremolo_Strings,"+\
      101. "46 Pizzicato_Strings,"+\
      102. "47 Orchestral_Harp,"+\
      103. "48 Timpani|"+\
      104. \
      105. "Ensemble:,"+\
      106. "49 String_Ensemble_1,"+\
      107. "50 String_Ensemble_2,"+\
      108. "51 Synth_Strings_1,"+\
      109. "52 Synth_Strings_2,"+\
      110. "53 Voice_Aahs,"+\
      111. "54 Voice_Oohs,"+\
      112. "55 Synth_Voice,"+\
      113. "56 Orchestra_Hit|"+\
      114. \
      115. "Brass:,"+\
      116. "57 Trumpet,"+\
      117. "58 Trombone,"+\
      118. "59 Tuba,"+\
      119. "60 Muted_Trumpet,"+\
      120. "61 French_Horn,"+\
      121. "62 Brass_Section,"+\
      122. "63 Synth_Brass_1,"+\
      123. "64 Synth_Brass_2|"+\
      124. \
      125. "Reed:,"+\
      126. "65 Soprano_Sax,"+\
      127. "66 Alto_Sax,"+\
      128. "67 Tenor_Sax,"+\
      129. "68 Baritone_Sax,"+\
      130. "69 Oboe,"+\
      131. "70 English_Horn,"+\
      132. "71 Bassoon,"+\
      133. "72 Clarinet|"+\
      134. \
      135. "Pipe:,"+\
      136. "73 Piccolo,"+\
      137. "74 Flute,"+\
      138. "75 Recorder,"+\
      139. "76 Pan_Flute,"+\
      140. "77 Blown_Bottle,"+\
      141. "78 Shakuhachi,"+\
      142. "79 Whistle,"+\
      143. "80 Ocarina,"+\
      144. \
      145. "Synth_Lead:,"+\
      146. "81 Lead_1_(square),"+\
      147. "82 Lead_2_(sawtooth),"+\
      148. "83 Lead_3_(calliope),"+\
      149. "84 Lead_4_(chiff),"+\
      150. "85 Lead_5_(charang),"+\
      151. "86 Lead_6_(voice),"+\
      152. "87 Lead_7_(fifths),"+\
      153. "88 Lead_8_(bass_+_lead)|"+\
      154. \
      155. "Synth_Pad:,"+\
      156. "89 Pad_1_(new_age),"+\
      157. "90 Pad_2_(warm),"+\
      158. "91 Pad_3_(polysynth),"+\
      159. "92 Pad_4_(choir),"+\
      160. "93 Pad_5_(bowed),"+\
      161. "94 Pad_6_(metallic),"+\
      162. "95 Pad_7_(halo),"+\
      163. "96 Pad_8_(sweep)|"+\
      164. \
      165. "Synth_Effects:,"+\
      166. "97 FX_1_(rain),"+\
      167. "98 FX_2_(soundtrack),"+\
      168. "99 FX_3_(crystal),"+\
      169. "100 FX_4_(atmosphere),"+\
      170. "101 FX_5_(brightness),"+\
      171. "102 FX_6_(goblins),"+\
      172. "103 FX_7_(echoes),"+\
      173. "104 FX_8_(sci-fi)|"+\
      174. \
      175. "Ethnic:,"+\
      176. "105 Sitar,"+\
      177. "106 Banjo,"+\
      178. "107 Shamisen,"+\
      179. "108 Koto,"+\
      180. "109 Kalimba,"+\
      181. "110 Bagpipe,"+\
      182. "111 Fiddle,"+\
      183. "112 Shanai|"+\
      184. \
      185. "Percussive:,"+\
      186. "113 Tinkle_Bell,"+\
      187. "114 Agogo_Bells,"+\
      188. "115 Steel_Drums,"+\
      189. "116 Woodblock,"+\
      190. "117 Taiko_Drum,"+\
      191. "118 Melodic_Tom,"+\
      192. "119 Synth_Drum,"+\
      193. "120 Reverse_Cymbal|"+\
      194. \
      195. "Sound_effects:,"+\
      196. "121 Guitar_Fret_Noise,"+\
      197. "122 Breath_Noise,"+\
      198. "123 Seashore,"+\
      199. "124 Bird_Tweet,"+\
      200. "125 Telephone_Ring,"+\
      201. "126 Helicopter,"+\
      202. "127 Applause,"+\
      203. "128 Gunshot" ,"|")
      204. Goto "Main"
      205. GetDrumInfo:
      206. clear tmp$[]:tmp$[]=explode(\
      207. "Drumkits_Kanal_4-Note:,"+\
      208. "1 Standard_Kit,"+\
      209. "9 Room_Kit,"+\
      210. "17 Power_Kit,"+\
      211. "25 Electronic_Kit,"+\
      212. "26 TR-808_Kit,"+\
      213. "33 Jazz_Kit,"+\
      214. "41 Brush_Kit,"+\
      215. "49 Orchestra_Kit,"+\
      216. "57 Sound_FX_Kit,"+\
      217. "128 Percussion|"+\
      218. \
      219. "Perkussionsklänge_Kanal4:,"+\
      220. "35 Bass_Drum_2,"+\
      221. "36 Bass_Drum_1,"+\
      222. "37 Side_Stick,"+\
      223. "38 Snare_Drum_1,"+\
      224. "39 Hand_Clap,"+\
      225. "40 Snare_Drum_2,"+\
      226. "41 Low_Tom_2,"+\
      227. "42 Closed_Hi-hat,"+\
      228. "43 Low_Tom_1,"+\
      229. "44 Pedal_Hi-hat,"+\
      230. "45 Mid_Tom_2,"+\
      231. "46 Open_Hi-hat,"+\
      232. "47 Mid_Tom_1,"+\
      233. "48 High_Tom_2,"+\
      234. "49 Crash_Cymbal_1,"+\
      235. "50 High_Tom_1,"+\
      236. "51 Ride_Cymbal_1,"+\
      237. "52 Chinese_Cymbal,"+\
      238. "53 Ride_Bell,"+\
      239. "54 Tambourine,"+\
      240. "55 Splash_Cymbal,"+\
      241. "56 Cowbell,"+\
      242. "57 Crash_Cymbal_2,"+\
      243. "58 Vibra|"+\
      244. \
      245. "Slap:,"+\
      246. "59 Ride_Cymbal_2,"+\
      247. "60 High_Bongo,"+\
      248. "61 Low_Bongo,"+\
      249. "62 Mute_High_Conga,"+\
      250. "63 Open_High_Conga,"+\
      251. "64 Low_Conga,"+\
      252. "65 High_Timbale,"+\
      253. "66 Low_Timbale,"+\
      254. "67 High_Agogo,"+\
      255. "68 Low_Agogo,"+\
      256. "69 Cabasa,"+\
      257. "70 Maracas,"+\
      258. "71 Short_Whistle,"+\
      259. "72 Long_Whistle,"+\
      260. "73 Short_Guiro,"+\
      261. "74 Long_Guiro,"+\
      262. "75 Claves,"+\
      263. "76 High_Wood_Block,"+\
      264. "77 Low_Wood_Block,"+\
      265. "78 Mute_Cuica,"+\
      266. "79 Open_Cuica,"+\
      267. "80 Mute_Triangle,"+\
      268. "81 Open_Triangle" ,"|")
      269. Goto "PlayDrums"
      Alles anzeigen
    • 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:

      Quellcode

      1. WindowTitle "Sondertest: Profan-spezifische Midi-Drumarten"
      2. var t&=200
      3. cls
      4. Play 0;0;0;27,0,0 : waitinput t&
      5. Play 0;0;0;28,0,0 : waitinput t&
      6. Play 0;0;0;29,0,0 : waitinput t&
      7. Play 0;0;0;30,0,0 : waitinput t&
      8. Play 0;0;0;31,0,0 : waitinput t&
      9. Play 0;0;0;32,0,0 : waitinput t&
      10. Play 0;0;0;33,0,0 : waitinput t&
      11. Play 0;0;0;34,0,0 : waitinput t&
      12. print:print 35:Play 0;0;0;35,0,0 : waitinput t&
      13. print:print 36:Play 0;0;0;36,0,0 : waitinput t&
      14. print:print 78:Play 0;0;0;78,0,0 : waitinput t&
      15. print:print 79:Play 0;0;0;79,0,0 : waitinput t&
      16. Play 0;0;0;80,0,0 : waitinput t&
      17. Play 0;0;0;81,0,0 : waitinput t&
      18. Play 0;0;0;82,0,0 : waitinput t&
      19. Play 0;0;0;83,0,0 : waitinput t&
      20. Play 0;0;0;84,0,0 : waitinput t&
      21. Play 0;0;0;85,0,0 : waitinput t&
      22. Play 0;0;0;86,0,0 : waitinput t&
      23. Play 0;0;0;87,0,0 : waitinput t&
      24. print:print 88:Play 0;0;0;88,0,0 : waitinput t&
      25. waitinput 3000
      Alles anzeigen
    • 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)
      --------------------------------------------------------------------

      Quellcode

      1. Windowtitle " Zweites Perlin-Rätsel"
      2. ' Übertragung eines C-Konstrukts nach XProfan-11 by P.Specht
      3. ' Q:Am 25.9.2016 oben rechts auf http://mrl.nyu.edu/~perlin/
      4. ' main(k){float i,j,r,x,y=-16;while(puts(""),y++<15)for(x
      5. ' =0;x++<84;putchar(" .:-;!/>)|&IH%*#"[k&15]))for(i=k=r=0;
      6. ' j=r*r-i*i-2+x/25,i=2*r*i+y/10,j*j+i*i<11&&k++<111;r=j);}
      7. Window 0,0-%maxx,%maxy:declare i!,j!,k&,r!,y&:font 2
      8. whileloop -16,15:y&=&Loop:whileloop 0,84:clear i!,k&,r!
      9. :while k&<111:j!=r!*r!-i!*i!-2+&Loop/25:i!=2*r!*i!+y&/12
      10. case (j!*j!+i!*i!)>11:break:inc k&:r!=j!:endwhile
      11. print mid$(" .:;/!>)%|+Ih@ #",k& mod 16,1);
      12. endwhile:print:endwhile:waitinput
      Alles anzeigen

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von p. specht ()

    • 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_&=33


      proc 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
      endproc


      proc 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
      endproc


      proc 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
      endproc

      m&=90 ' setze Instrumentierung
      play m&; m&; m&; 0; m&; m&,-1,00
      waitinput 200

      O(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,0


      play6 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,0


      O(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,0

      play6 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,0

      waitinput 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.
      Gruss

      P.S.: Ich z.B. gewinne täglich - und zwar meinen Einsatz! Weil ich nicht spiele! ;-)

      Quellcode

      1. WindowTitle "Kombinatorische Statistik - Ungleichung von Wassilij Hoeffding, USA 1963"
      2. 'Q: Wikipedia; (D) Demo 2016-09 by P.Specht, ohne jedwede Gewähr! ***********
      3. WindowStyle 24:font 0:CLS
      4. print "\n\n\n Beispiel: Wie wahrscheinlich ist es höchstens, beim n-maligen Würfeln mit"
      5. print " einem Spielwürfel eine Augensumme von mindestens x Punkten zu erreichen?"
      6. print "\n Die Berechnung erfolgt mittels der Ungleichung von Hoeffding, die besagt:"
      7. print:font 2
      8. print " P{Sum(i=1..n,(x[i]-xm)) >= C} <= Exp(-2*sqr(C) / Sum(sqr(b[i]-a[i]))"
      9. print:font 0
      10. print " Die Wahrscheinlickeit, daß die Summe der Abweichungen vom Mittelwert "
      11. print " bei n voneinander unabhängigen Ereignissen (z.B. Würfel-Würfe) größer als"
      12. print " eine gewählte Mindestsumme C ist, ist *jedenfalls* kleiner als der nach der "
      13. print " Hoeffding-Formel aus den quasi sicheren Grenzen a und b errechnete Wert."
      14. print "\n Hinweis: Der Wert b - a wird in der Statistik auch RANGE genannt!"
      15. font 2:print "\n [Taste] ":waitinput
      16. declare n&,E!,a!,b!,c!,du!,do!,dc!,nenn!,Res!
      17. no:
      18. Cls:Print "\n Anzahl Ereignisse (Würfe, z.B. 100) gesamt: ";:input n&:case n&<=0:goto "no"
      19. Print "\n Erwartungswert [beim Würfel u.dgl. meist das mittlere Ergebnis,"
      20. Print " also (1+2+3+4+5+6)/6 = 3.5 ], Erwartungswert E = ";:input E!
      21. print "\n Quasi-sichere Untergrenze (Mit Würfeln wirft man mindestens "
      22. print " 1 Auge, daher a = 1) Untergrenze a = ";:input a!
      23. print "\n Quasi-sichere Obergrenze (Mit Würfeln wirft nie mehr als "
      24. print " 6 Augen, daher b = 6) Obergrenze b = ";:input b!
      25. cerr:
      26. print "\n Für welche Mindestsumme soll die Wahrscheinlichkeit "
      27. print " berechnet werden? (Gesamtzahl Würfe * Augen) c = ";:input c!
      28. print
      29. if (c!<(n&*a!)) or (c!>(n&*b!))
      30. print "\n *** Fehler! Die Mindestsumme c muss im Bereich "
      31. print " [";format$("%g",a!*n&);" .. ";format$("%g",b!*n&);"] liegen!"
      32. beep:waitinput:goto "cerr"
      33. endif
      34. du!=a!-E!:do!=b!-E!:dc!=c!-n&*E!:nenn!=(n&*sqr(do!-du!))
      35. if nenn!=0
      36. beep:print "\n *** Fehler: Rangegrenzen zusammenfallend! ***":waitinput:goto "no"
      37. endif
      38. Res!=Exp(-2*sqr(dc!)/nenn!)
      39. print "\n\n Die Wahrscheinlickeit, daß die Summe von ";n&;" Ereignis-"
      40. print " Resultaten ";c!;" oder mehr beträgt, liegt jedenfalls unter "
      41. print "\n P = ";format$("%g",Res!)
      42. print " bzw. ";format$("%g",Res!*100);" % "
      43. waitinput : goto "no"
      Alles anzeigen
    • p. specht schrieb:

      Abt. Verworrdackeltes (Norddeutsch: Kunterbunt Vergeigtes)
      --------------------------------------------------------------------

      Quellcode

      1. Windowtitle " Zweites Perlin-Rätsel"
      2. ' Übertragung eines C-Konstrukts nach XProfan-11 by P.Specht
      3. ' Q:Am 25.9.2016 oben rechts auf http://mrl.nyu.edu/~perlin/
      4. ' main(k){float i,j,r,x,y=-16;while(puts(""),y++<15)for(x
      5. ' =0;x++<84;putchar(" .:-;!/>)|&IH%*#"[k&15]))for(i=k=r=0;
      6. ' j=r*r-i*i-2+x/25,i=2*r*i+y/10,j*j+i*i<11&&k++<111;r=j);}
      7. Window 0,0-%maxx,%maxy:declare i!,j!,k&,r!,y&:font 2
      8. whileloop -16,15:y&=&Loop:whileloop 0,84:clear i!,k&,r!
      9. :while k&<111:j!=r!*r!-i!*i!-2+&Loop/25:i!=2*r!*i!+y&/12
      10. case (j!*j!+i!*i!)>11:break:inc k&:r!=j!:endwhile
      11. print mid$(" .:;/!>)%|+Ih@ #",k& mod 16,1);
      12. endwhile:print:endwhile:waitinput
      Alles anzeigen
      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...
      Gruss

      P.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...

      Quellcode

      1. WindowStyle 24:window 0,0-%maxx,%maxy
      2. randomize:declare z&,s&,h&,i&,j&,k&
      3. z&=9 : s&=7 : h&=5 'Zeilen, Spalten, Höhenlagen
      4. dec z&:dec s&:dec h&:declare m&[s&,z&,h&],r&,n&
      5. proc showN :parameters L&
      6. casenot L&:L&=3:var f$=mkstr$(" ",L&-1):locate 1,1:print
      7. :whileloop 0,h&:k&=&Loop:whileloop 0,z&:j&=&Loop:print " ";
      8. whileloop 0,s&:i&=&Loop:print right$(f$+str$(m&[i&,j&,k&]),L&),
      9. endwhile:print:endwhile:print:endwhile:print
      10. endproc
      11. proc showZ :parameters L&
      12. casenot L&:L&=4:var f$=mkstr$(" ",L&):locate 1,1:print
      13. :whileloop 0,h&:k&=&Loop:whileloop 0,z&:j&=&Loop:print " ";
      14. whileloop 0,s&:i&=&Loop:print right$(f$+str$(m&[i&,j&,k&]),L&);" ";
      15. endwhile:print:endwhile:print:endwhile:print
      16. endproc
      17. cls 200
      18. whileloop 0,31:n&=&Loop
      19. locate 1,1:print n&:r&=2^n&-1
      20. m&[]=rnd(r&) '-(&Loop=31)
      21. showN(lg(abs(r&+1))+1)
      22. waitinput 500
      23. endwhile
      24. cls 200
      25. whileloop 0,31:n&=&Loop
      26. locate 1,1:print n&:r&=2^n&
      27. m&[]=rnd(r&)*if(rnd()>=0.5,1,-1)
      28. showZ(lg(abs(r&))+2)
      29. waitinput 500
      30. endwhile
      31. beep:waitinput 2000:end
      Alles anzeigen
    • 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 ...
      Gruss

      P.S.: Selbst Microsoft leidet also an den Tücken der binären Repräsentation von Floatingpoint-Zahlen!
    • 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!
      Gruss
      Spoiler 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)

      Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von p. specht ()