w8 · tx · 3kF···ofH

tx · 3kF9AxHDzVz68nbg1DFk2YVE4UFbtCSYNDcc6HgKfofH

3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t:  -0.05000000 Waves

2021.01.29 17:32 [1374881] smart account 3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "3kF9AxHDzVz68nbg1DFk2YVE4UFbtCSYNDcc6HgKfofH",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1611930829890,
    "version": 2,
    "chainId": 84,
    "sender": "3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t",
    "senderPublicKey": "Bo16mjUNTGCeZDYvQc6gHh46P21B3DqYCHoDt9CyzxHf",
    "proofs": [
        "3Y9ChZCPYDDQXUWD15TjMQP9jrLKWNNey5ZJa2CFUwXL7QNMQvF3mUegk9qNkzzCNFS8W7SoQEqcXc1XhdRBbKY3"
    ],
    "script": "base64:AAIEAAAAAAAAAAkIAhIAEgMKAQEAAAALAAAAAAFlAAAAAAAQM8TWAAAAAA5rd290YXJvd25vd2FnaQAAAAkYTnKgAAAAAAAEYmF6YQkAAGgAAAACBQAAAA5rd290YXJvd25vd2FnaQAAAAAAAAAAEgAAAAAGcG96aW9tCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAAZQb3ppb20AAAAACmJhbGFuc1VTRE4JAABoAAAAAgkAA/AAAAACBQAAAAR0aGlzAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgAAAAAAAAAAZAAAAAAKYmFsYW5zVVNEVAkAAGgAAAACCQAD8AAAAAIFAAAABHRoaXMBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOAAAAAAAAAABkAQAAAAJsbgAAAAEAAAABeAkAAG0AAAAGBQAAAAF4AAAAAAAAAAAIBQAAAAFlAAAAAAAAAAAIAAAAAAAAAAAIBQAAAARET1dOAQAAAANleHAAAAABAAAAAXgJAABsAAAABgUAAAABZQAAAAAAAAAACAUAAAABeAAAAAAAAAAACAAAAAAAAAAACAUAAAAERE9XTgEAAAAIbW5vemVuaWUAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4BQAAAAF5AAAAAAAF9eEAAQAAAAlkemllbGVuaWUAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4AAAAAAAF9eEABQAAAAF5AQAAAAhXTGFtYmVydAAAAAEAAAABeAkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAAAXgJAQAAAANleHAAAAABBQAAAAF4AAAAAgAAAAFpAQAAABBVU0RUbmFVU0RObmFVU0RUAAAAAAQAAAAGb3BsYXRhCQAAawAAAAMICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAABAAAAAAAAAAnEAQAAAAMa3dvdGF3eW1pYW55CQAAawAAAAMJAABlAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BQAAAAZvcGxhdGEAAAAAAAAAAGQAAAAAAAAAAAEDCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOAwkAAGYAAAACBQAAAAxrd290YXd5bWlhbnkJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRFQDCQAAZwAAAAIFAAAACmJhbGFuc1VTRFQFAAAADmt3b3Rhcm93bm93YWdpBAAAAApub3d5cG96aW9tCQAAZAAAAAIFAAAABnBvemlvbQUAAAAMa3dvdGF3eW1pYW55BAAAAAd3eXBsYXRhCQEAAAAIbW5vemVuaWUAAAACBQAAAARiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAABnBvemlvbQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAABBQAAAANuaWwEAAAABmN6ZXNjMQkAAGUAAAACBQAAAA5rd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNEVAQAAAAKbm93eXBvemlvbQkAAGUAAAACCQAAZAAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAAMa3dvdGF3eW1pYW55BQAAAARiYXphBQAAAA5rd290YXJvd25vd2FnaQQAAAAHd3lwbGF0YQkAAGUAAAACCQAAZAAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAEYmF6YQUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABmN6ZXNjMQUAAAAEYmF6YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAACBQAAAANuaWwEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQQAAAAKbm93eXBvemlvbQkAAGUAAAACBQAAAAZwb3ppb20FAAAAB3d5cGxhdGEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAwUAAAADbmlsAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgMJAABmAAAAAgUAAAAMa3dvdGF3eW1pYW55CQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0ROAwkAAGcAAAACBQAAAApiYWxhbnNVU0ROBQAAAA5rd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACBQAAAAZwb3ppb20FAAAADGt3b3Rhd3ltaWFueQQAAAAHd3lwbGF0YQkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAAZwb3ppb20JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAACwUAAAADbmlsBAAAAAZjemVzYzEJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRE4EAAAACm5vd3lwb3ppb20JAABlAAAAAgkAAGQAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQUAAAAOa3dvdGFyb3dub3dhZ2kEAAAAB3d5cGxhdGEJAABlAAAAAgkAAGQAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAARiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAABGJhemEFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAZjemVzYzEFAAAABGJhemEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAFQUAAAADbmlsBAAAAAd3eXBsYXRhCQAAZQAAAAIFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEEAAAACm5vd3lwb3ppb20JAABlAAAAAgUAAAAGcG96aW9tBQAAAAd3eXBsYXRhCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAB8FAAAAA25pbAkAAAIAAAABAgAAABVOaWVvYnPFgnVnaXdhbnkgYXNzZXQAAAABaQEAAAANV0xhbWJlcnR2YWx1ZQAAAAEAAAABeAQAAAAFd3luaWsJAQAAAAhXTGFtYmVydAAAAAEFAAAAAXgJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADVdMYW1iZXJ0dmFsdWUFAAAABXd5bmlrBQAAAANuaWwAAAAA9ctp/Q==",
    "height": 1374881,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Ehi8EqHeRf7gefeTcYNhAX1is71Vwh99T1REwinS9dzA
