w8 · tx · 7zV···tBo

tx · 7zVUsq3nRLasyMcUmLrDhSAPwjRW2pVPKjp2vULcRtBo

3MvQVj21fwPXbyXsrVDV2Sf639TcWTsaxmC:  -0.09000000 Waves

2020.01.08 13:43 [844832] smart account 3MvQVj21fwPXbyXsrVDV2Sf639TcWTsaxmC > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7zVUsq3nRLasyMcUmLrDhSAPwjRW2pVPKjp2vULcRtBo",
    "fee": 9000000,
    "feeAssetId": null,
    "timestamp": 1578480216374,
    "version": 1,
    "sender": "3MvQVj21fwPXbyXsrVDV2Sf639TcWTsaxmC",
    "senderPublicKey": "GfU9G8BJcrUfL2H2QthDHbeLHThimafNuKPuDQm9wbzr",
    "proofs": [
        "4AWQGptB9bemeUYoq4jJCrDXqcw3rSzoc6Ke9FZp4F3Dk4qtn1SHBHxKGf3ruBBeL6zjDG9WtuW1y3pW7JLkZ1fb"
    ],
    "script": "base64:AAIDAAAAAAAAAAwIARIICgYBAQEBAQEAAAADAAAAAAZGQUNUT1IAAAAAAAAPQkAAAAAADkZBQ1RPUkRFQ0lNQUxTAAAAAAAAAAAGAAAAAAFFAAAAAAAAKXpKAAAAAQAAAAFpAQAAABVjb3hSb3NzUnViaW5zdGVpbkNhbGwAAAAGAAAAAVQAAAABUwAAAAFLAAAAAXIAAAAFc2lnbWEAAAABbgQAAAAGZGVsdGFUCQAAawAAAAMFAAAAAVQFAAAABkZBQ1RPUgkAAGgAAAACAAAAAAAAAAFtBQAAAAFuBAAAAApzcXJ0RGVsdGFUCQAAbAAAAAYFAAAABmRlbHRhVAUAAAAORkFDVE9SREVDSU1BTFMAAAAAAAAAAAUAAAAAAAAAAAEFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAEAAAAAnVwCQAAbAAAAAYFAAAAAUUFAAAADkZBQ1RPUkRFQ0lNQUxTCQAAawAAAAMFAAAABXNpZ21hBQAAAApzcXJ0RGVsdGFUAAAAAAAAAABkBQAAAA5GQUNUT1JERUNJTUFMUwUAAAAORkFDVE9SREVDSU1BTFMFAAAABkhBTEZVUAQAAAAEZG93bgkAAGsAAAADAAAAAAAAAAABCQAAaAAAAAIFAAAABkZBQ1RPUgUAAAAGRkFDVE9SBQAAAAJ1cAQAAAACZGYJAABsAAAABgUAAAABRQUAAAAORkFDVE9SREVDSU1BTFMJAABrAAAAAwkBAAAAAS0AAAABBQAAAAFyBQAAAAZkZWx0YVQAAAAAAAAAAGQFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAA5GQUNUT1JERUNJTUFMUwUAAAAGSEFMRlVQBAAAAANwVXAJAABrAAAAAwkAAGUAAAACCQAAbAAAAAYFAAAAAUUFAAAADkZBQ1RPUkRFQ0lNQUxTCQAAawAAAAMFAAAAAXIFAAAABmRlbHRhVAAAAAAAAAAAZAUAAAAORkFDVE9SREVDSU1BTFMFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAFAAAABGRvd24FAAAABkZBQ1RPUgkAAGUAAAACBQAAAAJ1cAUAAAAEZG93bgQAAAAFcERvd24JAABlAAAAAgUAAAAGRkFDVE9SBQAAAANwVXAEAAAAE2ZpcnN0UHJvamVjdGVkUHJpY2UJAABrAAAAAwkAAGgAAAACCQAAaAAAAAIFAAAAAVMJAABsAAAABgUAAAACdXAFAAAADkZBQ1RPUkRFQ0lNQUxTAAAAAAAAAAAEAAAAAAAAAAAABQAAAA5GQUNUT1JERUNJTUFMUwUAAAAGSEFMRlVQCQAAbAAAAAYFAAAABGRvd24FAAAADkZBQ1RPUkRFQ0lNQUxTAAAAAAAAAAAAAAAAAAAAAAAABQAAAA5GQUNUT1JERUNJTUFMUwUAAAAGSEFMRlVQAAAAAAAAAAABBQAAAAZGQUNUT1IEAAAAFHNlY29uZFByb2plY3RlZFByaWNlCQAAawAAAAMJAABoAAAAAgkAAGgAAAACBQAAAAFTCQAAbAAAAAYFAAAAAnVwBQAAAA5GQUNUT1JERUNJTUFMUwAAAAAAAAAAAwAAAAAAAAAAAAUAAAAORkFDVE9SREVDSU1BTFMFAAAABkhBTEZVUAkAAGwAAAAGBQAAAARkb3duBQAAAA5GQUNUT1JERUNJTUFMUwAAAAAAAAAAAQAAAAAAAAAAAAUAAAAORkFDVE9SREVDSU1BTFMFAAAABkhBTEZVUAAAAAAAAAAAAQUAAAAGRkFDVE9SBAAAABN0aGlyZFByb2plY3RlZFByaWNlCQAAawAAAAMJAABoAAAAAgkAAGgAAAACBQAAAAFTCQAAbAAAAAYFAAAAAnVwBQAAAA5GQUNUT1JERUNJTUFMUwAAAAAAAAAAAgAAAAAAAAAAAAUAAAAORkFDVE9SREVDSU1BTFMFAAAABkhBTEZVUAkAAGwAAAAGBQAAAARkb3duBQAAAA5GQUNUT1JERUNJTUFMUwAAAAAAAAAAAgAAAAAAAAAAAAUAAAAORkFDVE9SREVDSU1BTFMFAAAABkhBTEZVUAAAAAAAAAAAAQUAAAAGRkFDVE9SBAAAABRmb3VydGhQcm9qZWN0ZWRQcmljZQkAAGsAAAADCQAAaAAAAAIJAABoAAAAAgUAAAABUwkAAGwAAAAGBQAAAAJ1cAUAAAAORkFDVE9SREVDSU1BTFMAAAAAAAAAAAEAAAAAAAAAAAAFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAJAABsAAAABgUAAAAEZG93bgUAAAAORkFDVE9SREVDSU1BTFMAAAAAAAAAAAMAAAAAAAAAAAAFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAAAAAAAAAAAAEFAAAABkZBQ1RPUgQAAAATZmlmdGhQcm9qZWN0ZWRQcmljZQkAAGsAAAADCQAAaAAAAAIJAABoAAAAAgUAAAABUwkAAGwAAAAGBQAAAAJ1cAUAAAAORkFDVE9SREVDSU1BTFMAAAAAAAAAAAAAAAAAAAAAAAAFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAJAABsAAAABgUAAAAEZG93bgUAAAAORkFDVE9SREVDSU1BTFMAAAAAAAAAAAQAAAAAAAAAAAAFAAAADkZBQ1RPUkRFQ0lNQUxTBQAAAAZIQUxGVVAAAAAAAAAAAAEFAAAABkZBQ1RPUgQAAAAPZmlyc3RJbm5lclByaWNlAwkAAGYAAAACBQAAABNmaXJzdFByb2plY3RlZFByaWNlCQAAaAAAAAIFAAAAAUsFAAAABkZBQ1RPUgkAAGUAAAACBQAAABNmaXJzdFByb2plY3RlZFByaWNlCQAAaAAAAAIFAAAAAUsFAAAABkZBQ1RPUgAAAAAAAAAAAAQAAAAQc2Vjb25kSW5uZXJQcmljZQMJAABmAAAAAgUAAAAUc2Vjb25kUHJvamVjdGVkUHJpY2UJAABoAAAAAgUAAAABSwUAAAAGRkFDVE9SCQAAZQAAAAIFAAAAFHNlY29uZFByb2plY3RlZFByaWNlCQAAaAAAAAIFAAAAAUsFAAAABkZBQ1RPUgAAAAAAAAAAAAQAAAAPdGhpcmRJbm5lclByaWNlAwkAAGYAAAACBQAAABN0aGlyZFByb2plY3RlZFByaWNlCQAAaAAAAAIFAAAAAUsFAAAABkZBQ1RPUgkAAGUAAAACBQAAABN0aGlyZFByb2plY3RlZFByaWNlCQAAaAAAAAIFAAAAAUsFAAAABkZBQ1RPUgAAAAAAAAAAAAQAAAAQZm91cnRoSW5uZXJQcmljZQMJAABmAAAAAgUAAAAUZm91cnRoUHJvamVjdGVkUHJpY2UJAABoAAAAAgUAAAABSwUAAAAGRkFDVE9SCQAAZQAAAAIFAAAAFGZvdXJ0aFByb2plY3RlZFByaWNlBQAAAAFLAAAAAAAAAAAABAAAAA9maWZ0aElubmVyUHJpY2UDCQAAZgAAAAIFAAAAE2ZpZnRoUHJvamVjdGVkUHJpY2UJAABoAAAAAgUAAAABSwUAAAAGRkFDVE9SCQAAZQAAAAIFAAAAE2ZpZnRoUHJvamVjdGVkUHJpY2UFAAAAAUsAAAAAAAAAAAAEAAAAFGZpcnN0TGV2ZWxGaXJzdFZhbHVlCQAAawAAAAMJAABkAAAAAgkAAGsAAAADBQAAAA9maXJzdElubmVyUHJpY2UFAAAAA3BVcAUAAAAGRkFDVE9SCQAAawAAAAMFAAAAEHNlY29uZElubmVyUHJpY2UFAAAABXBEb3duBQAAAAZGQUNUT1IFAAAAAmRmBQAAAAZGQUNUT1IEAAAAFWZpcnN0TGV2ZWxTZWNvbmRWYWx1ZQkAAGsAAAADCQAAZAAAAAIJAABrAAAAAwUAAAAQc2Vjb25kSW5uZXJQcmljZQUAAAADcFVwBQAAAAZGQUNUT1IJAABrAAAAAwUAAAAPdGhpcmRJbm5lclByaWNlBQAAAAVwRG93bgUAAAAGRkFDVE9SBQAAAAJkZgUAAAAGRkFDVE9SBAAAABRmaXJzdExldmVsVGhpcmRWYWx1ZQkAAGsAAAADCQAAZAAAAAIJAABrAAAAAwUAAAAPdGhpcmRJbm5lclByaWNlBQAAAANwVXAFAAAABkZBQ1RPUgkAAGsAAAADBQAAABBmb3VydGhJbm5lclByaWNlBQAAAAVwRG93bgUAAAAGRkFDVE9SBQAAAAJkZgUAAAAGRkFDVE9SBAAAABVmaXJzdExldmVsRm91cnRoVmFsdWUJAABrAAAAAwkAAGQAAAACCQAAawAAAAMFAAAAEGZvdXJ0aElubmVyUHJpY2UFAAAAA3BVcAUAAAAGRkFDVE9SCQAAawAAAAMFAAAAD2ZpZnRoSW5uZXJQcmljZQUAAAAFcERvd24FAAAABkZBQ1RPUgUAAAACZGYFAAAABkZBQ1RPUgQAAAAVc2Vjb25kTGV2ZWxGaXJzdFZhbHVlCQAAaAAAAAIJAABkAAAAAgkAAGsAAAADBQAAABRmaXJzdExldmVsRmlyc3RWYWx1ZQUAAAADcFVwCQAAaAAAAAIFAAAABkZBQ1RPUgUAAAAGRkFDVE9SCQAAawAAAAMFAAAAFWZpcnN0TGV2ZWxTZWNvbmRWYWx1ZQUAAAAFcERvd24JAABoAAAAAgUAAAAGRkFDVE9SBQAAAAZGQUNUT1IFAAAAAmRmBAAAABZzZWNvbmRMZXZlbFNlY29uZFZhbHVlCQAAaAAAAAIJAABkAAAAAgkAAGsAAAADBQAAABVmaXJzdExldmVsU2Vjb25kVmFsdWUFAAAAA3BVcAkAAGgAAAACBQAAAAZGQUNUT1IFAAAABkZBQ1RPUgkAAGsAAAADBQAAABRmaXJzdExldmVsVGhpcmRWYWx1ZQUAAAAFcERvd24JAABoAAAAAgUAAAAGRkFDVE9SBQAAAAZGQUNUT1IFAAAAAmRmBAAAABVzZWNvbmRMZXZlbFRoaXJkVmFsdWUJAABoAAAAAgkAAGQAAAACCQAAawAAAAMFAAAAFGZpcnN0TGV2ZWxUaGlyZFZhbHVlBQAAAANwVXAJAABoAAAAAgUAAAAGRkFDVE9SBQAAAAZGQUNUT1IJAABrAAAAAwUAAAAVZmlyc3RMZXZlbEZvdXJ0aFZhbHVlBQAAAAVwRG93bgkAAGgAAAACBQAAAAZGQUNUT1IFAAAABkZBQ1RPUgUAAAACZGYEAAAAFHRoaXJkTGV2ZWxGaXJzdFZhbHVlCQAAaAAAAAIJAABkAAAAAgkAAGsAAAADBQAAABVzZWNvbmRMZXZlbEZpcnN0VmFsdWUFAAAAA3BVcAkAAGgAAAACBQAAAAZGQUNUT1IFAAAABkZBQ1RPUgkAAGsAAAADBQAAABZzZWNvbmRMZXZlbFNlY29uZFZhbHVlBQAAAAVwRG93bgkAAGgAAAACBQAAAAZGQUNUT1IFAAAABkZBQ1RPUgUAAAACZGYEAAAAFXRoaXJkTGV2ZWxTZWNvbmRWYWx1ZQkAAGgAAAACCQAAZAAAAAIJAABrAAAAAwUAAAAWc2Vjb25kTGV2ZWxTZWNvbmRWYWx1ZQUAAAADcFVwCQAAaAAAAAIFAAAABkZBQ1RPUgUAAAAGRkFDVE9SCQAAawAAAAMFAAAAFXNlY29uZExldmVsVGhpcmRWYWx1ZQUAAAAFcERvd24JAABoAAAAAgUAAAAGRkFDVE9SBQAAAAZGQUNUT1IFAAAAAmRmBAAAAAtmb3VydGhMZXZlbAkAAGgAAAACCQAAZAAAAAIJAABrAAAAAwUAAAAUdGhpcmRMZXZlbEZpcnN0VmFsdWUFAAAAA3BVcAkAAGgAAAACBQAAAAZGQUNUT1IFAAAABkZBQ1RPUgkAAGsAAAADBQAAABV0aGlyZExldmVsU2Vjb25kVmFsdWUFAAAABXBEb3duCQAAaAAAAAIFAAAABkZBQ1RPUgUAAAAGRkFDVE9SBQAAAAJkZgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAGZGVsdGFUBQAAAAZkZWx0YVQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAACnNxcnREZWx0YVQFAAAACnNxcnREZWx0YVQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAAnVwBQAAAAJ1cAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAEZG93bgUAAAAEZG93bgkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAACZGYFAAAAAmRmCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAANwVXAFAAAAA3BVcAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAFcERvd24FAAAABXBEb3duCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAA9maXJzdElubmVyUHJpY2UFAAAAD2ZpcnN0SW5uZXJQcmljZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAQc2Vjb25kSW5uZXJQcmljZQUAAAAQc2Vjb25kSW5uZXJQcmljZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgIAAAAPdGhpcmRJbm5lclByaWNlBQAAAA90aGlyZElubmVyUHJpY2UJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAEGZvdXJ0aElubmVyUHJpY2UFAAAAEGZvdXJ0aElubmVyUHJpY2UJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAAD2ZpZnRoSW5uZXJQcmljZQUAAAAPZmlmdGhJbm5lclByaWNlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAABRmaXJzdExldmVsRmlyc3RWYWx1ZQUAAAAUZmlyc3RMZXZlbEZpcnN0VmFsdWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAICAAAACmZpbmFsVmFsdWUFAAAAC2ZvdXJ0aExldmVsBQAAAANuaWwAAAAAyW7nsg==",
    "chainId": 84,
    "height": 844832,
    "spentComplexity": 0
}

