搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  Binomial Pricing Trees in R.pdf
资料下载链接地址: https://bbs.pinggu.org/a-1750857.html
附件大小:
608.23 KB   举报本内容
  1. # Generate a binomial lattice
  2. # for a given up, down, start value and number of steps
  3. genlattice <- function(X0=100, u=1.1, d=.75, N=5) {
  4. X <- c()
  5. X[1] <- X0
  6. count <- 2

  8. for (i in 1:N) {
  9. for (j in 0:i) {
  10. X[count] <- X0 * u^j * d^(i-j)
  11. count <- count + 1
  12. }
  13. }
  14. return(X)
  15. }
复制代码
  1. genlattice(N=5, u=1.1, d=.9)
复制代码
  1. function(S, labels=FALSE) {
  2. shape <- ifelse(labels == TRUE, "plaintext", "point")

  4. cat("digraph G {", "\n", sep="")
  5. cat("node[shape=",shape,", samehead, sametail];","\n", sep="")
  6. cat("rankdir=LR;","\n")

  8. cat("edge[arrowhead=none];","\n")

  10. # Create a dot node for each element in the lattice
  11. for (i in 1:length(S)) {
  12. cat("node", i, "[label=\"", S[i], "\"];", "\n", sep="")
  13. }

  15. # The number of levels in a binomial lattice of length N
  16. # is `$\frac{\sqrt{8N+1}-1}{2}[code]# Generate a binomial lattice
  17. # for a given up, down, start value and number of steps
  18. genlattice <- function(X0=100, u=1.1, d=.75, N=5) {
  19. X <- c()
  20. X[1] <- X0
  21. count <- 2

  23. for (i in 1:N) {
  24. for (j in 0:i) {
  25. X[count] <- X0 * u^j * d^(i-j)
  26. count <- count + 1
  27. }
  28. }
  29. return(X)
  30. }
复制代码
  1. genlattice(N=5, u=1.1, d=.9)
复制代码

  1. L <- ((sqrt(8*length(S)+1)-1)/2 - 1)

  3. k<-1
  4. for (i in 1:L) {
  5. tabs <- rep("\t",i-1)
  6. j <- i
  7. while(j>0) {
  8. cat("node",k,"->","node",(k+i),";\n",sep="")
  9. cat("node",k,"->","node",(k+i+1),";\n",sep="")
  10. k <- k + 1
  11. j <- j - 1
  12. }
  13. }

  15. cat("}", sep="")
  16. }
复制代码


[hide][/hide]


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2026-1-12 05:27