w8 · tx · DRd···22G

tx · DRdvNpRGhTopXdxnyN7umvFzPFyT4ppdDMg7W84C622G

3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t:  -0.05000000 Waves

2021.02.01 23:10 [1379568] smart account 3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "DRdvNpRGhTopXdxnyN7umvFzPFyT4ppdDMg7W84C622G",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1612210263633,
    "version": 2,
    "chainId": 84,
    "sender": "3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t",
    "senderPublicKey": "Bo16mjUNTGCeZDYvQc6gHh46P21B3DqYCHoDt9CyzxHf",
    "proofs": [
        "4GM1tMrUEPdzFtxgmtjM5rRsZi2LqPN35vA7T9v1eYRmLvMFSjcfVubqezcZ8DnocnCMnAuRLbRUGZSNjtgVzKn7"
    ],
    "script": "base64:AAIEAAAAAAAAAAwIAhIAEgASABIAEgAAAAAOAAAAAAFlAAAAAAAQM8TWAAAAAA5rd290YXJvd25vd2FnaQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAOa3dvdGFyb3dub3dhZ2kAAAAABGJhemEJAABoAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kAAAAAAAAAABIAAAAAB2VuYWJsZWQJAAQaAAAAAgUAAAAEdGhpcwIAAAAHZW5hYmxlZAAAAAAGcG96aW9tCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAAZQb3ppb20AAAAACmJhbGFuc1VTRE4JAABoAAAAAgkAA/AAAAACBQAAAAR0aGlzAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgAAAAAAAAAAZAAAAAAKYmFsYW5zVVNEVAkAAGgAAAACCQAD8AAAAAIFAAAABHRoaXMBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOAAAAAAAAAABkAQAAAAJsbgAAAAEAAAABeAkAAG0AAAAGBQAAAAF4AAAAAAAAAAAIBQAAAAFlAAAAAAAAAAAIAAAAAAAAAAAIBQAAAARET1dOAQAAAANleHAAAAABAAAAAXgJAABsAAAABgUAAAABZQAAAAAAAAAACAUAAAABeAAAAAAAAAAACAAAAAAAAAAACAUAAAAERE9XTgEAAAAIbW5vemVuaWUAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4BQAAAAF5AAAAAAAF9eEAAQAAAAlkemllbGVuaWUAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4AAAAAAAF9eEABQAAAAF5AQAAAAZIYWxsZXkAAAACAAAAAXgAAAABdwQAAAAGd1RpbWVzCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAAAXcJAQAAAANleHAAAAABBQAAAAF3BQAAAAF4BAAAAA13UGx1c09uZVRpbWVzCQEAAAAIbW5vemVuaWUAAAACCQAAZAAAAAIFAAAAAXcAAAAAAAX14QAJAQAAAANleHAAAAABBQAAAAF3AwkBAAAAAiE9AAAAAgUAAAAGd1RpbWVzAAAAAAAAAAAACQAAZQAAAAIFAAAAAXcJAQAAAAlkemllbGVuaWUAAAACBQAAAAZ3VGltZXMJAABlAAAAAgUAAAANd1BsdXNPbmVUaW1lcwkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABkAAAAAgUAAAABdwAAAAAAC+vCAAUAAAAGd1RpbWVzCQAAZAAAAAIJAABoAAAAAgAAAAAAAAAAAgUAAAABdwAAAAAAC+vCAAUAAAABdwEAAAARY29udGludWVkZnJhY3Rpb24AAAABAAAAAXgJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAX14QAJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAX14QAJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAvrwgAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAAAUJAABkAAAAAgAAAAAAEeGjAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAAEQkAAGQAAAACAAAAAAA7msoACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAAACFCQAAZAAAAAIAAAAAAGVT8QAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAB4cJAABkAAAAAgAAAAAAcT+zAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAM9BdwAAAAiWdO/3AAEAAAAJTGFtYmVydFcwAAAAAQAAAAF4CQEAAAAGSGFsbGV5AAAAAgUAAAABeAkBAAAAEWNvbnRpbnVlZGZyYWN0aW9uAAAAAQUAAAABeAAAAAUAAAABaQEAAAAQVVNEVG5hVVNETm5hVVNEVAAAAAAEAAAABm9wbGF0YQkAAGsAAAADCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQAAAAAAAAAAAQAAAAAAAAAJxAEAAAADGt3b3Rhd3ltaWFueQkAAGsAAAADCQAAZQAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAUAAAAGb3BsYXRhAAAAAAAAAABkAAAAAAAAAAABAwkAAAAAAAACBQAAAAdlbmFibGVkAAAAAAAAAAABAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgMJAABmAAAAAgUAAAAMa3dvdGF3eW1pYW55CQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0RUAwkAAGcAAAACBQAAAApiYWxhbnNVU0RUBQAAAA5rd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACBQAAAAZwb3ppb20FAAAADGt3b3Rhd3ltaWFueQQAAAAHd3lwbGF0YQkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAAZwb3ppb20JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAQUAAAADbmlsBAAAAAZjemVzYzEJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRFQEAAAACm5vd3lwb3ppb20JAABlAAAAAgkAAGQAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQUAAAAOa3dvdGFyb3dub3dhZ2kEAAAAB3d5cGxhdGEJAABlAAAAAgkAAGQAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAARiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAABGJhemEFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAZjemVzYzEFAAAABGJhemEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAgUAAAADbmlsBAAAAAd3eXBsYXRhCQAAZQAAAAIFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEEAAAACm5vd3lwb3ppb20JAABlAAAAAgUAAAAGcG96aW9tBQAAAAd3eXBsYXRhCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAAMFAAAAA25pbAMJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oDCQAAZgAAAAIFAAAADGt3b3Rhd3ltaWFueQkAAGUAAAACBQAAAA5rd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNETgMJAABnAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAOa3dvdGFyb3dub3dhZ2kEAAAACm5vd3lwb3ppb20JAABkAAAAAgUAAAAGcG96aW9tBQAAAAxrd290YXd5bWlhbnkEAAAAB3d5cGxhdGEJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAGcG96aW9tCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAAsFAAAAA25pbAQAAAAGY3plc2MxCQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0ROBAAAAApub3d5cG96aW9tCQAAZQAAAAIJAABkAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEFAAAADmt3b3Rhcm93bm93YWdpBAAAAAd3eXBsYXRhCQAAZQAAAAIJAABkAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAARiYXphBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGY3plc2MxBQAAAARiYXphCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAABUFAAAAA25pbAQAAAAHd3lwbGF0YQkAAGUAAAACBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAMa3dvdGF3eW1pYW55BQAAAARiYXphBAAAAApub3d5cG96aW9tCQAAZQAAAAIFAAAABnBvemlvbQUAAAAHd3lwbGF0YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAAfBQAAAANuaWwJAAACAAAAAQIAAAAVTmllb2JzxYJ1Z2l3YW55IGFzc2V0CQAAAgAAAAECAAAAH0tvbnRyYWt0IHR5bWN6YXNvd28gd3nFgsSFY3pvbnkAAAABaQEAAAAOSW53ZXN0eWNqYVVTRE4AAAAAAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgQAAAAGd3BsYXRhCQAAaAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAAZAMJAABmAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEFAAAACmJhbGFuc1VTRFQEAAAAAmIxBQAAAApiYWxhbnNVU0RUBAAAAAJiMgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgkAAGQAAAACBQAAAAJiMgkAAGsAAAADAAAAAAAAAAARBQAAAAJiMQAAAAAAAAAAAQkAAGsAAAADAAAAAAAAAAASBQAAAAJiMgAAAAAAAAAAAQQAAAACVzAJAQAAAAlMYW1iZXJ0VzAAAAABBQAAAAFhBAAAAAhub3dhYmF6YQkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAACQUAAAACYjEFAAAAAmIyCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgUAAAACVzAAAAAAAAAAAAkFAAAAAmIyCQEAAAAJZHppZWxlbmllAAAAAgkAAGsAAAADAAAAAAAAAAARBQAAAAJiMQAAAAAAAAAAAQAAAAAAC+vCAAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kFAAAACG5vd2FiYXphCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8JAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAYJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPBQAAAANuaWwEAAAAAmIxCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQQAAAACYjIFAAAACmJhbGFuc1VTRFQEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgkAAGQAAAACBQAAAAJiMgkAAGsAAAADAAAAAAAAAAARBQAAAAJiMQAAAAAAAAAAAQkAAGsAAAADAAAAAAAAAAASBQAAAAJiMgAAAAAAAAAAAQQAAAACVzAJAQAAAAlMYW1iZXJ0VzAAAAABBQAAAAFhBAAAAAhub3dhYmF6YQkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAACQUAAAACYjEFAAAAAmIyCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgUAAAACVzAAAAAAAAAAAAkFAAAAAmIyCQEAAAAJZHppZWxlbmllAAAAAgkAAGsAAAADAAAAAAAAAAARBQAAAAJiMQAAAAAAAAAAAQAAAAAAC+vCAAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAATbm93eXBvemlvbXJvd25vd2FnaQUAAAAIbm93YWJhemEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAAB1JlaXNzdWUAAAADAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8FAAAAA25pbAkAAAIAAAABAgAAACpEbyB0ZWogZnVua2NqaSBtb3plc3ogd3DFgmFjYcSHIHR5bGtvIFVTRE4AAAABaQEAAAAOSW53ZXN0eWNqYVVTRFQAAAAAAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgQAAAAGd3BsYXRhCQAAaAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAAZAMJAABmAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAACmJhbGFuc1VTRE4EAAAAAmIxBQAAAApiYWxhbnNVU0ROBAAAAAJiMgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgkAAGQAAAACBQAAAAJiMgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQkAAGgAAAACAAAAAAAAAAASBQAAAAJiMgQAAAACVzAJAQAAAAlMYW1iZXJ0VzAAAAABBQAAAAFhBAAAAAhub3dhYmF6YQkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAACQUAAAACYjEFAAAAAmIyCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgUAAAACVzAAAAAAAAAAAAkFAAAAAmIyCQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQAAAAAAC+vCAAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kFAAAACG5vd2FiYXphCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8JAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAYJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPBQAAAANuaWwEAAAAAmIxCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQQAAAACYjIFAAAACmJhbGFuc1VTRE4EAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgkAAGQAAAACBQAAAAJiMgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQkAAGgAAAACAAAAAAAAAAASBQAAAAJiMgQAAAACVzAJAQAAAAlMYW1iZXJ0VzAAAAABBQAAAAFhBAAAAAhub3dhYmF6YQkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgAAAAAAAAAACQUAAAACYjEFAAAAAmIyCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABoAAAAAgUAAAACVzAAAAAAAAAAAAkFAAAAAmIyCQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACAAAAAAAAAAARBQAAAAJiMQAAAAAAC+vCAAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNETgUAAAATbm93eXBvemlvbXJvd25vd2FnaQUAAAAIbm93YWJhemEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAAB1JlaXNzdWUAAAADAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8FAAAAA25pbAkAAAIAAAABAgAAACpEbyB0ZWogZnVua2NqaSBtb3plc3ogd3DFgmFjYcSHIHR5bGtvIFVTRFQAAAABaQEAAAALV3lwbGF0YVVTRE4AAAAAAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwQAAAAFa3dvdGEJAABoAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50AAAAAAAAAABkBAAAAAhub3dhYmF6YQkAAGUAAAACBQAAAARiYXphCQAAaAAAAAIFAAAABWt3b3RhAAAAAAAAAAAJBAAAABJub3dha3dvdGFyb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIDCQAAZgAAAAIFAAAACmJhbGFuc1VTRFQFAAAAEm5vd2Frd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACCQAAZQAAAAIFAAAACmJhbGFuc1VTRFQFAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAIbm93YWJhemEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIFAAAACG5vd2FiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAACG5vd2FiYXphBAAAAAd3eXBsYXRhCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAAFhCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAARCdXJuAAAAAgEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8ICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAUAAAADbmlsBAAAAAFrCQAAZQAAAAIFAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNEVAQAAAAKbm93eXBvemlvbQkBAAAACG1ub3plbmllAAAAAgUAAAAIbm93YWJhemEJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABawUAAAAIbm93YWJhemEEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAKYmFsYW5zVVNETgkAAGQAAAACCQAAZQAAAAIFAAAACm5vd3lwb3ppb20FAAAACG5vd2FiYXphBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAABEJ1cm4AAAACAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BQAAAANuaWwJAAACAAAAAQIAAAAdTW96ZXN6IHdwxYJhY2ljIHR5bGtvIHByb3RvbmEAAAABaQEAAAALV3lwbGF0YVVTRFQAAAAAAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwQAAAAFa3dvdGEJAABoAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50AAAAAAAAAABkBAAAAAhub3dhYmF6YQkAAGUAAAACBQAAAARiYXphCQAAaAAAAAIFAAAABWt3b3RhAAAAAAAAAAAJBAAAABJub3dha3dvdGFyb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIDCQAAZgAAAAIFAAAACmJhbGFuc1VTRE4FAAAAEm5vd2Frd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACCQAAZQAAAAIFAAAACmJhbGFuc1VTRE4FAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAIbm93YWJhemEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIFAAAACG5vd2FiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAACG5vd2FiYXphBAAAAAd3eXBsYXRhCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAAFhCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAARCdXJuAAAAAgEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8ICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAUAAAADbmlsBAAAAAFrCQAAZQAAAAIFAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNETgQAAAAKbm93eXBvemlvbQkBAAAACG1ub3plbmllAAAAAgUAAAAIbm93YWJhemEJAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAABawUAAAAIbm93YWJhemEEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAKYmFsYW5zVVNEVAkAAGQAAAACCQAAZQAAAAIFAAAACm5vd3lwb3ppb20FAAAACG5vd2FiYXphBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAABEJ1cm4AAAACAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAA0BQAAAANuaWwJAAACAAAAAQIAAAAdTW96ZXN6IHdwxYJhY2ljIHR5bGtvIHByb3RvbmEAAAAAjGk33Q==",
    "height": 1379568,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: DmUCkZdNeYaSHWUWbokcHCKwSStpUXJJfbaEAPet8ASa
