w8 · tx · Hni···8jy

tx · HniMqT3XPHMkssR8E39GPktSWyVYPtTR1JpzNQnaV8jy

3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t:  -0.05000000 Waves

2021.02.07 20:51 [1388098] smart account 3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HniMqT3XPHMkssR8E39GPktSWyVYPtTR1JpzNQnaV8jy",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1612720312450,
    "version": 2,
    "chainId": 84,
    "sender": "3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t",
    "senderPublicKey": "Bo16mjUNTGCeZDYvQc6gHh46P21B3DqYCHoDt9CyzxHf",
    "proofs": [
        "5tumz3SZD7RN6L4et5vNETHc2ak6SmoTaS5qdiWbzvmt41hQSMni8xFLXhtNvKUigZ5uVruzfG5Gkg8qmuQcYHX"
    ],
    "script": "base64:AAIEAAAAAAAAAA4IAhIAEgASABIAEgASAAAAABEAAAAAAWUAAAACeOY5CGsAAAAADmt3b3Rhcm93bm93YWdpCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAA5rd290YXJvd25vd2FnaQAAAAAEYmF6YQkAAGgAAAACBQAAAA5rd290YXJvd25vd2FnaQAAAAAAAAAAEgAAAAAHZW5hYmxlZAkABBoAAAACBQAAAAR0aGlzAgAAAAdlbmFibGVkAAAAAAZwb3ppb20JAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAABlBvemlvbQAAAAAKYmFsYW5zVVNETgkAAGgAAAACCQAD8AAAAAIFAAAABHRoaXMBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKAAAAAAAAAABkAAAAAApiYWxhbnNVU0RUCQAAaAAAAAIJAAPwAAAAAgUAAAAEdGhpcwEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84AAAAAAAAAAGQBAAAAAmxuAAAAAQAAAAF4CQAAbQAAAAYFAAAAAXgAAAAAAAAAAAgFAAAAAWUAAAAAAAAAAAgAAAAAAAAAAAgFAAAABERPV04BAAAAA2V4cAAAAAEAAAABeAkAAGwAAAAGCQAAaQAAAAIFAAAAAWUAAAAAAAAAJxAAAAAAAAAAAAgFAAAAAXgAAAAAAAAAAAgAAAAAAAAAAAgFAAAABERPV04BAAAABWV4cDEyAAAAAQAAAAF4CQAAbAAAAAYFAAAAAWUAAAAAAAAAAAwFAAAAAXgAAAAAAAAAAAwAAAAAAAAAAAwFAAAABERPV04BAAAACG1ub3plbmllAAAAAgAAAAF4AAAAAXkJAABrAAAAAwUAAAABeAUAAAABeQAAAAAABfXhAAEAAAANbW5vemVuaWUxMmRvOAAAAAIAAAABeAAAAAF5CQAAawAAAAMFAAAAAXgFAAAAAXkAAAAA6NSlEAABAAAACWR6aWVsZW5pZQAAAAIAAAABeAAAAAF5CQAAawAAAAMFAAAAAXgAAAAAAAX14QAFAAAAAXkBAAAAC2R6aWVsZW5pZTEyAAAAAgAAAAF4AAAAAXkJAABrAAAAAwUAAAABeAAAAAAAAA9CQAkAAGkAAAACBQAAAAF5AAAAAAAAD0JAAQAAAAZIYWxsZXkAAAACAAAAAXgAAAABdwQAAAAGd1RpbWVzCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAAAXcJAQAAAANleHAAAAABBQAAAAF3BQAAAAF4BAAAAA13UGx1c09uZVRpbWVzCQEAAAAIbW5vemVuaWUAAAACCQAAZAAAAAIFAAAAAXcAAAAAAAX14QAJAQAAAANleHAAAAABBQAAAAF3AwkBAAAAAiE9AAAAAgUAAAAGd1RpbWVzAAAAAAAAAAAACQAAZQAAAAIFAAAAAXcJAQAAAAlkemllbGVuaWUAAAACBQAAAAZ3VGltZXMJAABlAAAAAgUAAAANd1BsdXNPbmVUaW1lcwkBAAAACWR6aWVsZW5pZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIJAABkAAAAAgUAAAABdwAAAAAAC+vCAAUAAAAGd1RpbWVzCQAAZAAAAAIJAABoAAAAAgAAAAAAAAAAAgUAAAABdwAAAAAAC+vCAAUAAAABdwEAAAARY29udGludWVkZnJhY3Rpb24AAAABAAAAAXgJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAX14QAJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAX14QAJAQAAAAlkemllbGVuaWUAAAACBQAAAAF4CQAAZAAAAAIAAAAAAAvrwgAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAAAUJAABkAAAAAgAAAAAAEeGjAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAAAAEQkAAGQAAAACAAAAAAA7msoACQEAAAAJZHppZWxlbmllAAAAAgkAAGgAAAACBQAAAAF4AAAAAAAAAACFCQAAZAAAAAIAAAAAAGVT8QAJAQAAAAlkemllbGVuaWUAAAACCQAAaAAAAAIFAAAAAXgAAAAAAAAAB4cJAABkAAAAAgAAAAAAcT+zAAkBAAAACWR6aWVsZW5pZQAAAAIJAABoAAAAAgUAAAABeAAAAAAAAM9BdwAAAAiWdO/3AAEAAAAJTGFtYmVydFcwAAAAAQAAAAF4CQEAAAAGSGFsbGV5AAAAAgUAAAABeAkBAAAAEWNvbnRpbnVlZGZyYWN0aW9uAAAAAQUAAAABeAAAAAYAAAABaQEAAAAQVVNEVG5hVVNETm5hVVNEVAAAAAAEAAAABm9wbGF0YQkAAGsAAAADCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQAAAAAAAAAAAQAAAAAAAAAJxAEAAAADGt3b3Rhd3ltaWFueQkAAGsAAAADCQAAZQAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAUAAAAGb3BsYXRhAAAAAAAAAABkAAAAAAAAAAABAwkAAAAAAAACBQAAAAdlbmFibGVkAAAAAAAAAAABAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgMJAABmAAAAAgUAAAAMa3dvdGF3eW1pYW55CQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0RUAwkAAGcAAAACBQAAAApiYWxhbnNVU0RUBQAAAA5rd290YXJvd25vd2FnaQQAAAAKbm93eXBvemlvbQkAAGQAAAACBQAAAAZwb3ppb20FAAAADGt3b3Rhd3ltaWFueQQAAAAHd3lwbGF0YQkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAAZwb3ppb20JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAQUAAAADbmlsBAAAAAZjemVzYzEJAABlAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kFAAAACmJhbGFuc1VTRFQEAAAACm5vd3lwb3ppb20JAABlAAAAAgkAAGQAAAACCQAAZAAAAAIFAAAACmJhbGFuc1VTRFQFAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQUAAAAOa3dvdGFyb3dub3dhZ2kEAAAAB3d5cGxhdGEJAABlAAAAAgkAAGQAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAARiYXphCQAAZQAAAAIJAQAAAAJsbgAAAAEFAAAACm5vd3lwb3ppb20JAQAAAAJsbgAAAAEFAAAABGJhemEFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAZjemVzYzEFAAAABGJhemEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAILcwEVDzAH5/KJhWA+xRAa417KPR+5S8mya0Jgcjq6dKCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAECAAAAIzNNcmVRV0NNQTN2aHppQ3E4eU1DZjlCZEJtSGNaR3JiVzRTBQAAAAZvcGxhdGEBAAAAIAkJCHNUpU6AUOoObKxslXw6Rw4k6YFcgvYpXmoWsYPOCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV2FydW5lawAAAAAAAAAAAgUAAAADbmlsBAAAAAd3eXBsYXRhCQAAZQAAAAIFAAAABnBvemlvbQkBAAAACWR6aWVsZW5pZQAAAAIFAAAABnBvemlvbQkBAAAAA2V4cAAAAAEJAQAAAAlkemllbGVuaWUAAAACBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEEAAAACm5vd3lwb3ppb20JAABlAAAAAgUAAAAGcG96aW9tBQAAAAd3eXBsYXRhCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAAMFAAAAA25pbAMJAAAAAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oDCQAAZgAAAAIFAAAADGt3b3Rhd3ltaWFueQkAAGUAAAACBQAAAA5rd290YXJvd25vd2FnaQUAAAAKYmFsYW5zVVNETgMJAABnAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAOa3dvdGFyb3dub3dhZ2kEAAAACm5vd3lwb3ppb20JAABkAAAAAgUAAAAGcG96aW9tBQAAAAxrd290YXd5bWlhbnkEAAAAB3d5cGxhdGEJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAGcG96aW9tCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXeXBsYXRhCQAAawAAAAMFAAAAB3d5cGxhdGEAAAAAAAAAAAEAAAAAAAAAAGQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAAAsFAAAAA25pbAQAAAAGY3plc2MxCQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0ROBAAAAApub3d5cG96aW9tCQAAZQAAAAIJAABkAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAxrd290YXd5bWlhbnkFAAAABGJhemEFAAAADmt3b3Rhcm93bm93YWdpBAAAAAd3eXBsYXRhCQAAZQAAAAIJAABkAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAARiYXphBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGY3plc2MxBQAAAARiYXphCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGkAAAACBQAAAAd3eXBsYXRhAAAAAAAAAABkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABAgAAACMzTXJlUVdDTUEzdmh6aUNxOHlNQ2Y5QmRCbUhjWkdyYlc0UwUAAAAGb3BsYXRhAQAAACC3MBFQ8wB+fyiYVgPsUQGuNeyj0fuUvJsmtCYHI6unSgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAHV3lwbGF0YQkAAGsAAAADBQAAAAd3eXBsYXRhAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAABUFAAAAA25pbAQAAAAHd3lwbGF0YQkAAGUAAAACBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAMa3dvdGF3eW1pYW55BQAAAARiYXphBAAAAApub3d5cG96aW9tCQAAZQAAAAIFAAAABnBvemlvbQUAAAAHd3lwbGF0YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAEAAAAgCQkIc1SlToBQ6g5srGyVfDpHDiTpgVyC9ileahaxg84JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQIAAAAjM01yZVFXQ01BM3ZoemlDcTh5TUNmOUJkQm1IY1pHcmJXNFMFAAAABm9wbGF0YQEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEJAABrAAAAAwUAAAAHd3lwbGF0YQAAAAAAAAAAAQAAAAAAAAAAZAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAdXYXJ1bmVrAAAAAAAAAAAfBQAAAANuaWwJAAACAAAAAQIAAAAVTmllb2JzxYJ1Z2l3YW55IGFzc2V0CQAAAgAAAAECAAAAH0tvbnRyYWt0IHR5bWN6YXNvd28gd3nFgsSFY3pvbnkAAAABaQEAAAAOSW53ZXN0eWNqYVVTRE4AAAAAAwkBAAAAAiE9AAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAEAAAAgtzARUPMAfn8omFYD7FEBrjXso9H7lLybJrQmByOrp0oJAAACAAAAAQIAAAAqRG8gdGVqIGZ1bmtjamkgbW96ZXN6IHdwxYJhY2HEhyB0eWxrbyBVU0ROBAAAAAZ3cGxhdGEJAABoAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50AAAAAAAAAABkBAAAAAJiMQMJAABmAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEFAAAACmJhbGFuc1VTRFQFAAAACmJhbGFuc1VTRFQJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBAAAAAJiMgMJAABmAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0ROBQAAAAZ3cGxhdGEFAAAACmJhbGFuc1VTRFQJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBQAAAApiYWxhbnNVU0RUBAAAAAFhCQEAAAAIbW5vemVuaWUAAAACCQEAAAAJZHppZWxlbmllAAAAAgUAAAACYjEFAAAAAmIyCQEAAAADZXhwAAAAAQkAAGQAAAACAAAAAAAAVMVjCQEAAAAIbW5vemVuaWUAAAACCQEAAAAJZHppZWxlbmllAAAAAgUAAAACYjEFAAAAAmIyAAAAAAAFoRucBAAAAAJXMAkBAAAACUxhbWJlcnRXMAAAAAEFAAAAAWEEAAAACG5vd2FiYXphCQEAAAAJZHppZWxlbmllAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAACYjEFAAAAAmIyCQAAZQAAAAIJAQAAAAhtbm96ZW5pZQAAAAIFAAAAAlcwBQAAAAJiMgkBAAAACG1ub3plbmllAAAAAgUAAAACYjEAAAAAAAWhG5wEAAAAB3d5cGxhdGEJAABpAAAAAgkAAGUAAAACBQAAAAhub3dhYmF6YQUAAAAEYmF6YQAAAAAAAAAACQQAAAATbm93eXBvemlvbXJvd25vd2FnaQkAAGkAAAACBQAAAAhub3dhYmF6YQAAAAAAAAAAEgQAAAAKbm93eXBvemlvbQkAAGQAAAACCQAAZQAAAAIJAABkAAAAAgUAAAAKYmFsYW5zVVNETgUAAAAGd3BsYXRhBQAAABNub3d5cG96aW9tcm93bm93YWdpBQAAAAhub3dhYmF6YQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAACVzAFAAAAAlcwCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAFhBQAAAAFhCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwEAAAAgF/8tQNcT5DBAZsHe2sVWVYJKKRaYMbf+pajDzPoYHA8JAABpAAAAAgUAAAAHd3lwbGF0YQAAAAAAAAAAZAYJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAaQAAAAIFAAAAB3d5cGxhdGEAAAAAAAAAAGQBAAAAIBf/LUDXE+QwQGbB3trFVlWCSikWmDG3/qWow8z6GBwPBQAAAANuaWwAAAABaQEAAAAOSW53ZXN0eWNqYVVTRFQAAAAAAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAQAAACAJCQhzVKVOgFDqDmysbJV8OkcOJOmBXIL2KV5qFrGDzgQAAAAGd3BsYXRhCQAAaAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAAAAAAAAAAAZAMJAABmAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAACmJhbGFuc1VTRE4EAAAAAmIxBQAAAApiYWxhbnNVU0ROBAAAAAJiMgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEEAAAAAWEJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIJAQAAAANleHAAAAABCQAAZAAAAAIAAAAAAABUxWMJAQAAAAhtbm96ZW5pZQAAAAIJAQAAAAlkemllbGVuaWUAAAACBQAAAAJiMQUAAAACYjIAAAAAAAWhG5wEAAAAAlcwCQEAAAAJTGFtYmVydFcwAAAAAQUAAAABYQQAAAAIbm93YWJhemEJAQAAAAlkemllbGVuaWUAAAACCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQUAAAACYjIJAABlAAAAAgkBAAAACG1ub3plbmllAAAAAgUAAAACVzAFAAAAAmIyCQEAAAAIbW5vemVuaWUAAAACBQAAAAJiMQAAAAAABaEbnAQAAAAHd3lwbGF0YQkAAGkAAAACCQAAZQAAAAIFAAAACG5vd2FiYXphBQAAAARiYXphAAAAAAAAAAAJBAAAABNub3d5cG96aW9tcm93bm93YWdpCQAAaQAAAAIFAAAACG5vd2FiYXphAAAAAAAAAAASBAAAAApub3d5cG96aW9tCQAAZAAAAAIJAABlAAAAAgkAAGQAAAACBQAAAApiYWxhbnNVU0RUBQAAAAZ3cGxhdGEFAAAAE25vd3lwb3ppb21yb3dub3dhZ2kFAAAACG5vd2FiYXphCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAADmt3b3Rhcm93bm93YWdpBQAAABNub3d5cG96aW9tcm93bm93YWdpCQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwEAAAAgF/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/qWow8z6GBwPCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1dhcnVuZWsAAAAAAAAAADQFAAAAA25pbAkAAAIAAAABAgAAAB1Nb3plc3ogd3DFgmFjaWMgdHlsa28gcHJvdG9uYQAAAAFpAQAAAAR0ZXN0AAAAAAQAAAACYWEJAABrAAAAAwkAAGsAAAADAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAJhYQUAAAACYWEFAAAAA25pbAAAAADZXmby",
    "height": 1388098,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 4wivF7mFnbszokmDZT7fFJDGRuwpoQX98bKLfcEiY2JW
Next: 8BJc8rbU8mL76VrNKtakGN5S3emZizuNkLwpD3XS3RSZ

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

Old	New		Differences
101	101
102	102
103	103		@Callable(i)
104		-	func InwestycjaUSDN () = if ((i.payments[0].assetId == base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
105		-	then {
	104	+	func InwestycjaUSDN () = if ((i.payments[0].assetId != base58'DL67xXsNV42GiRUY1XMTXNyLCs42gnEL8jizPLBbrb8d'))
	105	+	then throw("Do tej funkcji mozesz wpłacać tylko USDN")
	106	+	else {
106	107		let wplata = (i.payments[0].amount * 100)
107		-	if (((balansUSDN + wplata) > balansUSDT))
108		-	then {
109		-	let b1 = balansUSDT
110		-	let b2 = (balansUSDN + wplata)
111		-	let a = mnozenie(dzielenie(b1, b2), exp((5555555 + mnozenie(dzielenie(b1, b2), 94444444))))
112		-	let W0 = LambertW0(a)
113		-	let nowabaza = dzielenie(mnozenie(b1, b2), (mnozenie(W0, b2) - mnozenie(b1, 94444444)))
114		-	let wyplata = ((nowabaza - baza) / 9)
115		-	let nowypoziomrownowagi = (nowabaza / 18)
116		-	let nowypoziom = (((balansUSDN + wplata) - nowypoziomrownowagi) + nowabaza)
	108	+	let b1 = if (((balansUSDN + wplata) > balansUSDT))
	109	+	then balansUSDT
	110	+	else (balansUSDN + wplata)
	111	+	let b2 = if (((balansUSDN + wplata) > balansUSDT))
	112	+	then (balansUSDN + wplata)
	113	+	else balansUSDT
	114	+	let a = mnozenie(dzielenie(b1, b2), exp((5555555 + mnozenie(dzielenie(b1, b2), 94444444))))
	115	+	let W0 = LambertW0(a)
	116	+	let nowabaza = dzielenie(mnozenie(b1, b2), (mnozenie(W0, b2) - mnozenie(b1, 94444444)))
	117	+	let wyplata = ((nowabaza - baza) / 9)
	118	+	let nowypoziomrownowagi = (nowabaza / 18)
	119	+	let nowypoziom = (((balansUSDN + wplata) - nowypoziomrownowagi) + nowabaza)
117	120		[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')]
118		-	}
119		-	else {
120		-	let b1 = (balansUSDN + wplata)
121		-	let b2 = balansUSDT
122		-	let a = mnozenie(dzielenie(b1, b2), exp((5555555 + mnozenie(dzielenie(b1, b2), 94444444))))
123		-	let W0 = LambertW0(a)
124		-	let nowabaza = dzielenie(mnozenie(b1, b2), (mnozenie(W0, b2) - mnozenie(b1, 94444444)))
125		-	let wyplata = ((nowabaza - baza) / 9)
126		-	let nowypoziomrownowagi = (nowabaza / 18)
127		-	let nowypoziom = ((balansUSDT - nowypoziomrownowagi) + nowabaza)
128		-	[IntegerEntry("Poziom", nowypoziom), IntegerEntry("kwotarownowagi", nowypoziomrownowagi), Reissue(base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe', (wyplata / 100), true), ScriptTransfer(i.caller, (wyplata / 100), base58'2cg4HfZrcYtkRs7kE7G57EMuxt5K5uymrZQ58GaAD2xe')]
129		-	}
130	121		}
131		-	else throw("Do tej funkcji mozesz wpłacać tylko USDN")
132	122
133	123
134	124

211	201		else throw("Mozesz wpłacic tylko protona")
212	202
213	203
	204	+
	205	+	@Callable(i)
	206	+	func test () = {
	207	+	let aa = fraction(fraction(2, 3, 1), 2, 3)
	208	+	[IntegerEntry("aa", aa)]
	209	+	}
	210	+
	211	+

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

github/deemru/w8io/169f3d6 
51.21 ms ◑