Next: C1CRR8LrvRdq1QvWtRbR7bRfQRcN1SzEbV3GBoZJYskJ

Diff: 
Old New Differences
25 25  func dzielenie (x,y) = fraction(x, 100000000, y)
26 26  
27 27  
28 - func WLambert (x) = dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(x))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
28 + func WLambert (x) = dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(x))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
29 29  
30 30  
31 31  @Callable(i)
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 4 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let e = 271828182
5 5  
6 6  let kwotarownowagi = 10000000000000
7 7  
8 8  let baza = (kwotarownowagi * 18)
9 9  
10 10  let poziom = getIntegerValue(this, "Poziom")
11 11  
12 12  let balansUSDN = (assetBalance(this, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d') * 100)
13 13  
14 14  let balansUSDT = (assetBalance(this, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y') * 100)
15 15  
16 16  func ln (x) = log(x, 8, e, 8, 8, DOWN)
17 17  
18 18  
19 19  func exp (x) = pow(e, 8, x, 8, 8, DOWN)
20 20  
21 21  
22 22  func mnozenie (x,y) = fraction(x, y, 100000000)
23 23  
24 24  
25 25  func dzielenie (x,y) = fraction(x, 100000000, y)
26 26  
27 27  
28 - func WLambert (x) = dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(x))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
28 + func WLambert (x) = dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(x))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
29 29  
30 30  
31 31  @Callable(i)
32 32  func USDTnaUSDNnaUSDT () = {
33 33      let oplata = fraction(i.payments[0].amount, 4, 10000)
34 34      let kwotawymiany = fraction((i.payments[0].amount - oplata), 100, 1)
35 35      if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
36 36          then if ((kwotawymiany > (kwotarownowagi - balansUSDT)))
37 37              then if ((balansUSDT >= kwotarownowagi))
38 38                  then {
39 39                      let nowypoziom = (poziom + kwotawymiany)
40 40                      let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
41 41  [ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 1)]
42 42                      }
43 43                  else {
44 44                      let czesc1 = (kwotarownowagi - balansUSDT)
45 45                      let nowypoziom = (((balansUSDT + kwotawymiany) + baza) - kwotarownowagi)
46 46                      let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
47 47  [ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 2)]
48 48                      }
49 49              else {
50 50                  let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
51 51                  let nowypoziom = (poziom - wyplata)
52 52  [ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 3)]
53 53                  }
54 54          else if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
55 55              then if ((kwotawymiany > (kwotarownowagi - balansUSDN)))
56 56                  then if ((balansUSDN >= kwotarownowagi))
57 57                      then {
58 58                          let nowypoziom = (poziom + kwotawymiany)
59 59                          let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
60 60  [ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 11)]
61 61                          }
62 62                      else {
63 63                          let czesc1 = (kwotarownowagi - balansUSDN)
64 64                          let nowypoziom = (((balansUSDN + kwotawymiany) + baza) - kwotarownowagi)
65 65                          let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
66 66  [ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 21)]
67 67                          }
68 68                  else {
69 69                      let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
70 70                      let nowypoziom = (poziom - wyplata)
71 71  [ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 31)]
72 72                      }
73 73              else throw("Nieobsługiwany asset")
74 74      }
75 75  
76 76  
77 77  
78 78  @Callable(i)
79 79  func WLambertvalue (x) = {
80 80      let wynik = WLambert(x)
81 81  [IntegerEntry("WLambertvalue", wynik)]
82 82      }
83 83  
84 84

