ivaneeo's blog

自由的力量，自由的生活。
  BlogJava :: 首页 :: 联系 :: 聚合  :: 管理
  669 Posts :: 0 Stories :: 64 Comments :: 0 Trackbacks

#

ruby code example(2) 
class Song
def initialize(a) #构造函数
end
end
song1 = Song.new("Ruby Tuesday")
song2 = Song.new("Enveloped in Python")
# and so on
posted @ 2006-09-12 14:29 ivaneeo 阅读(231) | 评论 (0) | 编辑 收藏

ruby code example(1) 
3.times { puts "Hello!" }

i.times {| i| ...}
Iterates the block i times. ##迭代一个闭包i次
posted @ 2006-09-12 14:27 ivaneeo 阅读(235) | 评论 (0) | 编辑 收藏

emacs jde解决和cedet的冲突
把设置:
      '(global-font-lock-mode t nil (font-lock))
        '(jde-check-version-flag nil)
就可以解决jde对cedet版本检查。
posted @ 2006-09-11 14:21 ivaneeo 阅读(636) | 评论 (0) | 编辑 收藏

在freebsd如何使用内部浏览器
实现要安装mozilla.

现在下来配置环境变量：
    
export MOZILLA_FIVE_HOME=/usr/X11R6/lib/mozilla
export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:${MOZILLA_FIVE_HOME}:${LD_LIBRARY_PATH}
或

setenv MOZILLA_FIVE_HOME /usr/X11R6/lib/mozilla

setenv LD_LIBRARY_PATH ${MOZILLA_FIVE_HOME}: ${LD_LIBRARY_PATH}


posted @ 2006-09-11 01:21 ivaneeo 阅读(669) | 评论 (0) | 编辑 收藏

转帖：无法删除dll文件？
转帖：无法删除dll文件？

高手莫笑。。（适用于XP,2003)

在论坛有时候老听网友说某某文件删不掉啊。。之类 的。而且有很多都是dll文件。虽然解决这个问题的方法有很多种。而且也可以把他删除，但是网友们有没有想过是为什么删不掉呢？？这是因为你运行的某个程 序正在调用这个dll文件。正在使用的文件是当然不可能给你删除的。那么，到底是哪个程序在调用这个dll文件呢。我教大家一个方法可以把那个程序很容易 的找出来。。

在运行里输入cmd进入命令提示符。
然后输入命令tasklist /m>c:123.txt
回车。。是不是没有任何反应？？
不要急。到C盘下面去找一找，是不是有了一个123.txt？（当然。你可以自己设定文件的输出路径，名字，甚至后缀。但要是文本文件哦。。）
打开他。里面就是目前运行的各个程序正在调用的dll文件。
把不能删除的dll文件的名字记下来。然后到记事本里去编辑-查找。输入对应的dll文件。是不是找出来了？？
找出来了后问题就好办多了。打开任务管理器。把对应的那个程序给关了。。就可以顺利删除了。。那就不必进安全模式，进DOS那么麻烦了。。。
当 然。有些应用程序是以服务形式运行的。那么你就有可能查到的是svhost.exe但是。里面有很多个哦。。这个也好办。仍然打开命令提示符。输入 tasklist /svc，当然，你也可以把他输出为文本文件，如tasklist /svc>C:234.txt。看到了吗？每个svchost.exe后面是不是对应有一个ID呢？有了ID一对照也可以知道是哪个服务了。。如果 是可关的。就关了他。。不过记住。。系统进程可别乱关哦。
posted @ 2006-09-03 18:56 ivaneeo 阅读(968) | 评论 (0) | 编辑 收藏

sin函数的递归过程
The sine of an angle (specified in radians) can be computed by making use of the approximation sinxbook-Z-G-D-20.gifx if x is sufficiently small, and the trigonometric identity
    ch1-Z-G-19.gif