Next: CWVQtwau5JK7X1RFGDLV5A1AxqPNEYr4kwxaRv8sVkAu

Diff: 
Old New Differences
99 99              then {
100 100                  let b1 = balansUSDT
101 101                  let b2 = (balansUSDN + wplata)
102 -                 let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
102 +                 let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + fraction(17, b1, 1)), fraction(18, b2, 1))))
103 103                  let W0 = LambertW0(a)
104 -                 let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
104 +                 let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie(fraction(17, b1, 1), 200000000)))
105 105                  let wyplata = ((nowabaza - baza) / 9)
106 106                  let nowypoziomrownowagi = (nowabaza / 18)
107 107                  let nowypoziom = (((balansUSDN + wplata) - nowypoziomrownowagi) + nowabaza)
110 110              else {
111 111                  let b1 = (balansUSDN + wplata)
112 112                  let b2 = balansUSDT
113 -                 let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
113 +                 let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + fraction(17, b1, 1)), fraction(18, b2, 1))))
114 114                  let W0 = LambertW0(a)
115 -                 let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
115 +                 let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie(fraction(17, b1, 1), 200000000)))
116 116                  let wyplata = ((nowabaza - baza) / 9)
117 117                  let nowypoziomrownowagi = (nowabaza / 18)
118 118                  let nowypoziom = ((balansUSDT - nowypoziomrownowagi) + nowabaza)
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 = getIntegerValue(this, "kwotarownowagi")
7 7  
8 8  let baza = (kwotarownowagi * 18)
9 9  
10 10  let enabled = getInteger(this, "enabled")
11 11  
12 12  let poziom = getIntegerValue(this, "Poziom")
13 13  
14 14  let balansUSDN = (assetBalance(this, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d') * 100)
15 15  
16 16  let balansUSDT = (assetBalance(this, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y') * 100)
17 17  
18 18  func ln (x) = log(x, 8, e, 8, 8, DOWN)
19 19  
20 20  
21 21  func exp (x) = pow(e, 8, x, 8, 8, DOWN)
22 22  
23 23  
24 24  func mnozenie (x,y) = fraction(x, y, 100000000)
25 25  
26 26  
27 27  func dzielenie (x,y) = fraction(x, 100000000, y)
28 28  
29 29  
30 30  func Halley (x,w) = {
31 31      let wTimes = (mnozenie(w, exp(w)) - x)
32 32      let wPlusOneTimes = mnozenie((w + 100000000), exp(w))
33 33      if ((wTimes != 0))
34 34          then (w - dzielenie(wTimes, (wPlusOneTimes - dzielenie(mnozenie((w + 200000000), wTimes), ((2 * w) + 200000000)))))
35 35          else w
36 36      }
37 37  
38 38  
39 39  func continuedfraction (x) = dzielenie(x, (100000000 + dzielenie(x, (100000000 + dzielenie(x, (200000000 + dzielenie((x * 5), (300000000 + dzielenie((x * 17), (1000000000 + dzielenie((x * 133), (1700000000 + dzielenie((x * 1927), (1900000000 + dzielenie((x * 13582711), 9442300000000)))))))))))))))
40 40  
41 41  
42 42  func LambertW0 (x) = Halley(x, continuedfraction(x))
43 43  
44 44  
45 45  @Callable(i)
46 46  func USDTnaUSDNnaUSDT () = {
47 47      let oplata = fraction(i.payments[0].amount, 4, 10000)
48 48      let kwotawymiany = fraction((i.payments[0].amount - oplata), 100, 1)
49 49      if ((enabled == 1))
50 50          then if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
51 51              then if ((kwotawymiany > (kwotarownowagi - balansUSDT)))
52 52                  then if ((balansUSDT >= kwotarownowagi))
53 53                      then {
54 54                          let nowypoziom = (poziom + kwotawymiany)
55 55                          let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
56 56  [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)]
57 57                          }
58 58                      else {
59 59                          let czesc1 = (kwotarownowagi - balansUSDT)
60 60                          let nowypoziom = (((balansUSDT + kwotawymiany) + baza) - kwotarownowagi)
61 61                          let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
62 62  [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)]
63 63                          }
64 64                  else {
65 65                      let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
66 66                      let nowypoziom = (poziom - wyplata)
67 67  [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)]
68 68                      }
69 69              else if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
70 70                  then if ((kwotawymiany > (kwotarownowagi - balansUSDN)))
71 71                      then if ((balansUSDN >= kwotarownowagi))
72 72                          then {
73 73                              let nowypoziom = (poziom + kwotawymiany)
74 74                              let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
75 75  [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)]
76 76                              }
77 77                          else {
78 78                              let czesc1 = (kwotarownowagi - balansUSDN)
79 79                              let nowypoziom = (((balansUSDN + kwotawymiany) + baza) - kwotarownowagi)
80 80                              let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
81 81  [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)]
82 82                              }
83 83                      else {
84 84                          let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
85 85                          let nowypoziom = (poziom - wyplata)
86 86  [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)]
87 87                          }
88 88                  else throw("Nieobsługiwany asset")
89 89          else throw("Kontrakt tymczasowo wyłączony")
90 90      }
91 91  
92 92  
93 93  
94 94  @Callable(i)
95 95  func InwestycjaUSDN () = if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
96 96      then {
97 97          let wplata = (i.payments[0].amount * 100)
98 98          if (((balansUSDN + wplata) > balansUSDT))
99 99              then {
100 100                  let b1 = balansUSDT
101 101                  let b2 = (balansUSDN + wplata)
102 -                 let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
102 +                 let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + fraction(17, b1, 1)), fraction(18, b2, 1))))
103 103                  let W0 = LambertW0(a)
104 -                 let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
104 +                 let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie(fraction(17, b1, 1), 200000000)))
105 105                  let wyplata = ((nowabaza - baza) / 9)
106 106                  let nowypoziomrownowagi = (nowabaza / 18)
107 107                  let nowypoziom = (((balansUSDN + wplata) - nowypoziomrownowagi) + nowabaza)
108 108  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
109 109                  }
110 110              else {
111 111                  let b1 = (balansUSDN + wplata)
112 112                  let b2 = balansUSDT
113 -                 let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
113 +                 let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + fraction(17, b1, 1)), fraction(18, b2, 1))))
114 114                  let W0 = LambertW0(a)
115 -                 let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
115 +                 let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie(fraction(17, b1, 1), 200000000)))
116 116                  let wyplata = ((nowabaza - baza) / 9)
117 117                  let nowypoziomrownowagi = (nowabaza / 18)
118 118                  let nowypoziom = ((balansUSDT - nowypoziomrownowagi) + nowabaza)
119 119  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
120 120                  }
121 121          }
122 122      else throw("Do tej funkcji mozesz wpłacać tylko USDN")
123 123  
124 124  
125 125  
126 126  @Callable(i)
127 127  func InwestycjaUSDT () = if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
128 128      then {
129 129          let wplata = (i.payments[0].amount * 100)
130 130          if (((balansUSDT + wplata) > balansUSDN))
131 131              then {
132 132                  let b1 = balansUSDN
133 133                  let b2 = (balansUSDT + wplata)
134 134                  let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
135 135                  let W0 = LambertW0(a)
136 136                  let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
137 137                  let wyplata = ((nowabaza - baza) / 9)
138 138                  let nowypoziomrownowagi = (nowabaza / 18)
139 139                  let nowypoziom = (((balansUSDT + wplata) - nowypoziomrownowagi) + nowabaza)
140 140  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
141 141                  }
142 142              else {
143 143                  let b1 = (balansUSDT + wplata)
144 144                  let b2 = balansUSDN
145 145                  let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
146 146                  let W0 = LambertW0(a)
147 147                  let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
148 148                  let wyplata = ((nowabaza - baza) / 9)
149 149                  let nowypoziomrownowagi = (nowabaza / 18)
150 150                  let nowypoziom = ((balansUSDN - nowypoziomrownowagi) + nowabaza)
151 151  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
152 152                  }
153 153          }
154 154      else throw("Do tej funkcji mozesz wpłacać tylko USDT")
155 155  
156 156  
157 157  
158 158  @Callable(i)
159 159  func WyplataUSDN () = if ((i.payments[0].assetId == base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
160 160      then {
161 161          let kwota = (i.payments[0].amount * 100)
162 162          let nowabaza = (baza - (kwota * 9))
163 163          let nowakwotarownowagi = (nowabaza / 18)
164 164          if ((balansUSDT > nowakwotarownowagi))
165 165              then {
166 166                  let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
167 167                  let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
168 168                  let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
169 169  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
170 170                  }
171 171              else {
172 172                  let k = (nowakwotarownowagi - balansUSDT)
173 173                  let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
174 174                  let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
175 175  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
176 176                  }
177 177          }
178 178      else throw("Mozesz wpłacic tylko protona")
179 179  
180 180  
181 181  
182 182  @Callable(i)
183 183  func WyplataUSDT () = if ((i.payments[0].assetId == base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
184 184      then {
185 185          let kwota = (i.payments[0].amount * 100)
186 186          let nowabaza = (baza - (kwota * 9))
187 187          let nowakwotarownowagi = (nowabaza / 18)
188 188          if ((balansUSDN > nowakwotarownowagi))
189 189              then {
190 190                  let nowypoziom = ((balansUSDN - nowakwotarownowagi) + nowabaza)
191 191                  let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
192 192                  let wyplata = ((balansUSDT - nowakwotarownowagi) + a)
193 193  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
194 194                  }
195 195              else {
196 196                  let k = (nowakwotarownowagi - balansUSDN)
197 197                  let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
198 198                  let wyplata = (balansUSDT - ((nowypoziom - nowabaza) + nowakwotarownowagi))
199 199  [IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount), IntegerEntry("Warunek", 52)]
200 200                  }
201 201          }
202 202      else throw("Mozesz wpłacic tylko protona")
203 203  
204 204

Old	New		Differences
99	99		then {
100	100		let b1 = balansUSDT
101	101		let b2 = (balansUSDN + wplata)
102		-	let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
	102	+	let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + fraction(17, b1, 1)), fraction(18, b2, 1))))