Old	New		Differences
25	25		func dzielenie (x,y) = fraction(x, 100000000, y)
26	26
27	27
28		-	func WLambert (x) = dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(x))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
	28	+	func WLambert (x) = dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(x))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
29	29
30	30
31	31		@Callable(i)

Old	New		Differences
1	1		{-# STDLIB_VERSION 4 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let e = 271828182
5	5
6	6		let kwotarownowagi = 10000000000000
7	7
8	8		let baza = (kwotarownowagi * 18)
9	9
10	10		let poziom = getIntegerValue(this, "Poziom")
11	11
12	12		let balansUSDN = (assetBalance(this, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d') * 100)
13	13
14	14		let balansUSDT = (assetBalance(this, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y') * 100)
15	15
16	16		func ln (x) = log(x, 8, e, 8, 8, DOWN)
17	17
18	18
19	19		func exp (x) = pow(e, 8, x, 8, 8, DOWN)
20	20
21	21
22	22		func mnozenie (x,y) = fraction(x, y, 100000000)
23	23
24	24
25	25		func dzielenie (x,y) = fraction(x, 100000000, y)
26	26
27	27
28		-	func WLambert (x) = dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(x))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
	28	+	func WLambert (x) = dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(dzielenie(x, exp(x))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
29	29
30	30
31	31		@Callable(i)
32	32		func USDTnaUSDNnaUSDT () = {
33	33		let oplata = fraction(i.payments[0].amount, 4, 10000)
34	34		let kwotawymiany = fraction((i.payments[0].amount - oplata), 100, 1)
35	35		if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
36	36		then if ((kwotawymiany > (kwotarownowagi - balansUSDT)))
37	37		then if ((balansUSDT >= kwotarownowagi))
38	38		then {
39	39		let nowypoziom = (poziom + kwotawymiany)
40	40		let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
41	41		[ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 1)]
42	42		}
43	43		else {
44	44		let czesc1 = (kwotarownowagi - balansUSDT)
45	45		let nowypoziom = (((balansUSDT + kwotawymiany) + baza) - kwotarownowagi)
46	46		let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
47	47		[ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 2)]
48	48		}
49	49		else {
50	50		let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
51	51		let nowypoziom = (poziom - wyplata)
52	52		[ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 3)]
53	53		}
54	54		else if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
55	55		then if ((kwotawymiany > (kwotarownowagi - balansUSDN)))
56	56		then if ((balansUSDN >= kwotarownowagi))
57	57		then {
58	58		let nowypoziom = (poziom + kwotawymiany)
59	59		let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
60	60		[ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Warunek", 11)]
61	61		}
62	62		else {
63	63		let czesc1 = (kwotarownowagi - balansUSDN)
64	64		let nowypoziom = (((balansUSDN + kwotawymiany) + baza) - kwotarownowagi)
65	65		let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
66	66		[ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 21)]
67	67		}
68	68		else {
69	69		let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
70	70		let nowypoziom = (poziom - wyplata)
71	71		[ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), ScriptTransfer(addressFromStringValue("3MreQWCMA3vhziCq8yMCf9BdBmHcZGrbW4S"), oplata, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), IntegerEntry("Wyplata", fraction(wyplata, 1, 100)), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek", 31)]
72	72		}
73	73		else throw("Nieobsługiwany asset")
74	74		}
75	75
76	76
77	77
78	78		@Callable(i)
79	79		func WLambertvalue (x) = {
80	80		let wynik = WLambert(x)
81	81		[IntegerEntry("WLambertvalue", wynik)]
82	82		}
83	83
84	84

github/deemru/w8io/873ac7e 
107.00 ms ◑