Oct 22, 2010 - .NET #2

Oct 22, 2010 - .NET #2

Hello, visitor to PLANETQUANTUM.COM. :-) This is my second dump of some Quantum 2010 console output onto my web site PLANETQUANTUM.COM . Here are some Quantum 2010 examples including File, Dns, SoundPlayer, DateTime, and computer algebra examples.

Most of Quantum 2010 is written in the Quantum language. However, the Quantum kernel is not written in Quantum, but something else, and since 15,000,000,000 B.C., had been written entirely in Platform SDK C. The Quantum language is evolving into a .NET language now. The current Quantum 2010 kernel is currently written in 15162 lines of C# (*.cs) and 24135 lines of C (*.cpp;*.h).

Adding .NET gives Quantum many new capabilities.

>(Setq filename "C:\\Windows\\System32\\Macromed\\Flash\\FlashInstall.log")
"C:\\Windows\\System32\\Macromed\\Flash\\FlashInstall.log"
>(Elt (File.ReadAllLines filename) 0)
"=O====== M/10.1.53.64 2010-06-18+02-58-25.510 ========"
>(File.GetCreationTime filename)
6/17/2010 7:58:27 PM
>(Setq directory (New DirectoryInfo "C:\\Temp"))
C:\Temp
>(Setq files (directory.GetFiles "*"))
[FlashInstall.log sl.planetqu Temp.cs]
>(ForEach (file files)
   (Console.WriteLine "{0} - {1}"
                      file.FullName
                      (File.GetCreationTime file.FullName)))
