tspData <- read.csv( D:\\weka\\hw\\TSP.csv , header = T, sep = , ) #tspData <- `colnames<-`(tspData,c(1:8)) D <- as.matrix(tspData) tourLength <- function(tour, distMatrix) { tour <- c(tour, tour[1]) route <- embed(tou

{N=26} STICKLINE(50,50,-50,10,0),COLORFFB900,LINETHICK7; RSVP:=(C-LLV(L,30))/(HHV(H,30)-LLV(L,30))*100-50; KV:=SMA(RSVP,3,1); DV:=SMA(KV,3,1); JV:=3*KV-2*DV; ZDZK1:=EMA(JV,6); ZDZK2:=REF(ZDZK1,1); XW1:=IF(O<=REF(O,1),0,MAX((H-O),(O-