библиотека (rjson)
библиотека (RCurl)
требуют (tcltk)
п = 10 #number БТД вы торгуете
wu_fee = 30 #fee, которые используют западное соединение, чтобы перевести деньги из Китая в США
дифференциалы<-c ()
подсчитывать<-0
в то время как (TRUE),
{


кол = кол + 1
Результат = tryCatch ({
тт<-fromJSON (GetURL ("https://coinbase.com/api/v1/prices/buy")) #get торговых данных в режиме реального времени
До нашей эры<-fromJSON (GetURL ("https://vip.btcchina.com/bc/ticker"))
}, Предупреждение = функция (ш) {
Распечатать("проблема интернет")
}, Ошибка = функция (е) {
Распечатать("проблема интернет")
})
  

buy_price<-as.numeric (тт $ $ субтотальной сумма)
tx_fee<-as.numeric (тт $ сборы [[1]] $ coinbase сумма $)
банковская комиссия<-as.numeric (тт $ сборы [[2]] $ банк $ сумма)

buy_total<-buy_price * п + tx_fee * п + bank_fee



цена продажи<-as.numeric (Ьс $ тикер купить $)
ex_rate = 6.1
bank_fee_sell = 0,01

total_sell<-sell_price * п * (1-bank_fee_sell) / ex_rate
разница<-total_sell-buy_total-wu_fee
печать (дифф)
если (дифф>300) #alert торговли, если разница превышает 300 долларов США, изменить его самостоятельно по мере необходимости
{
ReturnVal <- tkmessageBox (название = "Торговля сейчас",
   сообщение = "Торговля сейчас", Значок = "Информация", Тип = "ОК")
}
если (кол>= 500)
{
кол = 0
дифференциалы = дифференциалы [-c (1: 400)]
}
дифференциалы<-c (дифференциалы, разн)
участок (дифференциалы, тип ="L")
}