w8 · tx · kjo···Lkh

tx · kjoLnBMSUCg7zaFd97oiHKG2BB2PLaFAAzwwVu9pLkh

3MvQVj21fwPXbyXsrVDV2Sf639TcWTsaxmC:  -0.09000000 Waves

2020.01.08 14:19 [844868] smart account 3MvQVj21fwPXbyXsrVDV2Sf639TcWTsaxmC > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "kjoLnBMSUCg7zaFd97oiHKG2BB2PLaFAAzwwVu9pLkh",
    "fee": 9000000,
    "feeAssetId": null,
    "timestamp": 1578482364895,
    "version": 1,
    "sender": "3MvQVj21fwPXbyXsrVDV2Sf639TcWTsaxmC",
    "senderPublicKey": "GfU9G8BJcrUfL2H2QthDHbeLHThimafNuKPuDQm9wbzr",
    "proofs": [
        "2DMWpXKrisaTwmDMwbZkLZZ1w45rKifeHFHs1NaLJwNG9mqVbiZaD45TgFkGuG8tqU7my2vrRUymdh6M4S1AdwJa"
    ],
    "script": "base64:AAIDAAAAAAAAAAwIARIICgYBAQEBAQEAAAADAAAAAAZGQUNUT1IAAAAAAAAPQkAAAAAADkZBQ1RPUkRFQ0lNQUxTAAAAAAAAAAAGAAAAAAFFAAAAAAAAKXpKAAAAAQAAAAFpAQAAABVjb3hSb3NzUnViaW5zdGVpbkNhbGwAAAAGAAAAAVQAAAABUwAAAAFLAAAAAXIAAAAFc2lnbWEAAAABbgQAAAAGZGVsdGFUCQAAawAAAAMFAAAAAVQFAAAABkZBQ1RPUgkAAGgAAAACAAAAAAAAAAFtBQAAAAFuBAAAAApzcXJ0RGVsdGFUCQAAbAAAAAYFAAAABmRlbHRhVAUAAAAORkFDVE9SREVDSU1BTFMAAAAAAAAAAAUAAAAAAAAAAAEFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAEAAAAAnVwCQAAbAAAAAYFAAAAAUUFAAAADkZBQ1RPUkRFQ0lNQUxTCQAAawAAAAMFAAAABXNpZ21hBQAAAApzcXJ0RGVsdGFUAAAAAAAAAABkBQAAAA5GQUNUT1JERUNJTUFMUwUAAAAORkFDVE9SREVDSU1BTFMFAAAABkhBTEZVUAQAAAAEZG93bgkAAGsAAAADAAAAAAAAAAABCQAAaAAAAAIFAAAABkZBQ1RPUgUAAAAGRkFDVE9SBQAAAAJ1cAQAAAACZGYJAABsAAAABgUAAAABRQUAAAAORkFDVE9SREVDSU1BTFMJAABrAAAAAwkBAAAAAS0AAAABBQAAAAFyBQAAAAZkZWx0YVQAAAAAAAAAAGQFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAA5GQUNUT1JERUNJTUFMUwUAAAAGSEFMRlVQBAAAAANwVXAJAABrAAAAAwkAAGUAAAACCQAAbAAAAAYFAAAAAUUFAAAADkZBQ1RPUkRFQ0lNQUxTCQAAawAAAAMFAAAAAXIFAAAABmRlbHRhVAAAAAAAAAAAZAUAAAAORkFDVE9SREVDSU1BTFMFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAFAAAABGRvd24FAAAABkZBQ1RPUgkAAGUAAAACBQAAAAJ1cAUAAAAEZG93bgQAAAAFcERvd24JAABlAAAAAgUAAAAGRkFDVE9SBQAAAANwVXAEAAAAE2ZpcnN0UHJvamVjdGVkUHJpY2UJAABrAAAAAwkAAGgAAAACCQAAaAAAAAIFAAAAAVMJAABsAAAABgUAAAACdXAFAAAADkZBQ1RPUkRFQ0lNQUxTAAAAAAAAAAAEAAAAAAAAAAAABQAAAA5GQUNUT1JERUNJTUFMUwUAAAAGSEFMRlVQCQAAbAAAAAYFAAAABGRvd24FAAAADkZBQ1RPUkRFQ0lNQUxTAAAAAAAAAAAAAAAAAAAAAAAABQAAAA5GQUNUT1JERUNJTUFMUwUAAAAGSEFMRlVQAAAAAAAAAAABBQAAAAZGQUNUT1IEAAAAFHNlY29uZFByb2plY3RlZFByaWNlCQAAawAAAAMJAABoAAAAAgkAAGgAAAACBQAAAAFTCQAAbAAAAAYFAAAAAnVwBQAAAA5GQUNUT1JERUNJTUFMUwAAAAAAAAAAAwAAAAAAAAAAAAUAAAAORkFDVE9SREVDSU1BTFMFAAAABkhBTEZVUAkAAGwAAAAGBQAAAARkb3duBQAAAA5GQUNUT1JERUNJTUFMUwAAAAAAAAAAAQAAAAAAAAAAAAUAAAAORkFDVE9SREVDSU1BTFMFAAAABkhBTEZVUAAAAAAAAAAAAQUAAAAGRkFDVE9SBAAAABN0aGlyZFByb2plY3RlZFByaWNlCQAAawAAAAMJAABoAAAAAgkAAGgAAAACBQAAAAFTCQAAbAAAAAYFAAAAAnVwBQAAAA5GQUNUT1JERUNJTUFMUwAAAAAAAAAAAgAAAAAAAAAAAAUAAAAORkFDVE9SREVDSU1BTFMFAAAABkhBTEZVUAkAAGwAAAAGBQAAAARkb3duBQAAAA5GQUNUT1JERUNJTUFMUwAAAAAAAAAAAgAAAAAAAAAAAAUAAAAORkFDVE9SREVDSU1BTFMFAAAABkhBTEZVUAAAAAAAAAAAAQUAAAAGRkFDVE9SBAAAABRmb3VydGhQcm9qZWN0ZWRQcmljZQkAAGsAAAADCQAAaAAAAAIJAABoAAAAAgUAAAABUwkAAGwAAAAGBQAAAAJ1cAUAAAAORkFDVE9SREVDSU1BTFMAAAAAAAAAAAEAAAAAAAAAAAAFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAJAABsAAAABgUAAAAEZG93bgUAAAAORkFDVE9SREVDSU1BTFMAAAAAAAAAAAMAAAAAAAAAAAAFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAAAAAAAAAAAAEFAAAABkZBQ1RPUgQAAAATZmlmdGhQcm9qZWN0ZWRQcmljZQkAAGsAAAADCQAAaAAAAAIJAABoAAAAAgUAAAABUwkAAGwAAAAGBQAAAAJ1cAUAAAAORkFDVE9SREVDSU1BTFMAAAAAAAAAAAAAAAAAAAAAAAAFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAJAABsAAAABgUAAAAEZG93bgUAAAAORkFDVE9SREVDSU1BTFMAAAAAAAAAAAQAAAAAAAAAAAAFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAAAAAAAAAAAAEFAAAABkZBQ1RPUgQAAAAPZmlyc3RJbm5lclByaWNlAwkAAGYAAAACBQAAABNmaXJzdFByb2plY3RlZFByaWNlCQAAaAAAAAIFAAAAAUsFAAAABkZBQ1RPUgkAAGUAAAACBQAAABNmaXJzdFByb2plY3RlZFByaWNlCQAAaAAAAAIFAAAAAUsFAAAABkZBQ1RPUgAAAAAAAAAAAAQAAAAQc2Vjb25kSW5uZXJQcmljZQMJAABmAAAAAgUAAAAUc2Vjb25kUHJvamVjdGVkUHJpY2UJAABoAAAAAgUAAAABSwUAAAAGRkFDVE9SCQAAZQAAAAIFAAAAFHNlY29uZFByb2plY3RlZFByaWNlCQAAaAAAAAIFAAAAAUsFAAAABkZBQ1RPUgAAAAAAAAAAAAQAAAAPdGhpcmRJbm5lclByaWNlAwkAAGYAAAACBQAAABN0aGlyZFByb2plY3RlZFByaWNlCQAAaAAAAAIFAAAAAUsFAAAABkZBQ1RPUgkAAGUAAAACBQAAABN0aGlyZFByb2plY3RlZFByaWNlCQAAaAAAAAIFAAAAAUsFAAAABkZBQ1RPUgAAAAAAAAAAAAQAAAAQZm91cnRoSW5uZXJQcmljZQMJAABmAAAAAgUAAAAUZm91cnRoUHJvamVjdGVkUHJpY2UJAABoAAAAAgUAAAABSwUAAAAGRkFDVE9SCQAAZQAAAAIFAAAAFGZvdXJ0aFByb2plY3RlZFByaWNlBQAAAAFLAAAAAAAAAAAABAAAAA9maWZ0aElubmVyUHJpY2UDCQAAZgAAAAIFAAAAE2ZpZnRoUHJvamVjdGVkUHJpY2UJAABoAAAAAgUAAAABSwUAAAAGRkFDVE9SCQAAZQAAAAIFAAAAE2ZpZnRoUHJvamVjdGVkUHJpY2UFAAAAAUsAAAAAAAAAAAAEAAAAFGZpcnN0TGV2ZWxGaXJzdFZhbHVlCQAAawAAAAMJAABkAAAAAgkAAGsAAAADBQAAAA9maXJzdElubmVyUHJpY2UFAAAAA3BVcAUAAAAGRkFDVE9SCQAAawAAAAMFAAAAEHNlY29uZElubmVyUHJpY2UFAAAABXBEb3duBQAAAAZGQUNUT1IFAAAAAmRmBQAAAAZGQUNUT1IEAAAAFWZpcnN0TGV2ZWxTZWNvbmRWYWx1ZQkAAGsAAAADCQAAZAAAAAIJAABrAAAAAwUAAAAQc2Vjb25kSW5uZXJQcmljZQUAAAADcFVwBQAAAAZGQUNUT1IJAABrAAAAAwUAAAAPdGhpcmRJbm5lclByaWNlBQAAAAVwRG93bgUAAAAGRkFDVE9SBQAAAAJkZgUAAAAGRkFDVE9SBAAAABRmaXJzdExldmVsVGhpcmRWYWx1ZQkAAGsAAAADCQAAZAAAAAIJAABrAAAAAwUAAAAPdGhpcmRJbm5lclByaWNlBQAAAANwVXAFAAAABkZBQ1RPUgkAAGsAAAADBQAAABBmb3VydGhJbm5lclByaWNlBQAAAAVwRG93bgUAAAAGRkFDVE9SBQAAAAJkZgUAAAAGRkFDVE9SBAAAABVmaXJzdExldmVsRm91cnRoVmFsdWUJAABrAAAAAwkAAGQAAAACCQAAawAAAAMFAAAAEGZvdXJ0aElubmVyUHJpY2UFAAAAA3BVcAUAAAAGRkFDVE9SCQAAawAAAAMFAAAAD2ZpZnRoSW5uZXJQcmljZQUAAAAFcERvd24FAAAABkZBQ1RPUgUAAAACZGYFAAAABkZBQ1RPUgQAAAAVc2Vjb25kTGV2ZWxGaXJzdFZhbHVlCQAAawAAAAMJAABkAAAAAgkAAGsAAAADBQAAABRmaXJzdExldmVsRmlyc3RWYWx1ZQUAAAADcFVwBQAAAAZGQUNUT1IJAABrAAAAAwUAAAAVZmlyc3RMZXZlbFNlY29uZFZhbHVlBQAAAAVwRG93bgUAAAAGRkFDVE9SBQAAAAJkZgUAAAAGRkFDVE9SBAAAABZzZWNvbmRMZXZlbFNlY29uZFZhbHVlCQAAawAAAAMJAABkAAAAAgkAAGsAAAADBQAAABVmaXJzdExldmVsU2Vjb25kVmFsdWUFAAAAA3BVcAUAAAAGRkFDVE9SCQAAawAAAAMFAAAAFGZpcnN0TGV2ZWxUaGlyZFZhbHVlBQAAAAVwRG93bgUAAAAGRkFDVE9SBQAAAAJkZgUAAAAGRkFDVE9SBAAAABVzZWNvbmRMZXZlbFRoaXJkVmFsdWUJAABrAAAAAwkAAGQAAAACCQAAawAAAAMFAAAAFGZpcnN0TGV2ZWxUaGlyZFZhbHVlBQAAAANwVXAFAAAABkZBQ1RPUgkAAGsAAAADBQAAABVmaXJzdExldmVsRm91cnRoVmFsdWUFAAAABXBEb3duBQAAAAZGQUNUT1IFAAAAAmRmBQAAAAZGQUNUT1IEAAAAFHRoaXJkTGV2ZWxGaXJzdFZhbHVlCQAAawAAAAMJAABkAAAAAgkAAGsAAAADBQAAABVzZWNvbmRMZXZlbEZpcnN0VmFsdWUFAAAAA3BVcAUAAAAGRkFDVE9SCQAAawAAAAMFAAAAFnNlY29uZExldmVsU2Vjb25kVmFsdWUFAAAABXBEb3duBQAAAAZGQUNUT1IFAAAAAmRmBQAAAAZGQUNUT1IEAAAAFXRoaXJkTGV2ZWxTZWNvbmRWYWx1ZQkAAGsAAAADCQAAZAAAAAIJAABrAAAAAwUAAAAWc2Vjb25kTGV2ZWxTZWNvbmRWYWx1ZQUAAAADcFVwBQAAAAZGQUNUT1IJAABrAAAAAwUAAAAVc2Vjb25kTGV2ZWxUaGlyZFZhbHVlBQAAAAVwRG93bgUAAAAGRkFDVE9SBQAAAAJkZgUAAAAGRkFDVE9SBAAAAAtmb3VydGhMZXZlbAkAAGsAAAADCQAAZAAAAAIJAABrAAAAAwUAAAAUdGhpcmRMZXZlbEZpcnN0VmFsdWUFAAAAA3BVcAUAAAAGRkFDVE9SCQAAawAAAAMFAAAAFXRoaXJkTGV2ZWxTZWNvbmRWYWx1ZQUAAAAFcERvd24FAAAABkZBQ1RPUgUAAAACZGYFAAAABkZBQ1RPUgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAGZGVsdGFUBQAAAAZkZWx0YVQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAACnNxcnREZWx0YVQFAAAACnNxcnREZWx0YVQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAAnVwBQAAAAJ1cAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAEZG93bgUAAAAEZG93bgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAACZGYFAAAAAmRmCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAANwVXAFAAAAA3BVcAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAFcERvd24FAAAABXBEb3duCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAA9maXJzdElubmVyUHJpY2UFAAAAD2ZpcnN0SW5uZXJQcmljZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAQc2Vjb25kSW5uZXJQcmljZQUAAAAQc2Vjb25kSW5uZXJQcmljZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAPdGhpcmRJbm5lclByaWNlBQAAAA90aGlyZElubmVyUHJpY2UJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAEGZvdXJ0aElubmVyUHJpY2UFAAAAEGZvdXJ0aElubmVyUHJpY2UJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAD2ZpZnRoSW5uZXJQcmljZQUAAAAPZmlmdGhJbm5lclByaWNlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABRmaXJzdExldmVsRmlyc3RWYWx1ZQUAAAAUZmlyc3RMZXZlbEZpcnN0VmFsdWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAACmZpbmFsVmFsdWUFAAAAC2ZvdXJ0aExldmVsBQAAAANuaWwAAAAArF8pPg==",
    "chainId": 84,
    "height": 844868,
    "spentComplexity": 0
}