to reduce the size of the argument of sin. (For purposes of this exercise an angle is considered ``sufficiently small'' if its magnitude is not greater than 0.1 radians.) These ideas are incorporated in the following procedures:
    (define (cube x) (* x x x))
    (define (p x) (- (* 3 x) (* 4 (cube x))))
    (define (sine angle)
       (if (not (> (abs angle) 0.1))
           angle
           (p (sine (/ angle 3.0)))))
posted @ 2006-07-31 15:02 ivaneeo 阅读(598) | 评论 (0) | 编辑 收藏

得到找零的方法数
有100美元需找零.
    美元中有50美分(half-dollars),25美分(quarters),10美分(dimes),5美分(nickels),1美分(pennies).
总共有多少种方式?

分成两步:
    1.计算使用50美分找零的方法数.
    2.上面数目加上除了使用50美分找零的方法数以外的数目.

(define (count-change amount)
  (cc amount 6))

(define (first-denomination kinds-of-coins)
  (cond ((= kinds-of-coins 1) 1)
    ((= kinds-of-coins 2) 2)
    ((= kinds-of-coins 3) 5)
    ((= kinds-of-coins 4) 10)
    ((= kinds-of-coins 5) 20)
    ((= kinds-of-coins 6) 50)))

(define (cc amount kinds-of-coins)
  (cond ((= amount 0) 1)
    ((or (< amount 0)
        (= kinds-of-coins 0))
     0)
    (else (+ (cc (- amount                        ;第一步
            (first-denomination kinds-of-coins))
             kinds-of-coins)
         (cc amount                               ;第二步
             (- kinds-of-coins 1))))))
posted @ 2006-07-30 15:51 ivaneeo 阅读(446) | 评论 (0) | 编辑 收藏

Fibonacci函数和递归树
Fibonacci函数定义如下:
ch1-Z-G-7.gif

(define (fib n)
  (cond ((= n 0) 0)
        ((= n 1) 1)
        (else (+ (fib (- n 1))
                 (fib (- n 2))))))
递归数如下:
ch1-Z-G-13.gif

Fib(n)非常接近book-Z-G-D-11.gifn/book-Z-G-D-13.gif5

book-Z-G-D-11.gif

同样下面的式子也成立:
ch1-Z-G-15.gif

同样使用线性迭代效率要高的多:

(define (fib n)
  (fib-iter 1 0 n))

(define (fib-iter a b count)
  (if (= count 0)
      b
      (fib-iter (+ a b) a (- count 1))))
posted @ 2006-07-30 13:59 ivaneeo 阅读(1074) | 评论 (0) | 编辑 收藏

Ackermann函数
Ackermann函数可用递推关系如下定义
　　　　A（m，0）=A（m-1，0） m=1，2，…
　　　　A（m，n）=A（m-1，A（m，n-1）） m=1，2，… n=1，2，…
　　初始条件为
　　　　A（0，n）=n+1，n=0，1，…

(define (A x y)
  (cond ((= y 0) 0)
        ((= x 0) (* 2 y))
        ((= y 1) 2)
        (else (A (- x 1)
                 (A x (- y 1))))))
posted @ 2006-07-30 13:21 ivaneeo 阅读(656) | 评论 (0) | 编辑 收藏

线性递归和迭代
关于n!求解:
1.线性递归

    ch1-Z-G-7.gif
(define (factorial n)
  (if (= n 1)
      1
      (* n (factorial (- n 1)))))
如图所示的线性的膨胀再线性的缩减,就为线性递归.

2.迭代
    ch1-Z-G-10.gif
(define (factorial n)
  (fact-iter 1 1 n))

(define (fact-iter product counter max-count)
  (if (> counter max-count)
      product
      (fact-iter (* counter product)
                 (+ counter 1)
                 max-count)))

注:试验(factorial 10000),递归堆栈溢出,而迭代则可以运行.
posted @ 2006-07-30 11:37 ivaneeo 阅读(552) | 评论 (0) | 编辑 收藏

仅列出标题
共67页: First 上一页 23 24 25 26 27 28 29 30 31 下一页 Last