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)
2702882409454365695156146936259752754961520084465482870073928751066254287055221938986124839245023701653626060850215461048022097500506799175498942196995184756548426375173335616246407973788734436457416111949760457104498575628788051460099421942675236691585660313686260248442896905863799821216320
>(StirlingS1 500 250)
18577611882061865413128352391706271264933914233162496248347470087274573555759610157851287863937603238688312798778261014291053192627713313569325216393747913029399645985119275397147654553056065463370973673218861523495509797602228920581671674339518091468257289714250058581083880354467108648230478027586554163020256246585930101404885485172014176076267852597619306815441257953016982206604405492882153568454078057893221578137457693680199194733887632954082246302851041689995184079991693463811755038856180404807279080970538691670284006868317118433344216829338096573648882717856972488448749979326241318055751701374418924221151837682603261854130942873666721445717317679772801883026761376183074686828328233512576198799265553800779875
----------------------------------------------------------------
>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)) (* 219335/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)) (* -109824 (^ 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.3524794661712954645974466725402012121577116951924581823178943932158568065509463793337261027559480757457404887344516139719250161578347500424311944331448038012193693639890381612749949073786181279250906738546469178895955965323245393793627184087392302019076345960583477254099260806767615010151912314169560262002614649936922680156377136088418253664065222101146342051514769094035833621115455602537353172458103226905676044206496758255210138824854771946267895255223311622028523278190995084966056972603702408787656010264099457112696951518629038312950459096352674949974392049460437266001286529470934669506240035
>(SetPrecision 2100)
2100
>(EllipticPi -1.4 .9)
1.3524794661712954645974466725402012121577116951924581823178943932158568065509463793337261027559480757457404887344516139719250161578347500424311944331448038012193693639890381612749949073786181279250906738546469178895955965323245393793627184087392302019076345960583477254099260806767615010151912314169560262002614649936922680156377136088418253664065222101146342051514769094035833621115455602537353172458103226905676044206496758255210138824854771946267895255223311622028523278190995084966056972603702408787656010264099457112696951518629038312950459096352674949974392049460437266001286529470934669506240035033630386289837343507243545219
>(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. |
|
Oct 22, 2010 - .NET #2
|
Hello, visitor to PLANETQUANTUM.COM.This is my second dump
of some Quantum 2010 console output onto my website PLANETQUANTUM.COM . Here are
some Quantum 2010 examples including File, Dns, SoundPlayer, DateTime, and computer
algebra examples.