两个女人对我提的意见

这段时间以来终于忙完了一部分施工图。
有时候会觉得自己已经完全找不到方向了，我也不知道是为什么。预定的方向全都失效。
两个女人对我说的话可能是正确的：
1、我是一个不坚持原则的人。
2、我的一生如果说要毁了，完全毁在我优柔寡断上。
我觉得她们两个的意思是一样的。
常说无欲则刚。而正是我内心中充满了太多的欲望，充满了太多的方向，以为什么都能把握，结果是什么都不能得到。没有原则性，不能果断地处理问题，使得人生的枝枝蔓蔓缠住了我的步伐。无数次的跌倒却依然没有改变，依然没有吸取流血的经验。
好了，先记录到这里。

是不是不存在

看不见阳光 是不是色彩就不存在

听不见歌声 是不是音乐就不存在

闻不到花香 是不是芬芳就不存在

如果 触摸不到你

心跳 是不是就不存在

失去了回忆 是不是过去就不存在

失去了方向 是不是未来就不存在

失去了生命 是不是世界就不存在

如果 我失去了你

爱情 是不是就不复存在

分

分

----发表时间：2007年10月9日 16时46分34秒

两片黑压压的乌云 即将

紧紧地握手

电影即将落幕 人群即将散尽

黄昏的蝙蝠 即将

寻找不属于自己的家

孤独的风 带走了

孤独的一片纸

弧形的水滴 即将

打破所有的宁静

会飞的种子

会飞的种子

有一天，在野外的一棵大树底下，我拾到一颗种子。
我不知道这颗种子是从哪里来的，也许是从树上落下来的，也许是风把它从遥远的地方带过来的，也许是匆匆的路人遗落下来的，也许，它就一直在那里，只是我不经意的发现而已。
一见到这颗种子，我就很喜欢它。
它有着诱人的外表，闪烁着金子般的光芒，晶莹而玲珑，圆润又如同一颗稀世之宝玉。所以我很喜欢它。
我小心翼翼地把它用一块洁白的布包起来，紧紧地揣在自己的怀中，生怕它会丢失再也找不见，我怀着无比的喜悦和极大的虔诚，把它带回了家。

这是一个春天，一个即将播种的季节，我从野外意外地拾到一颗我很喜爱的种子。我回到了家，立即买来了最贵的花盆，买来了从富饶的地方采来的土壤，买来了许许多多栽培的工具。我想看看这颗种子发芽。
一天天地过去，花朵已经盛开了，然而土壤中依然没有任何动静。
我耐心地等待着。我更加勤奋地，更加小心的培育着这个颗种子。
天气开始热起来，花儿开始谢了，很多的鸟儿又要开始迁徙了。我还是没能看到一点点要发芽的迹象，土壤静寂得可怕。
我亲自去拜访那些经验丰富的农民，我请来了技艺高超的园艺栽培师，我向知名的科学家发出了求救信。然而，这一切都是徒劳的，土壤中依然不见动静，仿佛如同我没有把那颗种子放进去。

它是存在的，我把它轻轻地取出来，我不灰心。
我仔细地看着它，看着它那诱人的样子，看着它闪闪的光芒依旧，我不能扔弃它，如同不能扔弃我的珍爱。

我想它也许不是在这个时节播下的。晚上，我凝视着它，我向它说了很多喜爱它的话，一点点，一滴滴地向它倾诉，向它表白我的情感。我就这样捂着它睡着了。在梦中，我梦见它开始发芽了。当我醒来时，我第一眼向它望去，突然发现它真的好像变大了一点。
我很高兴。我想这也许是一颗奇特的种子。
夏天的天空中总是飘荡着那些挥之不去的云，总是淅淅沥沥地下着雨，我呆在家中，唯一做的事情是注视着那颗种子，渐渐地我向它诉说我的忧愁与欢喜，向它诉说我的烦恼与快乐，把它当作最亲密的朋友，也许是最亲密的爱人。在我的梦中，它也越来越频繁地出现。我渐渐留意到这颗种子越来越大了。
这是一颗不需要水、空气、土壤和阳光的种子，需要的只是我对它的喜爱和情感。
但是我还是希望我能看到这个种子发芽，我想象着它发芽时最美丽的样子。

