Displaying 4 results from an estimated 4 matches for "topprobdwn".
2017 Nov 01
3
repeat a function
...["0","-1"] <- ProbDWN(a,j,dt)
}
else {
if (j==jmax) {
prb[paste(j,sep = ""),"1"] <- TOPProbUP(a,j,dt)
prb[paste(j,sep = ""),"0"] <- TOPProbMID(a,j,dt)
prb[paste(j,sep = ""),"-1"] <- TOPProbDWN(a,j,dt)
prb[paste(-j,sep = ""),"1"] <- BTTMProbUP(a,-j,dt)
prb[paste(-j,sep = ""),"0"] <- BTTMProbMID(a,-j,dt)
prb[paste(-j,sep = ""),"-1"] <- BTTMProbDWN(a,-j,dt)
}
else {
prb[paste(j,sep = "&...
2017 Nov 02
2
repeat a function
...wn
TOPProbUP<- function( a, j, dt) 7 / 6 + (j ^ 2 * Mfactor(a, dt) ^ 2 + 3 * j * Mfactor(a, dt)) / 2 ####### Top branch probability going up
TOPProbMID<- function(a, j, dt) -1 / 3 - j ^ 2 * Mfactor(a, dt) ^ 2 - 2 * j * Mfactor(a, dt) ####### Top branch probability going MID
TOPProbDWN<- function( a, j, dt) 1 / 6 + (j ^ 2 * Mfactor(a, dt) ^ 2 + j * Mfactor(a, dt)) / 2 ####### Top branch probability going DOWN
BTTMProbUP<- function( a, j, dt) 1 / 6 + (j ^ 2 * Mfactor(a, dt) ^ 2 - j * Mfactor(a, dt)) / 2 ####### Bottom branch probability going u
BTTMProbMID&...
2017 Nov 03
0
repeat a function
...function( a, j, dt) 7 / 6 + (j ^ 2 * Mfactor(a, dt) ^ 2 + 3 * j *
> Mfactor(a, dt)) / 2 ####### Top branch probability going up
> TOPProbMID<- function(a, j, dt) -1 / 3 - j ^ 2 * Mfactor(a, dt) ^ 2 - 2 * j *
> Mfactor(a, dt) ####### Top branch probability going MID
> TOPProbDWN<- function( a, j, dt) 1 / 6 + (j ^ 2 * Mfactor(a, dt) ^ 2 + j *
> Mfactor(a, dt)) / 2 ####### Top branch probability going DOWN
> BTTMProbUP<- function( a, j, dt) 1 / 6 + (j ^ 2 * Mfactor(a, dt) ^ 2 - j *
> Mfactor(a, dt)) / 2 ####### Bottom branch probability going u...
2017 Nov 02
0
repeat a function
...<- ProbDWN(a,j,dt)
> }
> else {
> if (j==jmax) {
> prb[paste(j,sep = ""),"1"] <- TOPProbUP(a,j,dt)
> prb[paste(j,sep = ""),"0"] <- TOPProbMID(a,j,dt)
> prb[paste(j,sep = ""),"-1"] <- TOPProbDWN(a,j,dt)
> prb[paste(-j,sep = ""),"1"] <- BTTMProbUP(a,-j,dt)
> prb[paste(-j,sep = ""),"0"] <- BTTMProbMID(a,-j,dt)
> prb[paste(-j,sep = ""),"-1"] <- BTTMProbDWN(a,-j,dt)
> }
> else {
>...