Scripts di esempio

[Apocalips]

Vero Apo, però se tu metti nello strategy builder una put venduta...la colonna del Delta da segno meno...e quello è il valore da controllare... il delta della singola gamba...
Quando è inferiore a -0.5 l'opzione diventa ITM
Correggetemi se mi è sfuggito qualcosa ovviamente...

scusami, hai ragione, stavo erroneamente considerando il delta di portafoglio e non quello delle singole legs.

Apo

[chrisbasetta]

Nuova domanda per Max appena può...

Nello Script è possibile identificare il Close di una barra di un determinato timeframe?

Come uso l'istruzione RTH_5MIN ?

Grazie

[Ismael]

Un piccolo contributo alla discussione
(ho lasciato tutte le dichiarazioni di variabili, anche quelle non necessarie)

1.aggiungere 5 optioni call e 5 put piu atm alla strategia alle 9:40.

uses classes
dim z
dim controllo
dim atmstrike  
dim under as tsecurity       
dim price    
dim underisin
dim atmvola 
dim atmexp 
dim nextexp,nextexpma,nextexpanno,nextexpnc ,j,i            
dim atmcall as toption
dim calls as toption = [0,0,0,0,0]
dim puts as toption = [0,0,0,0,0] 
dim sommaevolacalls as single = 0  
dim sommaevolaputs as single = 0 
dim sommavolacalls as single = 0  
dim sommavolaputs as single = 0 
dim a as double
dim strikestep, strikeas                                                                                                       
dim ore as Word, minuti as Word, secondi as Word, usec as Word 
dim volacallbs, volaputbs
dim pricea As Double, delta As Double, gamma As Double,
theta As Double, vega As Double, rho As Double,                
timeValue As Double, implVolatility As Double 
dim diffvola
dim count = 0        
dim ciao as tstringlist = [0,0,0,0,0,0,0,0]                                    
dim file as tstringlist 
dim percorso as  string                                    
dim anno, mese, giorno                  

                
under = CurrentStrategy.GetMainUnderlying
price = CurrentStrategy.GetMainUnderlyingprice                                
underisin = under.isin
count = CurrentStrategy.GetOptionCount   
file = new TStringList() 

strikestep = GetNextStrike(underisin,price) - GetPreviousStrike(underisin,price)
'strikestep  = intervallo tra strike
   
                                              
atmstrike = GetNearestStrike(underisin, price) 
nextexp = CDate(GetNextExpiry(underisin, now()))


if mid(nextexp,2,1)= "/" then
nextexp = "0" + left(nextexp,9)                                
else
nextexp = left(nextexp,10)                                                   
end if                      
'nextexp format mm/gg/aaaa                              

nextexpma = left(nextexp,2) + "-" + right(nextexp,4)
'nextexpma format mm-aaaa

DecodeTime(Now(), ore, minuti, secondi, usec)
DecodeDate(Now(), anno, mese, giorno)                                            
                                          
                                         
                                               
                                    
if ore = 9 and minuti<40 then 
SetPersistentVar(controllo,1)                 
else
SetPersistentVar(controllo,0)
end if                            
                                       
if controllo = 1 then 
CurrentStrategy.DisableOptionExpiry(nextexp)
file.SaveToFile(percorso)                  
              
                                                             
                                                             
                                                             
for i=0 to 4 step 1                                           
CurrentStrategy.AddParametricOption(underisin,CALL,i-2,0)                    
CurrentStrategy.AddParametricOption(underisin,PUT,i-2,0)            
next                                                 
      
end if                                                     
                                                    
                                                    
                                                    
'assegnare le opzioni aggiunte a variabili array:      
                                                    
'nota : getstrikebyindex mi sembra che non funzioni
                        

for i = 0 to 4                                
strikeas = cstr(atmstrike + (i-2)*strikestep)
               
calls[i] = CurrentStrategy.GetByName("C @ "+strikeas+" "+nextexpma)                        
puts[i] = CurrentStrategy.GetByName("P @ "+strikeas+" "+nextexpma)                  
next

2. scrive valore su file

price = CurrentStrategy.GetMainUnderlyingprice           


                                                                      
z = CStr(giorno)          
                                                      
    
  
file.LoadFromFile(percorso)
file.add(price & " ciao " )                      
file.SaveToFile(percorso)                            
file.free

[Apocalips]

Ciao Ismael,

Ho riscontrato questo errore di sintassi
come va modificata la riga?

grazie



Apo

[Ismael]

Ciao Ismael,

Ho riscontrato questo errore di sintassi
come va modificata la riga?

Ciao Apo,

penso che quando hai fatto copia ed incolla le virgole hanno cambiato "aspetto", prova a cancellarle e riscriverle.

[Apocalips]

Ciao Apo,

penso che quando hai fatto copia ed incolla le virgole hanno cambiato "aspetto", prova a cancellarle e riscriverle.

niente, nulla da fare !

non mi dire che devo cambiare tutte le virgole del codice !?

Apo

[Ismael]

niente, nulla da fare !

non mi dire che devo cambiare tutte le virgole del codice !?

Apo

Quando cambi una virgola ti cambia la source position dell'errore?

[Apocalips]

Quando cambi una virgola ti cambia la source position dell'errore?

scuasa la mia ignoranza, ma non ho capito cosa intendi

Apo

[Ismael]

Quando ti viene un msg di errore (come quello che hai postato), c'è scritto:
source position y,x

dove y = riga dell'errore e x = colonna.

[Smash]

scuasa la mia ignoranza, ma non ho capito cosa intendi

Apo

Apo

prova a modificare la riga in questione convertendola in più righe come segue:

dim nextexp
dim nextexpma
dim nextexpanno
dim nextexpnc
dim j
dim i