夏天总算过去了，我搬了家，我舍弃了很多东西，但是我不能舍弃它，因为它我的至爱。
不知不觉地，它已经有了土豆的那么大了。我一如既往地关注着它，向它说着悄悄话。它也一天天地在长大，以我不能觉察到的速度在长大。
我没有注意到旁人开始用异样的眼光看着我。我只是对它说话。我迫切地希望它能发芽。
当它已经象一颗西瓜那么大的时候，我开始有点惊讶了。但是我还是很喜欢它，每天，每时，每刻我都陪着它，甚至抱着它。晚上做梦的时候，仿佛有一双大手压着我出不过气来。

危机正在悄悄来临，而我却一无所知。
秋天的红叶曼舞，果实垂满了枝头，而我的精心培育的种子还是没有发芽。虽然它一天天地在膨胀，它在一寸寸地蚕食着我的空间。
终于有一天，它占满了我思考的位置，我把我的写字台让给了它。
渐渐地，它又占据了我休息的地方，我把我休息的地方让给了它。
它继续占领了我饮食起居的地方，我也只得把这些地方让给了它。
甚至于，它开始侵占我通行的地方，我也慢慢避让。
我对它的情感依旧，我每天还是靠着它睡，我不能舍弃它，如同舍弃我自己的生命。

终于，我感觉到已经不能呼吸，肺部仿佛被它挤压着，心脏仿佛被它堵塞着，血液仿佛被它截断了，全身的每一个细胞仿佛被它掐挤着，我梦见自己的双腿已经被它的根须所取代，双手已经被它的枝条所缠绕。我的躯体，变成了它的主干，甚至我的头，变成了它的一个硕大的肿瘤。
我有点讨厌它了。但是我还是努力地生活着，挣扎着，我还是期待着能看到它结出的美丽的果实。

冬天的阳光稀少，阴沉沉的天空中弥漫着一种绝望的伤感，冷凛的风把守着峡谷的每个出口，我总是期待着，却总是一次次地被期待的毒刺划得遍体鳞伤。
那颗种子依然没有发芽，它依然在膨胀。

我总是一次次在恶梦中惊醒，一次次梦见我已经变成了那颗种子，无休止地膨胀，无休止地把它的根须伸向每一个角落，甚至向空中攀爬它的爪牙。我开始憎恨它了，我要逃离它，却听到它滋滋生长的声音，远胜于我喘息的声音。
我已经不知道如何逃离它，不知道我是否已经化身成了那颗种子。
冬天即将过去，即将遗落一颗不能结果的种子。

每天看到自己这个德性，无言！

一个女孩曾经对我的真心表白

hi，我最爱的人，你现在还好吗？也许我现在没有权利跟你说这句话，但是如果一个人爱一个人的话，却只能埋在心里，不能交谈，不能见面，你说这又何尝不是一种可以理解的痛苦。也许你现在还很讨厌我，或者是已经把我给忘了，但是我还是很满足，我很感谢上沧，因为上苍让我们认识，相爱；虽然给过我们短暂的分离，但是又让我们重逢，这仁慈对我来说已经很足够，虽然我们已经分手了但是我会永远爱你并记着你的。人生是短暂的，在追求爱情的时候，如果没有一种理智的思维与生命的觉悟，人生将被一个巨大的阴影笼罩，这个阴影就是：情网。当你付出的爱一时没有着落时，宁愿放弃爱的收获而坚守爱的本身，因为你所爱的人正是你自己认为值得爱的人，爱一个人就是要对方幸福，所以，学着放弃自己所爱的人是因为，只是因为太爱一个人，~~~~~~~~~~~~~~~~~~~~~这就是我------对自己所爱的人说的一句心里话。如果你还记得我的话，就请记着我们以前幸福的瞬间。

