Форум программистов, компьютерный форум, киберфорум
Наши страницы
PHP
Войти
Регистрация
Восстановить пароль
 
ya11
0 / 0 / 0
Регистрация: 14.01.2014
Сообщений: 44
1

В коде где-то ошибка

16.11.2016, 03:38. Просмотров 223. Ответов 1
Метки нет (Все метки)

Друзья! Сроки горят, а решения нет.
В коде где-то ошибка, помогите её найти:


PHP
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
library(quantmod)
library(fractaldim)
 
# https://Asirikuy.com
# http://mechanicalforex.com
 
getSymbols("SPY",src="yahoo", from="1995-01-01")
 
# Predict the last 100 bars
endingIndex <-length(mainData$data)-101
mainData <- SPY$SPY.Adjusted
colnames(mainData) <- c("data")
TEST <- mainData[1:endingIndex]
TEST
total_error <- 0
error_per_prediction <- c()
 
#These are the fractal dimension calculation parameters
#see the fractaldim library reference for more info
 
method <- "rodogram"
 
Sm <- as.data.frame(TEST, row.names = NULL)
 
delta <- c()
 
# calculate delta between consecutive Sm values to use as guesses
for(j in 2:length(Sm$data)){
  delta <- rbind(delta, (Sm$data[j]-Sm$data[j-1])/Sm$data[j-1])
}
 
Sm_guesses <- delta
 
#do 100 predictions of next values in Sm
for(i in 1:100){
  
  #update fractal dimension used as reference
  V_Reference <- fd.estimate(Sm$data, method=method)$fd
   minDifference = 1000000
  
  # check the fractal dimension of Sm plus each different guess and
  # choose the value with the least difference with the reference
  for(j in 1:length(Sm_guesses)){
    
    new_Sm <- rbind(Sm, Sm_guesses[j]*Sm$data[length(Sm$data)]+Sm$data[length(Sm$data)])
    new_V_Reference <- fd.estimate(new_Sm$data, method=method)$fd
    
    if (abs(new_V_Reference - V_Reference) < minDifference ){******
      Sm_prediction <- Sm$data[length(Sm$data)]+Sm_guesses[j]*Sm$data[length(Sm$data)]
      minDifference = abs(new_V_Reference - V_Reference)
    }
  }
  
  print(i)
  #add prediction to Sm
  Sm <- rbind(Sm, Sm_prediction)
  Sm_real <- as.numeric(mainData$data[endingIndex+i])
  error_per_prediction <- rbind(error_per_prediction, (Sm_prediction-Sm_real )/Sm_real )
  total_error <- total_error + ((Sm_prediction-Sm_real )/Sm_real )^2
}
 
total_error <- sqrt(total_error)
print(total_error)
plot(error_per_prediction*100, xlab="Prediction Index", ylab="Error (%)")
plot(Sm$data[endingIndex:(endingIndex+100)], type="l", xlab="Value Index", ylab="Adjusted Close")
lines(as.data.frame(mainData$data[endingIndex:(endingIndex+100)], row.names = NULL), col="blue")
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.11.2016, 03:38
Ответы с готовыми решениями:

Не пойму где ошибка в коде
Помогите разобраться не могу разобраться где ошибка в коде? актуальные клиенты...

Где указывать e-mail в коде для формы?
В этом (http://www.csstemplateheaven.com/tools/form_builder/) генераторе форм...

Ошибка в коде
требуется исправление кода, в браузере выходит словами из кода &lt;html&gt; ...

ошибка в коде
&lt;?php ## Генерация квази-анонимных функций. $squarers = ; for ($i = 0; $i...

ошибка в коде
&lt;?php ## &quot;Ручная&quot; реализация наследования. // Вначале подключаем &quot;базовый&quot;...

1
Jodah
Эксперт PHP
2997 / 2588 / 1095
Регистрация: 01.08.2012
Сообщений: 9,118
16.11.2016, 10:10 2
Это не PHP.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.11.2016, 10:10

Ошибка в коде
Привет всем! Проблемка одна случилась. С гитхаба взял готовую работу блога на...

Ошибка в коде
я только начал работу с РНР и поэтому плохо розбераюсь подскажи плз в чем у...

Ошибка в коде
Всем привет! Написал условие, но вот что-то не работает. Вот код: &lt;?php ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru