w8 · tx · 4wi···2JW

tx · 4wivF7mFnbszokmDZT7fFJDGRuwpoQX98bKLfcEiY2JW

3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t:  -0.05000000 Waves

2021.02.06 06:37 [1385793] smart account 3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4wivF7mFnbszokmDZT7fFJDGRuwpoQX98bKLfcEiY2JW",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1612582706678,
    "version": 2,
    "chainId": 84,
    "sender": "3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t",
    "senderPublicKey": "Bo16mjUNTGCeZDYvQc6gHh46P21B3DqYCHoDt9CyzxHf",
    "proofs": [
        "3n4M72R8mG1jzDKBi6dDLp9VNHkECHYd6fa6E7GStpyobFGVvrCnrcDVkwb9KsjrkEdgK7Mqc4NJtLLrwhKYSPM"
    ],
    "script": "base64:AAIEAAAAAAAAAAwIAhIAEgASABIAEgAAAAARAAAAAAFlAAAAAnjmOQhrAAAAAA5rd290YXJvd25vd2FnaQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAOa3dvdGFyb3dub3dhZ2kAAAAABGJhemEJAABoAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kAAAAAAAAAABIAAAAAB2VuYWJsZWQJAAQaAAAAAgUAAAAEdGhpcwIAAAAHZW5hYmxlZAAAAAAGcG96aW9tCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAAZQb3ppb20AAAAACmJhbGFuc1VTRE4JAABoAAAAAgkAA/AAAAACBQAAAAR0aGlzAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgAAAAAAAAAAZAAAAAAKYmFsYW5zVVNEVAkAAGgAAAACCQAD8AAAAAIFAAAABHRoaXMBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOAAAAAAAAAABkAQAAAAJsbgAAAAEAAAABeAkAAG0AAAAGBQAAAAF4AAAAAAAAAAAIBQAAAAFlAAAAAAAAAAAIAAAAAAAAAAAIBQAAAARET1dOAQAAAANleHAAAAABAAAAAXgJAABsAAAABgkAAGkAAAACBQAAAAFlAAAAAAAAACcQAAAAAAAAAAAIBQAAAAF4AAAAAAAAAAAIAAAAAAAAAAAIBQAAAARET1dOAQAAAAVleHAxMgAAAAEAAAABeAkAAGwAAAAGBQAAAAFlAAAAAAAAAAAMBQAAAAF4AAAAAAAAAAAMAAAAAAAAAAAMBQAAAARET1dOAQAAAAhtbm96ZW5pZQAAAAIAAAABeAAAAAF5CQAAawAAAAMFAAAAAXgFAAAAAXkAAAAAAAX14QABAAAADW1ub3plbmllMTJkbzgAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4BQAAAAF5AAAAAOjUpRAAAQAAAAlkemllbGVuaWUAAAACAAAAAXgAAAABeQkAAGsAAAADBQAAAAF4AAAAAAAF9eEABQAAAAF5AQAAAAtkemllbGVuaWUxMgAAAAIAAAABeAAAAAF5CQAAawAAAAMFAAAAAXgAAAAAAAAPQkAJAABpAAAAAgUAAAABeQAAAAAAAA9CQAEAAAAGSGFsbGV5AAAAAgAAAAF4AAAAAXcEAAAABndUaW1lcwkAAGUAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAAF3CQEAAAADZXhwAAAAAQUAAAABdwUAAAABeAQAAAANd1BsdXNPbmVUaW1lcwkBAAAACG1ub3plbmllAAAAAgkAAGQAAAACBQAAAAF3AAAAAAAF9eEACQEAAAADZXhwAAAAAQUAAAABdwMJAQAAAAIhPQAAAAIFAAAABndUaW1lcwAAAAAAAAAAAAkAAGUAAAACBQAAAAF3CQEAAAAJZHppZWxlbmllAAAAAgUAAAAGd1RpbWVzCQAAZQAAAAIFAAAADXdQbHVzT25lVGltZXMJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACCQAAZAAAAAIFAAAAAXcAAAAAAAvrwgAFAAAABndUaW1lcwkAAGQAAAACCQAAaAAAAAIAAAAAAAAAAAIFAAAAAXcAAAAAAAvrwgAFAAAAAXcBAAAAEWNvbnRpbnVlZGZyYWN0aW9uAAAAAQAAAAF4CQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkAAGQAAAACAAAAAAAF9eEACQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkAAGQAAAACAAAAAAAF9eEACQEAAAAJZHppZWxlbmllAAAAAgUAAAABeAkAAGQAAAACAAAAAAAL68IACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAAAAFCQAAZAAAAAIAAAAAABHhowAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAABEJAABkAAAAAgAAAAAAO5rKAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAAhQkAAGQAAAACAAAAAABlU/EACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAAAeHCQAAZAAAAAIAAAAAAHE/swAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAADPQXcAAAAIlnTv9wABAAAACUxhbWJlcnRXMAAAAAEAAAABeAkBAAAABkhhbGxleQAAAAIFAAAAAXgJAQAAABFjb250aW51ZWRmcmFjdGlvbgAAAAEFAAAAAXgAAAAFAAAAAWkBAAAAEFVTRFRuYVVTRE5uYVVTRFQAAAAABAAAAAZvcGxhdGEJAABrAAAAAwgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50AAAAAAAAAAAEAAAAAAAAACcQBAAAAAxrd290YXd5bWlhbnkJAABrAAAAAwkAAGUAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQFAAAABm9wbGF0YQAAAAAAAAAAZAAAAAAAAAAAAQMJAAAAAAAAAgUAAAAHZW5hYmxlZAAAAAAAAAAAAQMJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84DCQAAZgAAAAIFAAAADGt3b3Rhd3ltaWFueQkAAGUAAAACBQAAAA5rd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNEVAMJAABnAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAAOa3dvdGFyb3dub3dhZ2kEAAAACm5vd3lwb3ppb20JAABkAAAAAgUAAAAGcG96aW9tBQAAAAxrd290YXd5bWlhbnkEAAAAB3d5cGxhdGEJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAGcG96aW9tCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAAEFAAAAA25pbAQAAAAGY3plc2MxCQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0RUBAAAAApub3d5cG96aW9tCQAAZQAAAAIJAABkAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEFAAAADmt3b3Rhcm93bm93YWdpBAAAAAd3eXBsYXRhCQAAZQAAAAIJAABkAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAARiYXphBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGY3plc2MxBQAAAARiYXphCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAAIFAAAAA25pbAQAAAAHd3lwbGF0YQkAAGUAAAACBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAMa3dvdGF3eW1pYW55BQAAAARiYXphBAAAAApub3d5cG96aW9tCQAAZQAAAAIFAAAABnBvemlvbQUAAAAHd3lwbGF0YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAADBQAAAANuaWwDCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKAwkAAGYAAAACBQAAAAxrd290YXd5bWlhbnkJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRE4DCQAAZwAAAAIFAAAACmJhbGFuc1VTRE4FAAAADmt3b3Rhcm93bm93YWdpBAAAAApub3d5cG96aW9tCQAAZAAAAAIFAAAABnBvemlvbQUAAAAMa3dvdGF3eW1pYW55BAAAAAd3eXBsYXRhCQEAAAAIbW5vemVuaWUAAAACBQAAAARiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAABnBvemlvbQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAALBQAAAANuaWwEAAAABmN6ZXNjMQkAAGUAAAACBQAAAA5rd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNETgQAAAAKbm93eXBvemlvbQkAAGUAAAACCQAAZAAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAMa3dvdGF3eW1pYW55BQAAAARiYXphBQAAAA5rd290YXJvd25vd2FnaQQAAAAHd3lwbGF0YQkAAGUAAAACCQAAZAAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAEYmF6YQUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABmN6ZXNjMQUAAAAEYmF6YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAAVBQAAAANuaWwEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQQAAAAKbm93eXBvemlvbQkAAGUAAAACBQAAAAZwb3ppb20FAAAAB3d5cGxhdGEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAHwUAAAADbmlsCQAAAgAAAAECAAAAFU5pZW9ic8WCdWdpd2FueSBhc3NldAkAAAIAAAABAgAAAB9Lb250cmFrdCB0eW1jemFzb3dvIHd5xYLEhWN6b255AAAAAWkBAAAADklud2VzdHljamFVU0ROAAAAAAMJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oEAAAABndwbGF0YQkAAGgAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQAAAAAAAAAAGQDCQAAZgAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBQAAAApiYWxhbnNVU0RUBAAAAAJiMQUAAAAKYmFsYW5zVVNEVAQAAAACYjIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBAAAAAFhCQEAAAAIbW5vemVuaWUAAAACCQEAAAAJZHppZWxlbmllAAAAAgUAAAACYjEFAAAAAmIyCQEAAAADZXhwAAAAAQkAAGQAAAACAAAAAAAAVMVjCQEAAAAIbW5vemVuaWUAAAACCQEAAAAJZHppZWxlbmllAAAAAgUAAAACYjEFAAAAAmIyAAAAAAAFoRucBAAAAAJXMAkBAAAACUxhbWJlcnRXMAAAAAEFAAAAAWEEAAAACG5vd2FiYXphCQEAAAAJZHppZWxlbmllAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAACYjEFAAAAAmIyCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAAAlcwBQAAAAJiMgkBAAAACG1ub3plbmllAAAAAgUAAAACYjEAAAAAAAWhG5wEAAAAB3d5cGxhdGEJAABpAAAAAgkAAGUAAAACBQAAAAhub3dhYmF6YQUAAAAEYmF6YQAAAAAAAAAACQQAAAATbm93eXBvemlvbXJvd25vd2FnaQkAAGkAAAACBQAAAAhub3dhYmF6YQAAAAAAAAAAEgQAAAAKbm93eXBvemlvbQkAAGQAAAACCQAAZQAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBQAAABNub3d5cG96aW9tcm93bm93YWdpBQAAAAhub3dhYmF6YQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAACVzAFAAAAAlcwCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAFhBQAAAAFhCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8JAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAYJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPBQAAAANuaWwEAAAAAmIxCQAAZAAAAAIFAAAACmJhbGFuc1VTRE4FAAAABndwbGF0YQQAAAACYjIFAAAACmJhbGFuc1VTRFQEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQAAZAAAAAIAAAAAAABUxWMJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIAAAAAAAWhG5wEAAAAAlcwCQEAAAAJTGFtYmVydFcwAAAAAQUAAAABYQQAAAAIbm93YWJhemEJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQUAAAACYjIJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAACVzAFAAAAAmIyCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQAAAAAABaEbnAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNEVAUAAAATbm93eXBvemlvbXJvd25vd2FnaQUAAAAIbm93YWJhemEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAAB1JlaXNzdWUAAAADAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8FAAAAA25pbAkAAAIAAAABAgAAACpEbyB0ZWogZnVua2NqaSBtb3plc3ogd3DFgmFjYcSHIHR5bGtvIFVTRE4AAAABaQEAAAAOSW53ZXN0eWNqYVVTRFQAAAAAAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgQAAAAGd3BsYXRhCQAAaAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAAZAMJAABmAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAACmJhbGFuc1VTRE4EAAAAAmIxBQAAAApiYWxhbnNVU0ROBAAAAAJiMgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQAAZAAAAAIAAAAAAABUxWMJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIAAAAAAAWhG5wEAAAAAlcwCQEAAAAJTGFtYmVydFcwAAAAAQUAAAABYQQAAAAIbm93YWJhemEJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQUAAAACYjIJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAACVzAFAAAAAmIyCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQAAAAAABaEbnAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kFAAAACG5vd2FiYXphCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8JAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAYJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPBQAAAANuaWwEAAAAAmIxCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAABndwbGF0YQQAAAACYjIFAAAACmJhbGFuc1VTRE4EAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQAAZAAAAAIAAAAAAABUxWMJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIAAAAAAAWhG5wEAAAAAlcwCQEAAAAJTGFtYmVydFcwAAAAAQUAAAABYQQAAAAIbm93YWJhemEJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQUAAAACYjIJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAACVzAFAAAAAmIyCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQAAAAAABaEbnAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNETgUAAAATbm93eXBvemlvbXJvd25vd2FnaQUAAAAIbm93YWJhemEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kJAARMAAAAAgkBAAAAB1JlaXNzdWUAAAADAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkBgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8FAAAAA25pbAkAAAIAAAABAgAAACpEbyB0ZWogZnVua2NqaSBtb3plc3ogd3DFgmFjYcSHIHR5bGtvIFVTRFQAAAABaQEAAAALV3lwbGF0YVVTRE4AAAAAAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwQAAAAFa3dvdGEJAABoAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50AAAAAAAAAABkBAAAAAhub3dhYmF6YQkAAGUAAAACBQAAAARiYXphCQAAaAAAAAIFAAAABWt3b3RhAAAAAAAAAAAJBAAAABJub3dha3dvdGFyb3dub3dhZ2kJAABpAAAAAgUAAAAIbm93YWJhemEAAAAAAAAAABIDCQAAZgAAAAIFAAAACmJhbGFuc1VTRFQFAAAAEm5vd2Frd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACCQAAZQAAAAIFAAAACmJhbGFuc1VTRFQFAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAIbm93YWJhemEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIFAAAACG5vd2FiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAACG5vd2FiYXphBAAAAAd3eXBsYXRhCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAAFhCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAAmExBQAAAAFhCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAhub3dhYmF6YQUAAAAIbm93YWJhemEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAARCdXJuAAAAAgEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8ICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAUAAAADbmlsBAAAAAFrCQAAZQAAAAIFAAAAEm5vd2Frd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNEVAQAAAAKbm93eXBvemlvbQkBAAAADW1ub3plbmllMTJkbzgAAAACBQAAAAhub3dhYmF6YQkBAAAABWV4cDEyAAAAAQkBAAAAC2R6aWVsZW5pZTEyAAAAAgUAAAABawUAAAAIbm93YWJhemEEAAAAB3d5cGxhdGEJAABlAAAAAgUAAAAKYmFsYW5zVVNETgkAAGQAAAACCQAAZQAAAAIFAAAACm5vd3lwb3ppb20FAAAACG5vd2FiYXphBQAAABJub3dha3dvdGFyb3dub3dhZ2kJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAIbm93YWJhemEFAAAACG5vd2FiYXphCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAEQnVybgAAAAIBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQFAAAAA25pbAkAAAIAAAABAgAAAB1Nb3plc3ogd3DFgmFjaWMgdHlsa28gcHJvdG9uYQAAAAFpAQAAAAtXeXBsYXRhVVNEVAAAAAADCQAAAAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPBAAAAAVrd290YQkAAGgAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQAAAAAAAAAAGQEAAAACG5vd2FiYXphCQAAZQAAAAIFAAAABGJhemEJAABoAAAAAgUAAAAFa3dvdGEAAAAAAAAAAAkEAAAAEm5vd2Frd290YXJvd25vd2FnaQkAAGkAAAACBQAAAAhub3dhYmF6YQAAAAAAAAAAEgMJAABmAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgUAAAAKYmFsYW5zVVNETgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAAhub3dhYmF6YQQAAAABYQkBAAAACG1ub3plbmllAAAAAgUAAAAIbm93YWJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAIbm93YWJhemEEAAAAB3d5cGxhdGEJAABkAAAAAgkAAGUAAAACBQAAAApiYWxhbnNVU0RUBQAAABJub3dha3dvdGFyb3dub3dhZ2kFAAAAAWEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAOa3dvdGFyb3dub3dhZ2kFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAABEJ1cm4AAAACAQAAACAX/y1A1xPkMEBmwd7axVZVgkopFpgxt/6lqMPM+hgcDwgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50BQAAAANuaWwEAAAAAWsJAABlAAAAAgUAAAASbm93YWt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0ROBAAAAApub3d5cG96aW9tCQEAAAAIbW5vemVuaWUAAAACBQAAAAhub3dhYmF6YQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAFrBQAAAAhub3dhYmF6YQQAAAAHd3lwbGF0YQkAAGUAAAACBQAAAApiYWxhbnNVU0RUCQAAZAAAAAIJAABlAAAAAgUAAAAKbm93eXBvemlvbQUAAAAIbm93YWJhemEFAAAAEm5vd2Frd290YXJvd25vd2FnaQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAA5rd290YXJvd25vd2FnaQUAAAASbm93YWt3b3Rhcm93bm93YWdpCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAEQnVybgAAAAIBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAADQFAAAAA25pbAkAAAIAAAABAgAAAB1Nb3plc3ogd3DFgmFjaWMgdHlsa28gcHJvdG9uYQAAAACsXZR/",
    "height": 1385793,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5uLkCgrJs52ppmo9FxQqvE7CxR8xJdDYfrGguD4iX8WX
Next: HniMqT3XPHMkssR8E39GPktSWyVYPtTR1JpzNQnaV8jy

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

Old	New		Differences
1	1		{-# STDLIB_VERSION 4 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4		-	let e = ~~271828182~~
	4	+	let e = 2718281828459
5	5
6	6		let kwotarownowagi = getIntegerValue(this, "kwotarownowagi")
7	7

18	18		func ln (x) = log(x, 8, e, 8, 8, DOWN)
19	19
20	20
21		-	func exp (x) = pow(e, 8, x, 8, 8, DOWN)
	21	+	func exp (x) = pow((e / 10000), 8, x, 8, 8, DOWN)
	22	+
	23	+
	24	+	func exp12 (x) = pow(e, 12, x, 12, 12, DOWN)
22	25
23	26
24	27		func mnozenie (x,y) = fraction(x, y, 100000000)
25	28
26	29
	30	+	func mnozenie12do8 (x,y) = fraction(x, y, 1000000000000)
	31	+
	32	+
27	33		func dzielenie (x,y) = fraction(x, 100000000, y)
	34	+
	35	+
	36	+	func dzielenie12 (x,y) = fraction(x, 1000000, (y / 1000000))
28	37
29	38
30	39		func Halley (x,w) = {

170	179		}
171	180		else {
172	181		let k = (nowakwotarownowagi - balansUSDT)
173		-	let nowypoziom = ~~mnozenie~~(nowabaza, ~~exp~~(~~dzielenie~~(k, nowabaza)))
	182	+	let nowypoziom = mnozenie12do8(nowabaza, exp12(dzielenie12(k, nowabaza)))
174	183		let wyplata = (balansUSDN - ((nowypoziom - nowabaza) + nowakwotarownowagi))
175	184		[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowakwotarownowagi), IntegerEntry("nowabaza", nowabaza), ScriptTransfer(i.caller, (wyplata / 100), base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'), Burn(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', i.payments[0].amount)]
176	185		}

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

github/deemru/w8io/169f3d6 
45.42 ms ◑