103	103		let W0 = LambertW0(a)
104		-	let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
	104	+	let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie(fraction(17, b1, 1), 200000000)))
105	105		let wyplata = ((nowabaza - baza) / 9)
106	106		let nowypoziomrownowagi = (nowabaza / 18)
107	107		let nowypoziom = (((balansUSDN + wplata) - nowypoziomrownowagi) + nowabaza)

110	110		else {
111	111		let b1 = (balansUSDN + wplata)
112	112		let b2 = balansUSDT
113		-	let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
	113	+	let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + fraction(17, b1, 1)), fraction(18, b2, 1))))
114	114		let W0 = LambertW0(a)
115		-	let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
	115	+	let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie(fraction(17, b1, 1), 200000000)))
116	116		let wyplata = ((nowabaza - baza) / 9)
117	117		let nowypoziomrownowagi = (nowabaza / 18)
118	118		let nowypoziom = ((balansUSDT - nowypoziomrownowagi) + nowabaza)

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 = getIntegerValue(this, "kwotarownowagi")
7	7
8	8		let baza = (kwotarownowagi * 18)
9	9
10	10		let enabled = getInteger(this, "enabled")
11	11
12	12		let poziom = getIntegerValue(this, "Poziom")
13	13
14	14		let balansUSDN = (assetBalance(this, base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d') * 100)
15	15
16	16		let balansUSDT = (assetBalance(this, base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y') * 100)
17	17
18	18		func ln (x) = log(x, 8, e, 8, 8, DOWN)
19	19
20	20
21	21		func exp (x) = pow(e, 8, x, 8, 8, DOWN)
22	22
23	23
24	24		func mnozenie (x,y) = fraction(x, y, 100000000)
25	25
26	26
27	27		func dzielenie (x,y) = fraction(x, 100000000, y)
28	28
29	29
30	30		func Halley (x,w) = {
31	31		let wTimes = (mnozenie(w, exp(w)) - x)
32	32		let wPlusOneTimes = mnozenie((w + 100000000), exp(w))
33	33		if ((wTimes != 0))
34	34		then (w - dzielenie(wTimes, (wPlusOneTimes - dzielenie(mnozenie((w + 200000000), wTimes), ((2 * w) + 200000000)))))
35	35		else w
36	36		}
37	37
38	38
39	39		func continuedfraction (x) = dzielenie(x, (100000000 + dzielenie(x, (100000000 + dzielenie(x, (200000000 + dzielenie((x * 5), (300000000 + dzielenie((x * 17), (1000000000 + dzielenie((x * 133), (1700000000 + dzielenie((x * 1927), (1900000000 + dzielenie((x * 13582711), 9442300000000)))))))))))))))
40	40
41	41
42	42		func LambertW0 (x) = Halley(x, continuedfraction(x))
43	43
44	44
45	45		@Callable(i)
46	46		func USDTnaUSDNnaUSDT () = {
47	47		let oplata = fraction(i.payments[0].amount, 4, 10000)
48	48		let kwotawymiany = fraction((i.payments[0].amount - oplata), 100, 1)
49	49		if ((enabled == 1))
50	50		then if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
51	51		then if ((kwotawymiany > (kwotarownowagi - balansUSDT)))
52	52		then if ((balansUSDT >= kwotarownowagi))
53	53		then {
54	54		let nowypoziom = (poziom + kwotawymiany)
55	55		let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
56	56		[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)]
57	57		}
58	58		else {
59	59		let czesc1 = (kwotarownowagi - balansUSDT)
60	60		let nowypoziom = (((balansUSDT + kwotawymiany) + baza) - kwotarownowagi)
61	61		let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
62	62		[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)]
63	63		}
64	64		else {
65	65		let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
66	66		let nowypoziom = (poziom - wyplata)
67	67		[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)]
68	68		}
69	69		else if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
70	70		then if ((kwotawymiany > (kwotarownowagi - balansUSDN)))
71	71		then if ((balansUSDN >= kwotarownowagi))
72	72		then {
73	73		let nowypoziom = (poziom + kwotawymiany)
74	74		let wyplata = mnozenie(baza, (ln(nowypoziom) - ln(poziom)))
75	75		[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)]
76	76		}
77	77		else {
78	78		let czesc1 = (kwotarownowagi - balansUSDN)
79	79		let nowypoziom = (((balansUSDN + kwotawymiany) + baza) - kwotarownowagi)
80	80		let wyplata = ((mnozenie(baza, (ln(nowypoziom) - ln(baza))) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
81	81		[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)]
82	82		}
83	83		else {
84	84		let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
85	85		let nowypoziom = (poziom - wyplata)
86	86		[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)]
87	87		}
88	88		else throw("Nieobsługiwany asset")
89	89		else throw("Kontrakt tymczasowo wyłączony")
90	90		}
91	91
92	92
93	93
94	94		@Callable(i)
95	95		func InwestycjaUSDN () = if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
96	96		then {
97	97		let wplata = (i.payments[0].amount * 100)
98	98		if (((balansUSDN + wplata) > balansUSDT))
99	99		then {
100	100		let b1 = balansUSDT
101	101		let b2 = (balansUSDN + wplata)
102		-	let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
	102	+	let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + fraction(17, b1, 1)), fraction(18, b2, 1))))
