自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

原创 推背图预言2020年疫情

x+y=zx+y=zx+y=z

2020-05-19 16:52:12 181 0

原创 最小粒子问题

在这里插入代码片

2020-05-19 16:08:48 33 0

原创 气功热与转基因

上世纪的气功 大潮,很多人受益,也有出偏的,跳楼的…… 气功师也是龙蛇混杂,到久久年轮子闹事,开始大镇压,但是没有赶尽杀绝,气功前面要加健身二字,都是健身气功了,但是也有出问题的。 转基因也会如此,到时会出轮子那样的大事,然后大镇压,也不会赶尽杀绝…… 转基因前面要加安全二字,安全转基因但是也会出...

2020-05-17 16:55:29 53 0

原创 围棋之相

围棋首先是经济,目数相当于GDP,效率相当于人均GDP。经济之上是政治,政治之上是军事。军事的出发点和终结点是经济。围棋可看成两国间经济政治军事竞争。经济学,军事学,孙子兵法,三十六计之类可以与围棋交融,相互启发。 相随心起,相随心灭。 围棋之相,天相,地相,人相,数学相,穷举,卷积,阴阳,五行,...

2020-05-17 16:27:12 66 0

原创 科学的定义有三种

在这里插入图片描述

2020-05-17 16:15:48 72 0

原创 四柱定十神delphi代码

function 定十神(某天干:T天干):string; begin if (日干.五行序数+1)mod 5=某天干.五行序数 then begin if Odd(日干.序数)= Odd(某天干.序数) then result:=‘食’; // 同性为食 if Odd(日干.序数)<&...

2020-05-15 10:50:02 40 0

原创 Delphi最简求六十花甲子纳音代码

甲1…癸10,子1…亥12 function 定纳音(某天干:T天干;某地支:T地支):string; const 纳音:array[1…30] of string=( ‘海中金’,‘炉中火’,‘大林木’, ‘路旁土’,‘剑锋金’,‘山头火’, ‘涧下水’,‘城墙土’,‘白腊金’, ‘杨柳木’,...

2020-05-05 16:33:56 71 6

原创 delphi2007中if..and..then有问题

if str=’哈哈’ and odd (h)=true then … 结果乱了。加了几个括号也还是乱 只好写成 if…then if…then…才正常。 这个and怎么回事?

2020-05-02 16:31:52 38 0

原创 最简公历排八字的代码

有更简单的,要告诉我幺 g1…g4年干月干日干时干,z1…z4地支 甲1…癸10,子1…亥12 procedure 确定GZ1_4; begin RiQi:= trunc ( Form1.DateTimePicker1.Date ); ShiJian := frac ( Form1.DateTi...

2020-04-30 15:54:05 40 0

原创 最简四柱日上起时公式

也不用啥口诀, 时干序数=2×日干序数+时支序数-2 大于10则减10,大于20则减20 序数甲1…癸10 子1…亥12 如甲日 亥时,2×1+12-2=12 12-10=2 为乙亥时

2020-04-25 09:23:25 77 1

原创 delphi中文变量写占术程序

占术是六大国术之一,包括六爻四柱奇门遁甲六壬……用中文写这类程序,那叫一个得心应手 type T天干=record 阴阳序数:0..1; 五行序数:0..4; 序数:1..10; 十二宫之长生:1..12; 汉字,五行汉字,十神:string; end; T地支...

2020-04-21 10:24:35 48 1

原创 Delphi简介

重要版本提示: 1999 Delphi 5.0 相对完善的IDE编程。 2002 Delphi 7.0 增强的Internet开发,完善数据库支持。 CodeGear Delphi 2007 (2006年) Embarcadero Delphi 2010 (2009年) Embarcadero D...

2020-04-05 10:20:21 19 0

提示
确定要删除当前文章?
取消 删除