4月 12

【转载】If You Love Somebody

Posted on by

  • THE ORIGINAL VERSION

If you love something,
Set it free…
If it comes back, it’s yours,
If it doesn’t, it never was yours….

  • THE PESSIMIST VERSION

If you love somebody,
Set her free …
If she ever comes back, she’s yours,
If she doesn’t, well, as expected, she never was.

  • THE OPTIMIST VERSION

If you love somebody,
Set her free …
Don’t worry, she will come back.
Continue reading →

4月 12

【推荐】Wakoopa：软件与网络应用使用情况追踪服务

Posted on by

Wakoopa是一项追踪记录你的桌面软件和网络应用使用情况及趋势的互联网服务。它关注各类应用软件的使用情况， 并根据统计数据为用户推荐更好的软件，游戏以及Web应用。它拥有两个用户群体，专业人士以及娱乐人士。专业人士占60%的比例，他们一般都是软件开发 者，或者软件设计师，这部分人使用Wakoopa的目的是为了统计工作时间。娱乐人士则用它来统计与游戏和娱乐软件相关的内容。

这个服务可帮助你跟踪你电脑上的软件使用情况，包括Web软件，前提是你必须先安装一个客户端程序及注册一个帐号。它会帮助你收集你电脑上正在使用的所有 软件信息，并进行相应的分析，用列表及图形方式给出相应的报告。并且它还提供了一定的社会化功能，可以查看好友的软件使用情况，以及针对你的情况给你的推 荐相应的软件。

Continue reading →

4月 03

R与分形

Posted on by

1.

1
2
3
4
5
6
7
8
9
10
11
12
13
14

plot.tri <- function(n = 1000, col ="blue", ani=FALSE, cex=1.2){
    p <- runif(n);
    X <- rbind(rep(0, n), rep(0, n))
    B <- cbind(c(0,0),c(0.25,0.433),c(0.5,0))
    if(ani) plot(0,0,xlim=c(0,1),ylim=c(0,0.85),type="n",xlab="",ylab="")
    for(i in 2:n){
        pp <- p[i];
        ind <- rank(c(c(1/3,2/3,1), pp), ties.method="min")[4]
        X[,i] <- 0.5*X[,i-1] + B[,ind]
        if(ani) points(X[1,i], X[2,i],pch = ".", cex = 1, col = col)
    }
    if(!ani) plot(X[1,], X[2,],pch = ".", cex = cex, col = col, xlab="", ylab="")
}
plot.tri(100000, ani=TRUE)

sanjiao
Continue reading →