View: original | compacted
Prev: 7zVUsq3nRLasyMcUmLrDhSAPwjRW2pVPKjp2vULcRtBo
Next: FtYf9Ty9HHTD7KVaQYhuMPj3xVGU8yNYvLSjkGR3KdwC

Diff: 
Old New Differences
40 40      let firstLevelSecondValue = fraction((fraction(secondInnerPrice, pUp, FACTOR) + fraction(thirdInnerPrice, pDown, FACTOR)), df, FACTOR)
41 41      let firstLevelThirdValue = fraction((fraction(thirdInnerPrice, pUp, FACTOR) + fraction(fourthInnerPrice, pDown, FACTOR)), df, FACTOR)
42 42      let firstLevelFourthValue = fraction((fraction(fourthInnerPrice, pUp, FACTOR) + fraction(fifthInnerPrice, pDown, FACTOR)), df, FACTOR)
43 -     let secondLevelFirstValue = ((fraction(firstLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
44 -     let secondLevelSecondValue = ((fraction(firstLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelThirdValue, pDown, (FACTOR * FACTOR))) * df)
45 -     let secondLevelThirdValue = ((fraction(firstLevelThirdValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelFourthValue, pDown, (FACTOR * FACTOR))) * df)
46 -     let thirdLevelFirstValue = ((fraction(secondLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
47 -     let thirdLevelSecondValue = ((fraction(secondLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelThirdValue, pDown, (FACTOR * FACTOR))) * df)
48 -     let fourthLevel = ((fraction(thirdLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(thirdLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
43 +     let secondLevelFirstValue = fraction((fraction(firstLevelFirstValue, pUp, FACTOR) + fraction(firstLevelSecondValue, pDown, FACTOR)), df, FACTOR)
44 +     let secondLevelSecondValue = fraction((fraction(firstLevelSecondValue, pUp, FACTOR) + fraction(firstLevelThirdValue, pDown, FACTOR)), df, FACTOR)
45 +     let secondLevelThirdValue = fraction((fraction(firstLevelThirdValue, pUp, FACTOR) + fraction(firstLevelFourthValue, pDown, FACTOR)), df, FACTOR)
46 +     let thirdLevelFirstValue = fraction((fraction(secondLevelFirstValue, pUp, FACTOR) + fraction(secondLevelSecondValue, pDown, FACTOR)), df, FACTOR)
47 +     let thirdLevelSecondValue = fraction((fraction(secondLevelSecondValue, pUp, FACTOR) + fraction(secondLevelThirdValue, pDown, FACTOR)), df, FACTOR)
48 +     let fourthLevel = fraction((fraction(thirdLevelFirstValue, pUp, FACTOR) + fraction(thirdLevelSecondValue, pDown, FACTOR)), df, FACTOR)
49 49      WriteSet([DataEntry("deltaT", deltaT), DataEntry("sqrtDeltaT", sqrtDeltaT), DataEntry("up", up), DataEntry("down", down), DataEntry("df", df), DataEntry("pUp", pUp), DataEntry("pDown", pDown), DataEntry("firstInnerPrice", firstInnerPrice), DataEntry("secondInnerPrice", secondInnerPrice), DataEntry("thirdInnerPrice", thirdInnerPrice), DataEntry("fourthInnerPrice", fourthInnerPrice), DataEntry("fifthInnerPrice", fifthInnerPrice), DataEntry("firstLevelFirstValue", firstLevelFirstValue), DataEntry("finalValue", fourthLevel)])
50 50      }
51 51  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let FACTOR = 1000000
5 5  
6 6  let FACTORDECIMALS = 6
7 7  
8 8  let E = 2718282
9 9  
10 10  @Callable(i)
11 11  func coxRossRubinsteinCall (T,S,K,r,sigma,n) = {
12 12      let deltaT = fraction(T, FACTOR, (365 * n))
13 13      let sqrtDeltaT = pow(deltaT, FACTORDECIMALS, 5, 1, FACTORDECIMALS, HALFUP)
14 14      let up = pow(E, FACTORDECIMALS, fraction(sigma, sqrtDeltaT, 100), FACTORDECIMALS, FACTORDECIMALS, HALFUP)
15 15      let down = fraction(1, (FACTOR * FACTOR), up)
16 16      let df = pow(E, FACTORDECIMALS, fraction(-(r), deltaT, 100), FACTORDECIMALS, FACTORDECIMALS, HALFUP)
17 17      let pUp = fraction((pow(E, FACTORDECIMALS, fraction(r, deltaT, 100), FACTORDECIMALS, FACTORDECIMALS, HALFUP) - down), FACTOR, (up - down))
18 18      let pDown = (FACTOR - pUp)
19 19      let firstProjectedPrice = fraction(((S * pow(up, FACTORDECIMALS, 4, 0, FACTORDECIMALS, HALFUP)) * pow(down, FACTORDECIMALS, 0, 0, FACTORDECIMALS, HALFUP)), 1, FACTOR)
20 20      let secondProjectedPrice = fraction(((S * pow(up, FACTORDECIMALS, 3, 0, FACTORDECIMALS, HALFUP)) * pow(down, FACTORDECIMALS, 1, 0, FACTORDECIMALS, HALFUP)), 1, FACTOR)
21 21      let thirdProjectedPrice = fraction(((S * pow(up, FACTORDECIMALS, 2, 0, FACTORDECIMALS, HALFUP)) * pow(down, FACTORDECIMALS, 2, 0, FACTORDECIMALS, HALFUP)), 1, FACTOR)
22 22      let fourthProjectedPrice = fraction(((S * pow(up, FACTORDECIMALS, 1, 0, FACTORDECIMALS, HALFUP)) * pow(down, FACTORDECIMALS, 3, 0, FACTORDECIMALS, HALFUP)), 1, FACTOR)
23 23      let fifthProjectedPrice = fraction(((S * pow(up, FACTORDECIMALS, 0, 0, FACTORDECIMALS, HALFUP)) * pow(down, FACTORDECIMALS, 4, 0, FACTORDECIMALS, HALFUP)), 1, FACTOR)
24 24      let firstInnerPrice = if ((firstProjectedPrice > (K * FACTOR)))
25 25          then (firstProjectedPrice - (K * FACTOR))
26 26          else 0
27 27      let secondInnerPrice = if ((secondProjectedPrice > (K * FACTOR)))
28 28          then (secondProjectedPrice - (K * FACTOR))
29 29          else 0
30 30      let thirdInnerPrice = if ((thirdProjectedPrice > (K * FACTOR)))
31 31          then (thirdProjectedPrice - (K * FACTOR))
32 32          else 0
33 33      let fourthInnerPrice = if ((fourthProjectedPrice > (K * FACTOR)))
34 34          then (fourthProjectedPrice - K)
35 35          else 0
36 36      let fifthInnerPrice = if ((fifthProjectedPrice > (K * FACTOR)))
37 37          then (fifthProjectedPrice - K)
38 38          else 0
39 39      let firstLevelFirstValue = fraction((fraction(firstInnerPrice, pUp, FACTOR) + fraction(secondInnerPrice, pDown, FACTOR)), df, FACTOR)
40 40      let firstLevelSecondValue = fraction((fraction(secondInnerPrice, pUp, FACTOR) + fraction(thirdInnerPrice, pDown, FACTOR)), df, FACTOR)
41 41      let firstLevelThirdValue = fraction((fraction(thirdInnerPrice, pUp, FACTOR) + fraction(fourthInnerPrice, pDown, FACTOR)), df, FACTOR)
42 42      let firstLevelFourthValue = fraction((fraction(fourthInnerPrice, pUp, FACTOR) + fraction(fifthInnerPrice, pDown, FACTOR)), df, FACTOR)
43 -     let secondLevelFirstValue = ((fraction(firstLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
44 -     let secondLevelSecondValue = ((fraction(firstLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelThirdValue, pDown, (FACTOR * FACTOR))) * df)
45 -     let secondLevelThirdValue = ((fraction(firstLevelThirdValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelFourthValue, pDown, (FACTOR * FACTOR))) * df)
46 -     let thirdLevelFirstValue = ((fraction(secondLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
47 -     let thirdLevelSecondValue = ((fraction(secondLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelThirdValue, pDown, (FACTOR * FACTOR))) * df)
48 -     let fourthLevel = ((fraction(thirdLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(thirdLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
43 +     let secondLevelFirstValue = fraction((fraction(firstLevelFirstValue, pUp, FACTOR) + fraction(firstLevelSecondValue, pDown, FACTOR)), df, FACTOR)
44 +     let secondLevelSecondValue = fraction((fraction(firstLevelSecondValue, pUp, FACTOR) + fraction(firstLevelThirdValue, pDown, FACTOR)), df, FACTOR)
45 +     let secondLevelThirdValue = fraction((fraction(firstLevelThirdValue, pUp, FACTOR) + fraction(firstLevelFourthValue, pDown, FACTOR)), df, FACTOR)
46 +     let thirdLevelFirstValue = fraction((fraction(secondLevelFirstValue, pUp, FACTOR) + fraction(secondLevelSecondValue, pDown, FACTOR)), df, FACTOR)
47 +     let thirdLevelSecondValue = fraction((fraction(secondLevelSecondValue, pUp, FACTOR) + fraction(secondLevelThirdValue, pDown, FACTOR)), df, FACTOR)
48 +     let fourthLevel = fraction((fraction(thirdLevelFirstValue, pUp, FACTOR) + fraction(thirdLevelSecondValue, pDown, FACTOR)), df, FACTOR)
49 49      WriteSet([DataEntry("deltaT", deltaT), DataEntry("sqrtDeltaT", sqrtDeltaT), DataEntry("up", up), DataEntry("down", down), DataEntry("df", df), DataEntry("pUp", pUp), DataEntry("pDown", pDown), DataEntry("firstInnerPrice", firstInnerPrice), DataEntry("secondInnerPrice", secondInnerPrice), DataEntry("thirdInnerPrice", thirdInnerPrice), DataEntry("fourthInnerPrice", fourthInnerPrice), DataEntry("fifthInnerPrice", fifthInnerPrice), DataEntry("firstLevelFirstValue", firstLevelFirstValue), DataEntry("finalValue", fourthLevel)])
50 50      }
51 51  
52 52

Old	New		Differences
40	40		let firstLevelSecondValue = fraction((fraction(secondInnerPrice, pUp, FACTOR) + fraction(thirdInnerPrice, pDown, FACTOR)), df, FACTOR)
41	41		let firstLevelThirdValue = fraction((fraction(thirdInnerPrice, pUp, FACTOR) + fraction(fourthInnerPrice, pDown, FACTOR)), df, FACTOR)
42	42		let firstLevelFourthValue = fraction((fraction(fourthInnerPrice, pUp, FACTOR) + fraction(fifthInnerPrice, pDown, FACTOR)), df, FACTOR)
43		-	let secondLevelFirstValue = ((fraction(firstLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelSecondValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
44		-	let secondLevelSecondValue = ((fraction(firstLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelThirdValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
45		-	let secondLevelThirdValue = ((fraction(firstLevelThirdValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelFourthValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
46		-	let thirdLevelFirstValue = ((fraction(secondLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelSecondValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
47		-	let thirdLevelSecondValue = ((fraction(secondLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelThirdValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
48		-	let fourthLevel = ((fraction(thirdLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(thirdLevelSecondValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
	43	+	let secondLevelFirstValue = fraction((fraction(firstLevelFirstValue, pUp, FACTOR) + fraction(firstLevelSecondValue, pDown, FACTOR)), df, FACTOR)
	44	+	let secondLevelSecondValue = fraction((fraction(firstLevelSecondValue, pUp, FACTOR) + fraction(firstLevelThirdValue, pDown, FACTOR)), df, FACTOR)
	45	+	let secondLevelThirdValue = fraction((fraction(firstLevelThirdValue, pUp, FACTOR) + fraction(firstLevelFourthValue, pDown, FACTOR)), df, FACTOR)
	46	+	let thirdLevelFirstValue = fraction((fraction(secondLevelFirstValue, pUp, FACTOR) + fraction(secondLevelSecondValue, pDown, FACTOR)), df, FACTOR)
	47	+	let thirdLevelSecondValue = fraction((fraction(secondLevelSecondValue, pUp, FACTOR) + fraction(secondLevelThirdValue, pDown, FACTOR)), df, FACTOR)
	48	+	let fourthLevel = fraction((fraction(thirdLevelFirstValue, pUp, FACTOR) + fraction(thirdLevelSecondValue, pDown, FACTOR)), df, FACTOR)
49	49		WriteSet([DataEntry("deltaT", deltaT), DataEntry("sqrtDeltaT", sqrtDeltaT), DataEntry("up", up), DataEntry("down", down), DataEntry("df", df), DataEntry("pUp", pUp), DataEntry("pDown", pDown), DataEntry("firstInnerPrice", firstInnerPrice), DataEntry("secondInnerPrice", secondInnerPrice), DataEntry("thirdInnerPrice", thirdInnerPrice), DataEntry("fourthInnerPrice", fourthInnerPrice), DataEntry("fifthInnerPrice", fifthInnerPrice), DataEntry("firstLevelFirstValue", firstLevelFirstValue), DataEntry("finalValue", fourthLevel)])
50	50		}
51	51

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let FACTOR = 1000000
5	5
6	6		let FACTORDECIMALS = 6
7	7
8	8		let E = 2718282
9	9
10	10		@Callable(i)
11	11		func coxRossRubinsteinCall (T,S,K,r,sigma,n) = {
12	12		let deltaT = fraction(T, FACTOR, (365 * n))
13	13		let sqrtDeltaT = pow(deltaT, FACTORDECIMALS, 5, 1, FACTORDECIMALS, HALFUP)
14	14		let up = pow(E, FACTORDECIMALS, fraction(sigma, sqrtDeltaT, 100), FACTORDECIMALS, FACTORDECIMALS, HALFUP)
15	15		let down = fraction(1, (FACTOR * FACTOR), up)
16	16		let df = pow(E, FACTORDECIMALS, fraction(-(r), deltaT, 100), FACTORDECIMALS, FACTORDECIMALS, HALFUP)
17	17		let pUp = fraction((pow(E, FACTORDECIMALS, fraction(r, deltaT, 100), FACTORDECIMALS, FACTORDECIMALS, HALFUP) - down), FACTOR, (up - down))
18	18		let pDown = (FACTOR - pUp)
19	19		let firstProjectedPrice = fraction(((S * pow(up, FACTORDECIMALS, 4, 0, FACTORDECIMALS, HALFUP)) * pow(down, FACTORDECIMALS, 0, 0, FACTORDECIMALS, HALFUP)), 1, FACTOR)
20	20		let secondProjectedPrice = fraction(((S * pow(up, FACTORDECIMALS, 3, 0, FACTORDECIMALS, HALFUP)) * pow(down, FACTORDECIMALS, 1, 0, FACTORDECIMALS, HALFUP)), 1, FACTOR)
21	21		let thirdProjectedPrice = fraction(((S * pow(up, FACTORDECIMALS, 2, 0, FACTORDECIMALS, HALFUP)) * pow(down, FACTORDECIMALS, 2, 0, FACTORDECIMALS, HALFUP)), 1, FACTOR)
22	22		let fourthProjectedPrice = fraction(((S * pow(up, FACTORDECIMALS, 1, 0, FACTORDECIMALS, HALFUP)) * pow(down, FACTORDECIMALS, 3, 0, FACTORDECIMALS, HALFUP)), 1, FACTOR)
23	23		let fifthProjectedPrice = fraction(((S * pow(up, FACTORDECIMALS, 0, 0, FACTORDECIMALS, HALFUP)) * pow(down, FACTORDECIMALS, 4, 0, FACTORDECIMALS, HALFUP)), 1, FACTOR)
24	24		let firstInnerPrice = if ((firstProjectedPrice > (K * FACTOR)))
25	25		then (firstProjectedPrice - (K * FACTOR))
26	26		else 0
27	27		let secondInnerPrice = if ((secondProjectedPrice > (K * FACTOR)))
28	28		then (secondProjectedPrice - (K * FACTOR))
29	29		else 0
30	30		let thirdInnerPrice = if ((thirdProjectedPrice > (K * FACTOR)))
31	31		then (thirdProjectedPrice - (K * FACTOR))
32	32		else 0
33	33		let fourthInnerPrice = if ((fourthProjectedPrice > (K * FACTOR)))
34	34		then (fourthProjectedPrice - K)
35	35		else 0
36	36		let fifthInnerPrice = if ((fifthProjectedPrice > (K * FACTOR)))
37	37		then (fifthProjectedPrice - K)
38	38		else 0
39	39		let firstLevelFirstValue = fraction((fraction(firstInnerPrice, pUp, FACTOR) + fraction(secondInnerPrice, pDown, FACTOR)), df, FACTOR)
40	40		let firstLevelSecondValue = fraction((fraction(secondInnerPrice, pUp, FACTOR) + fraction(thirdInnerPrice, pDown, FACTOR)), df, FACTOR)
41	41		let firstLevelThirdValue = fraction((fraction(thirdInnerPrice, pUp, FACTOR) + fraction(fourthInnerPrice, pDown, FACTOR)), df, FACTOR)
42	42		let firstLevelFourthValue = fraction((fraction(fourthInnerPrice, pUp, FACTOR) + fraction(fifthInnerPrice, pDown, FACTOR)), df, FACTOR)
43		-	let secondLevelFirstValue = ((fraction(firstLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelSecondValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
44		-	let secondLevelSecondValue = ((fraction(firstLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelThirdValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
45		-	let secondLevelThirdValue = ((fraction(firstLevelThirdValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelFourthValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
46		-	let thirdLevelFirstValue = ((fraction(secondLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelSecondValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
47		-	let thirdLevelSecondValue = ((fraction(secondLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelThirdValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
48		-	let fourthLevel = ((fraction(thirdLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(thirdLevelSecondValue, pDown, (FACTOR * FACTOR)~~)) * df)~~
	43	+	let secondLevelFirstValue = fraction((fraction(firstLevelFirstValue, pUp, FACTOR) + fraction(firstLevelSecondValue, pDown, FACTOR)), df, FACTOR)
	44	+	let secondLevelSecondValue = fraction((fraction(firstLevelSecondValue, pUp, FACTOR) + fraction(firstLevelThirdValue, pDown, FACTOR)), df, FACTOR)
	45	+	let secondLevelThirdValue = fraction((fraction(firstLevelThirdValue, pUp, FACTOR) + fraction(firstLevelFourthValue, pDown, FACTOR)), df, FACTOR)
	46	+	let thirdLevelFirstValue = fraction((fraction(secondLevelFirstValue, pUp, FACTOR) + fraction(secondLevelSecondValue, pDown, FACTOR)), df, FACTOR)
	47	+	let thirdLevelSecondValue = fraction((fraction(secondLevelSecondValue, pUp, FACTOR) + fraction(secondLevelThirdValue, pDown, FACTOR)), df, FACTOR)
	48	+	let fourthLevel = fraction((fraction(thirdLevelFirstValue, pUp, FACTOR) + fraction(thirdLevelSecondValue, pDown, FACTOR)), df, FACTOR)
49	49		WriteSet([DataEntry("deltaT", deltaT), DataEntry("sqrtDeltaT", sqrtDeltaT), DataEntry("up", up), DataEntry("down", down), DataEntry("df", df), DataEntry("pUp", pUp), DataEntry("pDown", pDown), DataEntry("firstInnerPrice", firstInnerPrice), DataEntry("secondInnerPrice", secondInnerPrice), DataEntry("thirdInnerPrice", thirdInnerPrice), DataEntry("fourthInnerPrice", fourthInnerPrice), DataEntry("fifthInnerPrice", fifthInnerPrice), DataEntry("firstLevelFirstValue", firstLevelFirstValue), DataEntry("finalValue", fourthLevel)])
50	50		}
51	51
52	52

github/deemru/w8io/873ac7e 
82.22 ms ◑