//////////////////////////////////////////////////////////////// // // https://www.planetquantum.com/News/101022.txt // //////////////////////////////////////////////////////////////// >(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} }$