[php]
;;;主程序(prompt "请输入solve命令!")
(defun C:solve (/ f x1 x2 n id err result str1 str2 str3 str4 str5)
(setq id (load_dialog "solve1.dcl"))
(if (new_dialog "dcl_solve" id)
(progn (action_tile "p1" "(setq f $value)") ;从对话框中得到表达式
(action_tile "p2" "(setq x1 $value)") ;从对话框中得到下届
(action_tile "p3" "(setq x2 $value)") ;从对话框中得到上届
(action_tile "p4" "(setq n $value)") ;从对话框中得到精度
(action_tile "help" "(choose 1)") ;帮助
(start_dialog)
(unload_dialog id)
(if (and x1 x2 n f)
(progn
(setq x1 (atof x1) x2 (atof x2) n (abs (atoi n)) n (if (> n 20) 20 n))
(setq err (vl-catch-all-apply 'zbrent (list f x1 x2 n)))
(if (vl-catch-all-error-p err)
(alert (strcat "方程无解或者" (vl-catch-all-error-message err)))
(progn
(setq str1 (car result) str2 "\n下面是求解验证结果:" str3 (cadr result) str4 (caddr result) str5 (strcat str1 str2 "\nf(" str3 ")=" str4) )
(alert str5)
(princ str5) ) ) ) ) ) )
(princ) );;;
*********************************************
;;;用Van Wijingaarden-Dekker-Brent方法求解的函数
;;;*********************************************
(defun zbrent (f x1 x2 n / a b c d e fa fb fc EPS ITMAX i xm test tol tol1 min1 min2 p q r s fra_x int_x)
(setq tol (expt 0.1 n));容差
(setq ITMAX 10000) ;最大迭代次数
(setq EPS 1e-16) ;计算机有效精度
(if (> x1 x2) ;如果下届大于上届
(setq a x2 b x1 c x1);则交换上下界
(setq a x1 b x2 c x2) )
(setq fa (func a))
(setq fb (func b))
(if (or (and (> fa 0) (> fb 0))
(and (<> fb 0) (> fc 0))
(and (<>= (abs e) tol1)
(> (abs fa) (abs fb)))
(progn (setq s (/ fb fa));将进行第二次反插
(if (equal a c 1e-16)
(setq p (* 2.0 xm s) q (- 1.0 s) )
(setq q (/ fa fc)
r (/ fb fc)
p (* s (- (* 2.0 xm q (- q r)) (* (- b a) (1- r))))
q (* (1- q) (1- r) (1- s)) ) )
(if (> p 0) (setq q (- q)));检查是否在解区间内
(setq p (abs p))
(setq min1 (- (* 3.0 xm q) (abs (* tol1 q))))
(setq min2 (abs (* e q))) (if (< (* 2.0 p) (if (<> (abs d) tol1);计算新的实验解
(setq b (+ b d))
(setq b (+ b (if (>= xm 0)(abs tol1) (- (abs tol1))))) )
(setq fb (func b)) ) ) (setq i (1+ i)) ) (setq test (func b))
(setq fra_x (rtos (- (abs b) (fix (abs b))) 2 n))
(setq fra_x (vl-string-left-trim "0" fra_x))
(setq int_x (itoa (fix b))) (if (equal test 0 1)
(setq result (strcat "\n方程" f "=0" "的解为:" int_x fra_x)
result (list result (strcat int_x fra_x) (rtos test 1 n)) )
(setq result (strcat "\n方程" f "=0" "在此区间无解")
result (list result (strcat int_x fra_x) (rtos test 1 n)) ) ))
;;;帮助说明函数
(defun choose (n)
(if (= n 1)
(alert "方程式只接受x(小写)为变量,不规范很可能出错!
\n无须写等式,例如求解x^2-2=0写作x^2-2.
\n程序采用brent方法求解,不保证每个方程都有效!
\n有什么问题email: highflybird@sina.com" )
;;(set_tile "error" "方程式只接受x(小写)为变量,无须写等式,例如求解x^2-2=0写作x^2-2.") ))
;;;用方式1定义表达式求值函数
(defun func1 (x) (arxload "geomcal.arx") (cal f))
;;;用方式2定义表达式求值函数
(defun func (x / fun vbeval)
(setq fun f)
(while (Wcmatch fun "*x*")
(setq fun (vl-string-subst (rtos x 2 20) "x" fun)) )
(vla-eval (vlax-get-acad-object) (strcat "ThisDrawing.SetVariable \"users1\",Cstr(" fun ")") ) (atof (getvar "users1")))
[/php]