C:\Temp\FlashInstall.log - 10/23/2010 12:43:47 PM
C:\Temp\sl.planetqu - 10/22/2010 11:48:50 PM
C:\Temp\Temp.cs - 10/21/2010 8:30:00 PM
NULL
>(Setq file (Elt files 0))
FlashInstall.log
>file.LastAccessTime.Year
2010
>file.IsReadOnly
FALSE
----------------------------------------------------------------
>(Binomial 1000 500)
27028824094543656951561469362597527549615200844654828700739287510662542870552219
38986124839245023701653626060850215461048022097500506799175498942196995184754236
65484263751733356162464079737887344364574161119497604571044985756287880514600994
219426752366915856603136862602484428109296905863799821216320
>(StirlingS1 500 250)
18577611882061865413128352391706271264933914233162496248347470087274573555759610
15785128786393760323868831279877826101429105319262771331356932521639374791302939
96459851192753971476545530560654633709736732188615234955097976022289205816716743
39518091468257289714250058581083880354467108648230478027586554163020256246585930
10140488548517201417607626785259761930681544125795301698220660440549288215356845
40780578932215781374576936801991947338876329540822463028510416899951840799916934
63811755038856180404807279080970538691670284006868317118433344216829338096573648
88271785697248844874997932624131805575170137441892422115183768260326185413094287
36667214457173176797728018830267613761830746868283282335125761987087866805798475
799265553800779875
----------------------------------------------------------------
>Dns
System.Net.Dns
>(Setq iphostentry (Dns.GetHostByName "www.planetquantum.com"))
System.Net.IPHostEntry
>(ForEach (ipaddr iphostentry.AddressList) (Console.WriteLine ipaddr))
65.254.231.151
NULL
----------------------------------------------------------------
>(EulerE 20 X)
(+ (* -1825305870 (^ X 3)) (* -211668360 (^ X 7)) (* -2603380 (^ X 11)) (* -7752
(^ X 15)) (* -10 (^ X 19)) (* 285 (^ X 17)) (* 164730 (^ X 13)) (* 29015090 (^
X 9)) (* 900752361 (^ X 5)) (* 1109652905 X) (^ X 20))
>(BernoulliB 20 X)
(+ -174611/330 (* -68723/2 (^ X 4)) (* -223193/7 (^ X 8)) (* -4199 (^ X 12)) (*
-323/2 (^ X 16)) (* -10 (^ X 19)) (* 95/3 (^ X 18)) (* 6460/7 (^ X 14)) (* 21933
5/21 (^ X 2)) (* 41990/3 (^ X 10)) (* 45220 (^ X 6)) (^ X 20))
>(ChebyshevT 20 X)
(+ 1 (* -6553600 (^ X 14)) (* -2621440 (^ X 18)) (* -2050048 (^ X 10)) (* -84480
(^ X 6)) (* -200 (^ X 2)) (* 6600 (^ X 4)) (* 524288 (^ X 20)) (* 549120 (^ X 8
)) (* 4659200 (^ X 12)) (* 5570560 (^ X 16)))
>(ChebyshevU 20 X)
(+ 1 (* -11141120 (^ X 14)) (* -4980736 (^ X 18)) (* -3075072 (^ X 10)) (* -1098
24 (^ X 6)) (* -220 (^ X 2)) (* 7920 (^ X 4)) (* 768768 (^ X 8)) (* 1048576 (^ X
20)) (* 7454720 (^ X 12)) (* 10027008 (^ X 16)))
----------------------------------------------------------------
>(Setq path (FullPath "~\\Media\\56chevy.wav"))
"C:\\Planet Quantum\\Quantum 2010.0\\Media\\56chevy.wav"
>(Setq player (New SoundPlayer path))
System.Media.SoundPlayer
>(player.Play)
NULL
>(Setq path (FullPath "~\\Media\\cuckoo.wav"))
"C:\\Planet Quantum\\Quantum 2010.0\\Media\\cuckoo.wav"
>(Setq player (New SoundPlayer path)
)
System.Media.SoundPlayer
>(player.Play)
NULL
>(SystemSounds.Asterisk.Play)
NULL
----------------------------------------------------------------
>(SetPrecision 2000)
2000
>(EllipticPi -1.4 .9)
1.352479466171295464597446672540201212157711695192458182317894393215856806550946
37933372610275594807574574048873445161397192501615783475004243119443314480380121
93693639890381612749949073786181279250906738546469178895955965323245393793627184
08739230201907634596058347725409926080676761501015191231416956026200261464993692
26801563771360884182536640652221011463420515147690940358336211154556025373531724
58103226905676044206496758255210138824854771946267895255223311622028523278190995
08496605697260370240878765601026409945711269695151862903831295045909635267494997
4392049460437266001286529470934669506240035
>(SetPrecision 2100)
2100
>(EllipticPi -1.4 .9)
1.352479466171295464597446672540201212157711695192458182317894393215856806550946
37933372610275594807574574048873445161397192501615783475004243119443314480380121
93693639890381612749949073786181279250906738546469178895955965323245393793627184
08739230201907634596058347725409926080676761501015191231416956026200261464993692
26801563771360884182536640652221011463420515147690940358336211154556025373531724
58103226905676044206496758255210138824854771946267895255223311622028523278190995
08496605697260370240878765601026409945711269695151862903831295045909635267494997
4392049460437266001286529470934669506240035033630386289837343507243545219
>(EulerPhi 1649065448258285223757564)
824532724119200856418800
----------------------------------------------------------------
>DateTime.Now
10/22/2010 11:00:05 PM
>DateTime.Now.Year
2010
>DateTime.Now.DayOfWeek
Friday
----------------------------------------------------------------
>(TexPrint Console.Out '(= Phi (Sum (^ z i) [i 0 _Infinity])))
${\displaystyle\Phi=\sum_{i=0}^{\infty}\,z^i}$
NULL
>(TexPrint Console.Out
'(= C
    (* (^ (* 2 _Pi) (* 1/2 (+ n -1) (_ beta 2)))
       (^ n (+ (_ sigma 2) (* -1/2 (_ delta 2)) -1)))))
${\displaystyle
C=
\left(2\,\pi\right)^{\left(n-1\right)\,\beta_2/2}\,
n^{\sigma_2-\delta_2/2-1}
}$

TXT Version: 101022.txt.

Kelly Roach