Detta script används för att sätta master script om man kör PC-LINK.
Syftet med detta är att sätta initiala ingångsvärden för den första virtuella depån så man tex vet vilket värde man köpte första positionen ifrån om man vill stega i fasta steg relativt första positionen.
{ *** Array of object values start adress *** }
const_startstorage:=6000
{ *** CLIENT ID, equals the testaccount number *** }
const_client_id:=1
{ *** Number of fields in instrument_object *** }
const_object_num_fields:=2
{ *** INSTRUMENT INDATA FIELDS *** }
const_pclinkid:=28
instrumentindex=scrpar(const_pclinkid)
{ *** previnstrument=const_startstorage om const_client_id=1 *** }
previnstrumentptr=add(const_startstorage,mult(sub(const_client_id,1),500))
{ *** om previnstrumentptr=0 storageobject börjar på startstorage *** }
{ *** Observera att det utgår ifrån en 0index-array, därav previnstrumentptr }
thisinstrumentptr=add(mult(instrumentindex,const_object_num_fields),previnstrumentptr)
{ *** get object parameters *** }
ptr_kurs=add(thisinstrumentptr,0)
ptr_date=add(thisinstrumentptr,1)
buy_day=int(getgvar(ptr_date))
{ *** get object parameters *** }
{ *** DATE AND TIME *** }
now=date()
today=int(now)
intoday=frac(now)
{ *** DATE AND TIME *** }
{ *** MONEY SETTINGS *** }
const_alwaysfreemoney:=500
havemoney=gt(cash(t),const_alwaysfree)
{ *** PORTFOLIO INFO *** }
har_ej_innehav=eqv(portfolio(v),0)
har_innehav=gt(portfolio(v),0)
{ *** PORTFOLIO LASTTRADE *** }
lastbuyprice=lasttrade(b,p)
lastbuydate=lasttrade(b,d)
lastsellprice=lasttrade(s,p)
lastselldate=lasttrade(s,d)
{ *** QUARANTINE *** }
quarantine_days=add(1,0)
days_since_last=if(gt(lastpaiddate,0),sub(today,lastpaiddate),99)
quarantine_released=and(gt(days_since_last,0),ge(days_since_last,quarantine_days))
{ **** QUARANTINE *** }
current_close=add(c,0)
{ *** FIRST TRADE OF ALL ***}
cell_addr_start_kurs=add(add(mult(const_client_id,const_object_num_fields),const_startstorage),0)
value_first_buy=getgvar(cell_addr_start_kurs)
{ *** FIRST TRADE STEGVIS 5% PROCENT, används på detta sätt i SLAVE ***}
value_pct=mult(value_first_buy,0.05)
{ *** TA *** }
TA_RESULT=and(1,1)
{ *** TA *** }
signal=and(havemoney,and(har_ej_innehav,TA_RESULT ))
{ *** OM har Innehav lagra senaste köpkurs=lasttrade(b,p) som någon gjort *** }
setgvarif(lastpay,cell_kurs,har_innehav)
{ *** OM har innehav, lagra senaste köpdag *** }
setgvarif(lastdate,cell_date,har_innehav)
{ *** IF signal, store object parameters *** }
setgvarif(current_close,cell_kurs,signal)
setgvarif(now,cell_date,signal)
{ *** IF signal, store object parameters *** }
{ *** TESTAR ATT NÅT SKRIVITS *** }
value_kurs=getgvar(cell_kurs)
tidpunkt=getgvar(cell_date)
{ AVSLUT }
and(signal,1)
{@A(0,SX All-Sha)}