View: original | compacted
Prev: 99N6b4DGkP9RYritUPnQQ8BGLviWTBoWDrjZ3pwgscmz
Next: kjoLnBMSUCg7zaFd97oiHKG2BB2PLaFAAzwwVu9pLkh

Diff: 
Old New Differences
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 -     let firstLevelSecondValue = ((fraction(secondInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(thirdInnerPrice, pDown, (FACTOR * FACTOR))) * df)
41 -     let firstLevelThirdValue = ((fraction(thirdInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(fourthInnerPrice, pDown, (FACTOR * FACTOR))) * df)
42 -     let firstLevelFourthValue = ((fraction(fourthInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(fifthInnerPrice, pDown, (FACTOR * FACTOR))) * df)
40 +     let firstLevelSecondValue = fraction((fraction(secondInnerPrice, pUp, FACTOR) + fraction(thirdInnerPrice, pDown, FACTOR)), df, FACTOR)
41 +     let firstLevelThirdValue = fraction((fraction(thirdInnerPrice, pUp, FACTOR) + fraction(fourthInnerPrice, pDown, FACTOR)), df, FACTOR)
42 +     let firstLevelFourthValue = fraction((fraction(fourthInnerPrice, pUp, FACTOR) + fraction(fifthInnerPrice, pDown, FACTOR)), df, FACTOR)
43 43      let secondLevelFirstValue = ((fraction(firstLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
44 44      let secondLevelSecondValue = ((fraction(firstLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelThirdValue, pDown, (FACTOR * FACTOR))) * df)
45 45      let secondLevelThirdValue = ((fraction(firstLevelThirdValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelFourthValue, pDown, (FACTOR * FACTOR))) * df)
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 -     let firstLevelSecondValue = ((fraction(secondInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(thirdInnerPrice, pDown, (FACTOR * FACTOR))) * df)
41 -     let firstLevelThirdValue = ((fraction(thirdInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(fourthInnerPrice, pDown, (FACTOR * FACTOR))) * df)
42 -     let firstLevelFourthValue = ((fraction(fourthInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(fifthInnerPrice, pDown, (FACTOR * FACTOR))) * df)
40 +     let firstLevelSecondValue = fraction((fraction(secondInnerPrice, pUp, FACTOR) + fraction(thirdInnerPrice, pDown, FACTOR)), df, FACTOR)
41 +     let firstLevelThirdValue = fraction((fraction(thirdInnerPrice, pUp, FACTOR) + fraction(fourthInnerPrice, pDown, FACTOR)), df, FACTOR)
42 +     let firstLevelFourthValue = fraction((fraction(fourthInnerPrice, pUp, FACTOR) + fraction(fifthInnerPrice, pDown, FACTOR)), df, FACTOR)
43 43      let secondLevelFirstValue = ((fraction(firstLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
44 44      let secondLevelSecondValue = ((fraction(firstLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelThirdValue, pDown, (FACTOR * FACTOR))) * df)
45 45      let secondLevelThirdValue = ((fraction(firstLevelThirdValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelFourthValue, pDown, (FACTOR * FACTOR))) * df)
46 46      let thirdLevelFirstValue = ((fraction(secondLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
47 47      let thirdLevelSecondValue = ((fraction(secondLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelThirdValue, pDown, (FACTOR * FACTOR))) * df)
48 48      let fourthLevel = ((fraction(thirdLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(thirdLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
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
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		-	let firstLevelSecondValue = ((fraction(secondInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(thirdInnerPrice, pDown, (FACTOR * FACTOR)~~)) * df)~~
41		-	let firstLevelThirdValue = ((fraction(thirdInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(fourthInnerPrice, pDown, (FACTOR * FACTOR)~~)) * df)~~
42		-	let firstLevelFourthValue = ((fraction(fourthInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(fifthInnerPrice, pDown, (FACTOR * FACTOR)~~)) * df)~~
	40	+	let firstLevelSecondValue = fraction((fraction(secondInnerPrice, pUp, FACTOR) + fraction(thirdInnerPrice, pDown, FACTOR)), df, FACTOR)
	41	+	let firstLevelThirdValue = fraction((fraction(thirdInnerPrice, pUp, FACTOR) + fraction(fourthInnerPrice, pDown, FACTOR)), df, FACTOR)
	42	+	let firstLevelFourthValue = fraction((fraction(fourthInnerPrice, pUp, FACTOR) + fraction(fifthInnerPrice, pDown, FACTOR)), df, FACTOR)
43	43		let secondLevelFirstValue = ((fraction(firstLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
44	44		let secondLevelSecondValue = ((fraction(firstLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelThirdValue, pDown, (FACTOR * FACTOR))) * df)
45	45		let secondLevelThirdValue = ((fraction(firstLevelThirdValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelFourthValue, pDown, (FACTOR * FACTOR))) * df)

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		-	let firstLevelSecondValue = ((fraction(secondInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(thirdInnerPrice, pDown, (FACTOR * FACTOR)~~)) * df)~~
41		-	let firstLevelThirdValue = ((fraction(thirdInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(fourthInnerPrice, pDown, (FACTOR * FACTOR)~~)) * df)~~
42		-	let firstLevelFourthValue = ((fraction(fourthInnerPrice, pUp, (FACTOR * FACTOR)) + fraction(fifthInnerPrice, pDown, (FACTOR * FACTOR)~~)) * df)~~
	40	+	let firstLevelSecondValue = fraction((fraction(secondInnerPrice, pUp, FACTOR) + fraction(thirdInnerPrice, pDown, FACTOR)), df, FACTOR)
	41	+	let firstLevelThirdValue = fraction((fraction(thirdInnerPrice, pUp, FACTOR) + fraction(fourthInnerPrice, pDown, FACTOR)), df, FACTOR)
	42	+	let firstLevelFourthValue = fraction((fraction(fourthInnerPrice, pUp, FACTOR) + fraction(fifthInnerPrice, pDown, FACTOR)), df, FACTOR)
43	43		let secondLevelFirstValue = ((fraction(firstLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
44	44		let secondLevelSecondValue = ((fraction(firstLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelThirdValue, pDown, (FACTOR * FACTOR))) * df)
45	45		let secondLevelThirdValue = ((fraction(firstLevelThirdValue, pUp, (FACTOR * FACTOR)) + fraction(firstLevelFourthValue, pDown, (FACTOR * FACTOR))) * df)
46	46		let thirdLevelFirstValue = ((fraction(secondLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
47	47		let thirdLevelSecondValue = ((fraction(secondLevelSecondValue, pUp, (FACTOR * FACTOR)) + fraction(secondLevelThirdValue, pDown, (FACTOR * FACTOR))) * df)
48	48		let fourthLevel = ((fraction(thirdLevelFirstValue, pUp, (FACTOR * FACTOR)) + fraction(thirdLevelSecondValue, pDown, (FACTOR * FACTOR))) * df)
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 
29.35 ms ◑