祜冖B3的个人资料

自编天文软件大家有没有自己编写的天文软件，来这里分享一下。我先来一个http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fpan.baidu.com%2Fs%2F1hsBz5QW&urlrefer=fb21c552d80c6ea6f267f879634abc22 模拟太阳系各行星运动，可以控制飞船在太阳系中飞行，体验名种变轨操作。可自己创造各种各样的星球。

自编天文软件分享大家有没有自己编写的天文软件，来这里分享一下。我先来一个

今天的金星和水星今天的金星和水星

今天同时看到了五行难得有个晴天，五行的位置又刚好都能看到

个旧今天下的不是雪是霰个旧今天下的不是雪是霰

〖16-01-17〗有比打乱的吗？魔方比赛都是比的还原，有比打乱的吗？打乱成指定的图案

这个规则有点复杂不太好玩

几种js网页版的生命游戏 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1bnuapzD&urlrefer=9a8e042e7c6c7b3a12d5fb0a0469500a 6是我改的规则，用隔空的方格模拟六角生命游戏

我自己的软件做的我自己的软件做的据我的研究，那些色彩很漂亮的部分并不是集合的本体，只有黑色的与原图相似的部分才是

单蚂蚁跑出图形的一种方法

双蚂蚁的有趣玩法双蚂蚁一起跑很容易形成循环，可以用来产生你想要的图形，下面发两个示范。

发个以前写的原先用QBASIC写的，后改为VBS。很简单，只是来凑个热闹 http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fpan.baidu.com%2Fs%2F1sjoa8bj&urlrefer=6882dcb81fee513ecc842d8559734bfd

这个合理吗？个旧市“中山路11-13号、17号、19号” 旧房改造工程项目房屋征收补偿方案（征求意见稿）http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Fwww.xdjs.gov.cn%2Ftypenews.asp%3Fid%3D3127&urlrefer=eb0e27344e774c4e592a3acad1ca4c3b

找人陪游版纳开完会，明天想去版纳一游，一个人又觉得没意思，有没有一起去的，15126113891

过两天我要来普洱不知道佤鑫大酒店好不好找，网上一说在茶苑路46号，一说在茶城大道46号，不知是哪里

个旧到普洱怎么坐车

哪套卡好各种卡组

哪个卡组最好？

目前哪张卡最贵？我不知道

你们最爱哪张卡我爱南北

大家玩内测试区！！！啊啊啊啊大家玩内测试区！！！他那个可拿全卡2套银票是金币！到20级共送6000啊全卡有5X的啊快拿来内测啊！！

谁亮亮积分吧谁亮亮积分吧我有！！！！！！！！！！！！ 450200 = =买卡买完了杯具啊诶

2013.10.4 今天上五1线烂了坑啊全掉了。。。会不会再烂

能不能做一个开放系统就是用一个相对独立的区域，代表一颗行星，再远处不断地射入一些滑翔机，代表阳光，是否有可能在行星上产生有序结构。

不如想想暗物质与暗能量爱幻想的人们，不如想想暗物质与暗能量，这个现在连科学家也还不了解，完全可以尽情想象，说不定谁的想法还真就对了。

有界还是无界看到好多程序都是有边界的，而我第一次编写时就是无边界的，也就是左边界和右边界连起来，上边界和下边界连起来，这样演化起来会有很大不同，不知哪种比较好？

有没有安桌的生命游戏想要一个

手机上“：”在bochs里变成了“>”，中文也打不了，怎么解决？手机上“：”在bochs里变成了“>”，中文也打不了，怎么解决？

刚刚用95开星际争霸出现开始画面了，但半个小时还进不去

Adv_Fighter心虚了他老删我的回复，说明他心虚了，他不敢让人看看是我说的对还是他说的对

关于黑森广播如果罗辑诅咒的那颗星有个神级文明，他们能应付吗？如果神级文明不怕黑森打击，则不存在黑。如果神级文明也怕黑森打击，则一个有广播能力的低级文明也可以通过广播来消灭一个神级文明。那么所有有广播能力的低级文明是不是都可以到处乱发广播，以期能消灭其他神级文明，毕竟发广播的成本是很低的。如果歌者文明与边缘文明互相广播对方坐标会怎样？