103	103		let W0 = LambertW0(a)
104		-	let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
	104	+	let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie(fraction(17, b1, 1), 200000000)))
105	105		let wyplata = ((nowabaza - baza) / 9)
106	106		let nowypoziomrownowagi = (nowabaza / 18)
107	107		let nowypoziom = (((balansUSDN + wplata) - nowypoziomrownowagi) + nowabaza)
108	108		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
109	109		}
110	110		else {
111	111		let b1 = (balansUSDN + wplata)
112	112		let b2 = balansUSDT
113		-	let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
	113	+	let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + fraction(17, b1, 1)), fraction(18, b2, 1))))
114	114		let W0 = LambertW0(a)
115		-	let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
	115	+	let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie(fraction(17, b1, 1), 200000000)))
116	116		let wyplata = ((nowabaza - baza) / 9)
117	117		let nowypoziomrownowagi = (nowabaza / 18)
118	118		let nowypoziom = ((balansUSDT - nowypoziomrownowagi) + nowabaza)
119	119		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
120	120		}
121	121		}
122	122		else throw("Do tej funkcji mozesz wpłacać tylko USDN")
123	123
124	124
125	125
126	126		@Callable(i)
127	127		func InwestycjaUSDT () = if ((i.payments[0].assetId == base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'))
128	128		then {
129	129		let wplata = (i.payments[0].amount * 100)
130	130		if (((balansUSDT + wplata) > balansUSDN))
131	131		then {
132	132		let b1 = balansUSDN
133	133		let b2 = (balansUSDT + wplata)
134	134		let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
135	135		let W0 = LambertW0(a)
136	136		let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
137	137		let wyplata = ((nowabaza - baza) / 9)
138	138		let nowypoziomrownowagi = (nowabaza / 18)
139	139		let nowypoziom = (((balansUSDT + wplata) - nowypoziomrownowagi) + nowabaza)
140	140		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
141	141		}
142	142		else {
143	143		let b1 = (balansUSDT + wplata)
144	144		let b2 = balansUSDN
145	145		let a = mnozenie(dzielenie(b1, b2), exp(dzielenie((b2 + (17 * b1)), (18 * b2))))
146	146		let W0 = LambertW0(a)
147	147		let nowabaza = dzielenie(mnozenie((9 * b1), b2), (mnozenie((W0 * 9), b2) - dzielenie((17 * b1), 200000000)))
148	148		let wyplata = ((nowabaza - baza) / 9)
149	149		let nowypoziomrownowagi = (nowabaza / 18)
150	150		let nowypoziom = ((balansUSDN - nowypoziomrownowagi) + nowabaza)
151	151		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
152	152		}
153	153		}
154	154		else throw("Do tej funkcji mozesz wpłacać tylko USDT")
155	155
156	156
157	157
158	158		@Callable(i)
159	159		func WyplataUSDN () = if ((i.payments[0].assetId == base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
160	160		then {
161	161		let kwota = (i.payments[0].amount * 100)
162	162		let nowabaza = (baza - (kwota * 9))
163	163		let nowakwotarownowagi = (nowabaza / 18)
164	164		if ((balansUSDT > nowakwotarownowagi))
165	165		then {
166	166		let nowypoziom = ((balansUSDT - nowakwotarownowagi) + nowabaza)
167	167		let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
168	168		let wyplata = ((balansUSDN - nowakwotarownowagi) + a)
169	169		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
170	170		}
171	171		else {
172	172		let k = (nowakwotarownowagi - balansUSDT)
173	173		let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
174	174		let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
175	175		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
176	176		}
177	177		}
178	178		else throw("Mozesz wpłacic tylko protona")
179	179
180	180
181	181
182	182		@Callable(i)
183	183		func WyplataUSDT () = if ((i.payments[0].assetId == base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe'))
184	184		then {
185	185		let kwota = (i.payments[0].amount * 100)
186	186		let nowabaza = (baza - (kwota * 9))
187	187		let nowakwotarownowagi = (nowabaza / 18)
188	188		if ((balansUSDN > nowakwotarownowagi))
189	189		then {
190	190		let nowypoziom = ((balansUSDN - nowakwotarownowagi) + nowabaza)
191	191		let a = mnozenie(nowabaza, (ln(nowypoziom) - ln(nowabaza)))
192	192		let wyplata = ((balansUSDT - nowakwotarownowagi) + a)
193	193		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
194	194		}
195	195		else {
196	196		let k = (nowakwotarownowagi - balansUSDN)
197	197		let nowypoziom = mnozenie(nowabaza, exp(dzielenie(k, nowabaza)))
198	198		let wyplata = (balansUSDT - ((nowypoziom - nowabaza) + nowakwotarownowagi))
199	199		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), ScriptTransfer(i.caller, (wyplata / 100), base58'cGfAv1s7NxGWL913wR2Lp9yFSY7DrkWip6YPQGJGc6y'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount), IntegerEntry("Warunek", 52)]
200	200		}
201	201		}
202	202		else throw("Mozesz wpłacic tylko protona")
203	203
204	204

github/deemru/w8io/169f3d6 
49.83 ms ◑