- 博客(7)
- 资源 (1)
- 收藏
- 关注
原创 气功热与转基因
上世纪的气功 大潮,很多人受益,也有出偏的,跳楼的……气功师也是龙蛇混杂,到久久年轮子闹事,开始大镇压,但是没有赶尽杀绝,气功前面要加健身二字,都是健身气功了,但是也有出问题的。转基因也会如此,到时会出轮子那样的大事,然后大镇压,也不会赶尽杀绝……转基因前面要加安全二字,安全转基因但是也会出些问题的...
2020-05-17 16:55:29 157112
原创 围棋之相
围棋首先是经济,目数相当于GDP,效率相当于人均GDP。经济之上是政治,政治之上是军事。军事的出发点和终结点是经济。围棋可看成两国间经济政治军事竞争。经济学,军事学,孙子兵法,三十六计之类可以与围棋交融,相互启发。相随心起,相随心灭。围棋之相,天相,地相,人相,数学相,穷举,卷积,阴阳,五行,书法,篆刻,文法,经济,政治,军事,先琴而后棋,见高山流水棋力大涨,和谐,僵尸,求道,正统,力战,计算,感觉,禅意,内丹……围棋立相,五彩缤纷,包罗万象,象棋只能望洋兴叹!以我见为标准相,贬低它相。我宇宙,你地
2020-05-17 16:27:12 215
原创 四柱定十神delphi代码
function 定十神(某天干:T天干):string;beginif (日干.五行序数+1)mod 5=某天干.五行序数 thenbeginif Odd(日干.序数)= Odd(某天干.序数) then result:=‘食’; // 同性为食if Odd(日干.序数)<>Odd(某天干.序数) then result:=‘伤’; // 异性为伤end;if (日干.五行序数+2)mod 5=某天干.五行序数 thenbeginif Odd(日干.序数)= Odd(某
2020-05-15 10:50:02 274
原创 Delphi最简求六十花甲子纳音代码
甲1…癸10,子1…亥12function 定纳音(某天干:T天干;某地支:T地支):string;const纳音:array[1…30] of string=(‘海中金’,‘炉中火’,‘大林木’,‘路旁土’,‘剑锋金’,‘山头火’,‘涧下水’,‘城墙土’,‘白腊金’,‘杨柳木’,‘泉中水’,‘屋上土’,‘霹雷火’,‘松柏木’,‘常流水’,‘沙中金’,‘山下火’,‘平地木’,...
2020-05-05 16:33:56 220 6
原创 delphi2007中if..and..then有问题
if str=’哈哈’ and odd (h)=true then…结果乱了。加了几个括号也还是乱只好写成 if…then if…then…才正常。这个and怎么回事?
2020-05-02 16:31:52 390
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人