是不是依闪偶然抬头，看见天顶附近一颗移动的亮星，亮度超过木星，在一分钟之内逐渐变暗直到消失。时间19:18，地点：云南个旧。

科幻大牛应该多想想暗物质与暗能量多维空间与平行宇宙的概念主要是从数学上推导出来的，现实宇宙中并未观察到，虽有完善的数学模型，却没实在性，近似玄幻。而暗物质与暗能量则是从实际宇宙的观察中推测出来的，比较有实在性，只是没有可用的数学模型，写起来可能比较困难，需要数学幻想，但也就有了更多的幻想空间。科学发展就是这样，有时数学领先于物理，数学理论很完备了，却没有对应的物理实在，有时是物理上有了新的发现，却没有合适的数学理论来描述，对后一种情况的科幻应该更有意义。

当二向箔遇到黑洞从维度上看，二向箔只是二维，黑洞是0维，二向箔进入黑洞同样不能逃逸。但也要考虑大小，当二向箔的箔面积大于黑洞视界面积，则黑洞进入二向箔，成为二维空间里的黑洞，反之二向箔进入黑洞，落入奇点。因些，二向箔也不是多厉害的武器，可以用大黑洞轻松吞掉。

写AI遇到问题学写AI遇到一个问题，我已经把建造的比例设得很高了，但为什么村民还总在采集，很少去建造

金星凌日时我们这里的人却都在看日晕

为什么永动机不能成功任何永动机至少都能找到一个不会动的平衡状态，从任何一个不平衡状态开始，由于摩擦力的作用，最终都会停止在这个状态。

世纪广场前来了好多警察世纪广场前来了好多**、警车，不知是干什么

刚看了水星西方山头上，应该是的

有白天看金星合月的吗中午我看到了。

时钟 Dim [背景](60, 20),[数字](10) Dim fso, f,wShell Set [显示]=CreateObject("Wscript.Shell") [数字](0)="████████████" [数字](1)="█████" [数字](2)="███████████" [数字](3)="███████████" [数字](4)="█████████" [数字](5)="███████████" [数字](6)="████████████" [数字](7)="███████" [数字](8)="█████████████" [数字](9)="████████████" [数字](10)="██" Do Until [窗口]=vbNo For j = 0 TO 20 For i = 0 TO 60 [背景](i,j)="" Next:Next [显示时间]="现在时间是："&chr(10) [时间]=time:if mid([时间],2,1)=":" then [时间]="0"&[时间] [时1]=eval(mid([时间],1,1)):[显数] [数字]([时1]),0 [时2]=eval(mid([时间],2,1)):[显数] [数字]([时2]),4 [显数] [数字](10),7 [分1]=eval(mid([时间],4,1)):[显数] [数字]([分1]),10 [分2]=eval(mid([时间],5,1)):[显数] [数字]([分2]),14 [显数] [数字](10),17 [秒1]=eval(mid([时间],7,1)):[显数] [数字]([秒1]),20 [秒2]=eval(mid([时间],8,1)):[显数] [数字]([秒2]),24 For j = 0 TO 4 For i = 0 TO 27 [显示时间]=[显示时间]&[背景](i,j) Next [显示时间]=[显示时间]&chr(10) Next [显示时间]=[显示时间]&[时间]&"继续吗？" [窗口]=[显示].Popup ([显示时间],1,"时钟",259) Loop sub [显数]([数],[位置]) for k = 0 to 4 for l = 0 to 2 [背景]([位置]+l,k)=mid([数],3*k+l+1,1) Next:Next End Sub 嫌电脑上的时钟字太小，做了个大的，只是只能显示在屏幕正中，要怎样放到其它位置？

