setq l (* 10.0 (getreal "請輸入計算跨徑(l)：\n")))
(setq f (* 10.0 (getreal "請輸入矢高(f)：\n")))
(setq g (* 10.0 (getreal "請輸入拱肋截面高(g)：\n")))
(setq n (* 10.0 (getreal "請輸入座標計算步長(n)：\n")))
(setq k (log (+ m (expt (- (* m m) 1.0) 0.5))))
(setq num (fix (/ l n)))
(setq x0 (/ l -2.0))
(command "limits" '(-2000 -1000) '(2000 1000))
(command "zoom" "w" '(-1000 -500) '(1000 500))
(command "plinewid" 0)
(command "pline")
(setq fn (getdir (findfile "xlx.lsp")))
(setq fn (open (strcat fn "\\懸鏈線座標.txt") "w"))
(write-line (strcat " 拱軸係數(m)為：" (rtos (/ m 10.0) 2 4)) fn)
(write-line (strcat " 計算跨徑(l)為：" (rtos (/ l 10.0) 2 4)) fn)
(write-line (strcat " 矢 高 (f) 為：" (rtos (/ f 10.0) 2 4)) fn)
(write-line "\n 各點座標為：" fn)
(write-line "\n 上緣座標 拱軸座標 下緣座標 水平傾角" fn)
(setq ks (/ (* 2.0 x0) l))
(setq kk (* 0.5 (+ (exp (* ks k)) (exp (* ks k -1.0)))))
(setq kk1 (* 0.5 (- (exp (* ks k)) (exp (* ks k -1.0)))))
(setq tan (atan (/ (* 2.0 f k kk1) (* l (- m 1.0)))))
(setq y (* (/ f (- 1.0 m)) (- kk 1.0)))
(setq tan1 (- (/ pi 2.0) tan))
(setq pt1 (polar (list x0 y) tan1 (/ g 2.0)))
(setq pt2 (polar (list x0 y) tan1 (/ g -2.0)))
(setq l1 (abs (* 2.0 (nth 0 pt1))))
(setq l2 (abs (* 2.0 (nth 0 pt2))))
(setq f1 (+ f (- (/ g 2.0) (- (nth 1 pt1) y))))
(setq f2 (+ f (- (- y (nth 1 pt2)) (/ g 2.0))))
(repeat (+ num 1)
(setq ks (/ (* 2.0 x0) l))
(setq kk (* 0.5 (+ (exp (* ks k)) (exp (* ks k -1.0)))))
(setq kk1 (* 0.5 (- (exp (* ks k)) (exp (* ks k -1.0)))))
(setq tan (atan (/ (* 2.0 f k kk1) (* l (- m 1.0)))))
(setq y (* (/ f (- 1.0 m)) (- kk 1.0)))
(setq gg1 (+ (/ g 2.0) (xlzby f1 l1 x0 m)))
(setq gg2 (- (/ g 2.0) (xlzby f2 l2 x0 m)))
(write-line (strcat " " (rtos (/ x0 10.0) 2 4) " " (rtos (/ gg1 10.0) 2 4) " " (rtos (/ x0 10.0) 2 4) " " (rtos (/ y 10.0) 2 4) " " (rtos (/ x0 10.0) 2 4) " " (rtos (/ gg2 10.0) 2 4) " " (rtos (/ (* tan 180.0) pi) 2 6)) fn)
(setq pt0 (list x0 y 0))
(command pt0)
(setq x0 (+ x0 n))
(if (> (abs (- l num)) 0.0001)
(progn
(setq x0 (/ l 2.0))
(setq ks (/ (* 2.0 x0) l))
(setq kk (* 0.5 (+ (exp (* ks k)) (exp (* ks k -1.0)))))
(setq kk1 (* 0.5 (- (exp (* ks k)) (exp (* ks k -1.0)))))
(setq tan (atan (/ (* 2.0 f k kk1) (* l (- m 1.0)))))
(setq y (* (/ f (- 1.0 m)) (- kk 1.0)))
(setq gg1 (+ (/ g 2.0) (xlzby f1 l1 x0 m)))
(setq gg2 (- (/ g 2.0) (xlzby f2 l2 x0 m)))
(write-line (strcat " " (rtos (/ x0 10.0) 2 4) " " (rtos (/ gg1 10.0) 2 4) " " (rtos (/ x0 10.0) 2 4) " " (rtos (/ y 10.0) 2 4) " " (rtos (/ x0 10.0) 2 4) " " (rtos (/ gg2 10.0) 2 4) " " (rtos (/ (* tan 180.0) pi) 2 6)) fn)
(setq pt0 (list x0 y 0))
(command
左手與右手
左手與右手 從 天才 想到的 我發現我們 佩服 的人往往沒能積極的影響我們，有時候反而會限制我們。由於時間或地域的分隔，一些人的成長過程我們是看不到的，但在那些成長過程不被我們看到的人們中，一定會有一些人會在某乙個方面看上去比一般人 長 一些，於是當他 她們突然出現在我們面前的時候，然後我們會被他們...
右手握左手
桌上流行一首順口溜 握著老婆的手，好像右手握左手。每當有人唸出 熟悉的或不熟悉的一桌子人便會意地放聲笑起來，氣氛立刻就輕鬆了。當然，這是基於人家對該順口溜的一致理解 感覺準確，描述到位。有一天在餐桌上有人又唸起這段順口溜，男人們照例笑得起勁。後來發現餐桌上的一位女人沒笑。男人們忙說鬧著玩別當真。沒想...
男人左手，女人右手
男人左手，女人右手。左手解釋男人，右手表達女人。有人說，愛在左，情在右，在生命的兩旁隨時播種，隨時開花。或多或少的經歷，或深或淺的愛戀，或濃或淡的情意，多少讓人懂了些說不清道不明的朦朧。青春幾度輪迴，真愛永不褪色 歲月幾度荏苒，真情亙古長存。從牛郎織女的神話傳說到梁山伯與祝英台的真實寫照 從先秦的 ...