getKDJ<-function(rt,n){ l=length(rt[["Chg"]]) K=array(0,c(l-n+1)) D=array(0,c(l-n+1)) J=array(0,c(l-n+1)) daycount=0 for(i in n:l){ daycount=daycount+1 nlow=rt[["Low"]][i] nhigh=rt[["High"]][i] for(j in 0:(n-1)){ if(rt[["Low"]][i-j]nhigh)
        nhigh=rt[["High"]][i-j]
    }
    nRSV=100*(rt[["Call"]][i]-nlow)/(nhigh-nlow)
    if(daycount==1){
      K[daycount]=(2/3)*50+(1/3)*nRSV
      D[daycount]=(2/3)*50+(1/3)*K[daycount]
    }else{
      K[daycount]=(2/3)*K[daycount-1]+(1/3)*nRSV
      D[daycount]=(2/3)*D[daycount-1]+(1/3)*K[daycount]
    }
    J[daycount]=3*D[daycount]-2*K[daycount]
  }
  dates=as.Date(rt[["Date"]][n:l])
  minvalue=min(min(K),min(D),min(J))
  maxvalue=max(max(K),max(D),max(J))
  minlab=floor((minvalue-10)/10)*10
  maxlab=floor((maxvalue+20)/10)*10
  plot(dates,K,type="l",col = "blue",ylab="KDJ",ylim=c(minlab,maxlab),yaxt="n",lwd=2)
  axis(side=2,at=seq(minlab,maxlab,10),cex.axis=0.8,tck=1)
  lines(dates,D,type="l",col = "red",lwd=2)
  lines(dates,J,type="l",col = "orangered4",lwd=2)
  legend("bottomright",c("K","D","J"), col =c("blue","red","orangered4"),lty=c(1,1,1))
  return(list(K,D,J))
}
rt=read.table("SM1209.txt", header=TRUE)
n=9
KDJ=getKDJ(rt,n)
K=KDJ[[1]]
D=KDJ[[2]]
J=KDJ[[3]]

Disclaimer: The information on this website is for general informational purposes only and is not intended as a recommendation or an offer or solicitation for the purchase or sale of any security, currency, investment, service or to attract any funds or deposits. Save to the extent provided otherwise in the Terms and Conditions for Accounts and Services or other applicable terms and conditions, information in this website has been prepared without taking account of the objectives, financial situation or needs of any particular investor. Therefore, investment products mentioned in this website may not be suitable for all investors. Any person considering an investment should seek independent advice on the suitability or otherwise of a particular investment. Before making any investment, each investor must obtain the investment offering materials, which include a description of the risks, fees and expenses and the performance history, if any, which may be considered in connection with making an investment decision. Each investor should carefully consider the risks associated with the investment and make a determination based upon the investor’s own particular circumstances, that the investment is consistent with the investor’s investment objectives.