永动机不能实现并不是因为能量守恒定理很多人连因果关系都不知道，就一味地认为是能量守恒定理阻碍永动机的发明，其实能量守恒定理只是科学家通过无数科学实验总结出来的一个规律，真正否定永动机的是科学实验，无数科学家做了无数的科学实验最终才证实了永动机不可能实现的，本吧里的所有永动机设想其实都是有很多前人试验过不能成功的。实践才是检验真理的唯一标准。

有玩地道战的吗难得有这样的题材

FC有即时战略游戏吗? 有类似PC的《帝国时代》《星际争霸》这类型的吗？

有玩《塞外奇侠传》的吗前几天下到的，极少数能在我手机上玩的RPG，不是很有趣，过场文字显示太快，来不及看清楚，整天跑路很烦，不过在手机上随时可掏出来玩一下，现在卡住了，找不到方家集。

找一个游戏界面和《铁鹰战士 III - 终极空战》一样，但可以双人对打，分成上下两个窗口。

怎样读取摄像头的图像数据有这样的函数吗？

电脑一次下两子电脑下围棋的水平比人脑差很多，但如果让电脑一次下两子，不知人脑的胜算如何

一个移字符游戏多年前玩了个移火柴棍的游戏，用学习机上的BASIC编程解出了移法，今天翻出来改成VBS，都不知道那些参数当初是怎么算出来的了，好在结果是对的。 [移字符]="一个移字符游戏" & chr(10) [移字符]=[移字符] & "N个A与N个B交错排列" & chr(10) [移字符]=[移字符] & "每次只能把相邻的两个字符移动到空位处" & chr(10) [移字符]=[移字符] & "只移动N次使A和B各自排到一边" & chr(10) [移字符]=[移字符] & "输入字符数N（20以内）" n=InputBox([移字符], "移字符",0): IF n < 3 THEN msgbox "无解":wscript.quit W = 2 * n + 2 DIM B(20), K(20), P(1764), c(20) K(0) = W - 1: FOR i = 1 TO 2 * n STEP 2 P(i) = 65 P(i + 1) = 66 NEXT P(W - 1) = 32 P(W) = 32 X = 0 [字符]="" FOR J = 1 TO W [字符]=[字符] & chr(P(X * W + J)) NEXT [字符]=[字符] & X & chr(10) IF n = 3 THEN msgbox [字符] & "ABA BBA 1" & chr(10) & " AABBBA 2" & chr(10) & " BBBAAA 3":wscript.quit A = INT(n / 4) - 2 bb = n mod 4 IF A >= 0 THEN FOR i = 0 TO A B(2 * i) = 2 + 4 * i B(2 * i + 1) = 2 * n - 3 - 4 * i B(n - 2 * i - 2) = 2 * n - 4 * i B(n - 2 * i - 1) = 1 + 4 * i NEXT end if if bb = 0 then c(1) = 2: c(2) = 5: c(3) = 8: c(4) = 1 if bb = 1 then c(1) = 2: c(2) = 7: c(3) = 4: c(4) = 10: c(5) = 1 if bb = 2 then c(1) = 2: c(2) = 5: c(3) = 10: c(4) = 6: c(5) = 12: c(6) = 1 if bb = 3 then c(1) = 2: c(2) = 9: c(3) = 6: c(4) = 11: c(5) = 5: c(6) = 14: c(7) = 1 FOR i = 1 TO bb + 4 B(2 * A + 1 + i) = c(i) + 4 * (A + 1) NEXT FOR pp = 0 TO n - 1 q = pp + 1 FOR J = 1 TO W P(q * W + J) = P(pp * W + J) NEXT A = K(pp) i = B(pp) K(q) = i P(W * q + i) = 32 P(W * q + i + 1) = 32 P(q * W + A) = P(pp * W + i) P(q * W + A + 1) = P(pp * W + i + 1) X = q FOR J = 1 TO W [字符]=[字符] & chr(P(X * W + J)) NEXT [字符]=[字符] & X & chr(10) NEXT msgbox [字符]

VBS如何输出Unicode编码的字符 VBS如何输出Unicode编码的字符

在地址栏执行的代码 JS的代码可以直接在地址栏执行，VBS的可以吗