tx · 7kuT1hxxXFkEsZn23pGRmXxcs1t2zu89hF42FJoK26f3

3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t:  -0.05000000 Waves

2021.01.25 17:27 [1369145] smart account 3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7kuT1hxxXFkEsZn23pGRmXxcs1t2zu89hF42FJoK26f3",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1611584852325,
    "version": 2,
    "chainId": 84,
    "sender": "3N69YR9dGN9tJnhxGrURt5cQycjAN1zbQ9t",
    "senderPublicKey": "Bo16mjUNTGCeZDYvQc6gHh46P21B3DqYCHoDt9CyzxHf",
    "proofs": [
        "35v9N16v4muFRXHrSPftnD4SR6L7DojjcgPRMjAFMfdPiEKhn1Av4SCSE3vhtzdrpnnFBnbPzSeKprJEqESjPPse"
    ],
    "script": "base64:AAIEAAAAAAAAAAQIAhIAAAAACgAAAAABZQAAAAAAEDPE1gAAAAAOa3dvdGFyb3dub3dhZ2kAAAAAF0h26AAAAAAABGJhemEJAABpAAAAAgUAAAAOa3dvdGFyb3dub3dhZ2kAAAAAAAAAAAIAAAAABnBvemlvbQAAAAALpDt0AAAAAAAKYmFsYW5zVVNETgAAAAAXSHboAAAAAAAKYmFsYW5zVVNEVAAAAAAXSHboAAEAAAACbG4AAAABAAAAAXgJAABtAAAABgUAAAABeAAAAAAAAAAACAUAAAABZQAAAAAAAAAACAAAAAAAAAAACAUAAAAERE9XTgEAAAADZXhwAAAAAQAAAAF4CQAAbAAAAAYFAAAAAWUAAAAAAAAAAAgFAAAAAXgAAAAAAAAAAAgAAAAAAAAAAAgFAAAABERPV04BAAAACG1ub3plbmllAAAAAgAAAAF4AAAAAXkJAABrAAAAAwUAAAABeAUAAAABeQAAAAAABfXhAAEAAAAJZHppZWxlbmllAAAAAgAAAAF4AAAAAXkJAABrAAAAAwUAAAABeAAAAAAABfXhAAUAAAABeQAAAAEAAAABaQEAAAAHd3ltaWFuYQAAAAAEAAAADGt3b3Rhd3ltaWFueQAAAAABKgXyAAMJAABmAAAAAgUAAAAMa3dvdGF3eW1pYW55CQAAZQAAAAIFAAAADmt3b3Rhcm93bm93YWdpBQAAAApiYWxhbnNVU0RUAwkAAGYAAAACBQAAAApiYWxhbnNVU0RUAAAAAAAAAAPoBAAAAApub3d5cG96aW9tCQAAZAAAAAIFAAAABnBvemlvbQUAAAAMa3dvdGF3eW1pYW55BAAAAAd3eXBsYXRhCQAAawAAAAMJAQAAAAhtbm96ZW5pZQAAAAIFAAAABGJhemEJAABlAAAAAgkBAAAAAmxuAAAAAQUAAAAKbm93eXBvemlvbQkBAAAAAmxuAAAAAQUAAAAGcG96aW9tAAAAAAAAAAABAAAAAAAAAABkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAZQb3ppb20FAAAACm5vd3lwb3ppb20JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEFAAAAB3d5cGxhdGEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAACFdhcnVuZWsgAAAAAAAAAAABBQAAAANuaWwEAAAABmN6ZXNjMQkAAGUAAAACAAAAAAAAAAPoBQAAAApiYWxhbnNVU0RUBAAAAAZjemVzYzIJAABlAAAAAgUAAAAMa3dvdGF3eW1pYW55BQAAAAZjemVzYzEEAAAACm5vd3lwb3ppb20FAAAABmN6ZXNjMgQAAAAHd3lwbGF0YQkAAGUAAAACCQAAZAAAAAIJAABrAAAAAwkBAAAACG1ub3plbmllAAAAAgUAAAAEYmF6YQkAAGUAAAACCQEAAAACbG4AAAABBQAAAApub3d5cG96aW9tCQEAAAACbG4AAAABBQAAAARiYXphAAAAAAAAAAABAAAAAAAAAABkBQAAAAZwb3ppb20JAQAAAAlkemllbGVuaWUAAAACBQAAAAZwb3ppb20JAQAAAANleHAAAAABCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGY3plc2MxBQAAAARiYXphCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAhXeXDFgmF0YQUAAAAHd3lwbGF0YQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAGUG96aW9tBQAAAApub3d5cG96aW9tCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAhXYXJ1bmVrIAAAAAAAAAAAAgUAAAADbmlsBAAAAAd3eXBsYXRhCQAAawAAAAMJAABlAAAAAgUAAAAGcG96aW9tCQEAAAAJZHppZWxlbmllAAAAAgUAAAAGcG96aW9tCQEAAAADZXhwAAAAAQkBAAAACWR6aWVsZW5pZQAAAAIFAAAADGt3b3Rhd3ltaWFueQUAAAAEYmF6YQAAAAAAAAAAAQAAAAAAAAAAZAQAAAAKbm93eXBvemlvbQkAAGUAAAACBQAAAAZwb3ppb20FAAAAB3d5cGxhdGEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAB1d5cGxhdGEFAAAAB3d5cGxhdGEJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAABlBvemlvbQUAAAAKbm93eXBvemlvbQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAIV2FydW5layAAAAAAAAAAAAMFAAAAA25pbAAAAAALai14",
    "height": 1369145,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 2TxSxpTXU21X7c7nwUzZH6uZShA66bDHQm7WFtZNHRhn
Next: 7yHk3FsmUhzvn1LCePodUu3Hf3j11uHP6sqMr9X8z4T5

Diff: 
Old
New
Differences
27
27
 
28
28
 
@Callable(i)
29
29
 
func wymiana () = {
30
-
    let kwotawymiany = 2000000000
30
+
    let kwotawymiany = 5000000000
31
31
 
    if ((kwotawymiany > (kwotarownowagi - balansUSDT)))
32
32
 
        then if ((balansUSDT > 1000))
33
33
 
            then {
34
34
 
                let nowypoziom = (poziom + kwotawymiany)
35
35
 
                let wyplata = fraction(mnozenie(baza, (ln(nowypoziom) - ln(poziom))), 1, 100)
36
-
[IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", wyplata), IntegerEntry("Warunek ", 1), DeleteEntry("Wyplata "), DeleteEntry("int")]
36
+
[IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", wyplata), IntegerEntry("Warunek ", 1)]
37
37
 
                }
38
38
 
            else {
39
39
 
                let czesc1 = (1000 - balansUSDT)
43
43
 
[IntegerEntry("Wypłata", wyplata), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek ", 2)]
44
44
 
                }
45
45
 
        else {
46
-
            let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
46
+
            let wyplata = fraction((poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza)))), 1, 100)
47
47
 
            let nowypoziom = (poziom - wyplata)
48
48
 
[IntegerEntry("Wyplata", wyplata), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek ", 3)]
49
49
 
            }
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 4 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let e = 271828182
5
5
 
6
6
 
let kwotarownowagi = 100000000000
7
7
 
8
8
 
let baza = (kwotarownowagi / 2)
9
9
 
10
10
 
let poziom = 50000000000
11
11
 
12
12
 
let balansUSDN = 100000000000
13
13
 
14
14
 
let balansUSDT = 100000000000
15
15
 
16
16
 
func ln (x) = log(x, 8, e, 8, 8, DOWN)
17
17
 
18
18
 
19
19
 
func exp (x) = pow(e, 8, x, 8, 8, DOWN)
20
20
 
21
21
 
22
22
 
func mnozenie (x,y) = fraction(x, y, 100000000)
23
23
 
24
24
 
25
25
 
func dzielenie (x,y) = fraction(x, 100000000, y)
26
26
 
27
27
 
28
28
 
@Callable(i)
29
29
 
func wymiana () = {
30
-
    let kwotawymiany = 2000000000
30
+
    let kwotawymiany = 5000000000
31
31
 
    if ((kwotawymiany > (kwotarownowagi - balansUSDT)))
32
32
 
        then if ((balansUSDT > 1000))
33
33
 
            then {
34
34
 
                let nowypoziom = (poziom + kwotawymiany)
35
35
 
                let wyplata = fraction(mnozenie(baza, (ln(nowypoziom) - ln(poziom))), 1, 100)
36
-
[IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", wyplata), IntegerEntry("Warunek ", 1), DeleteEntry("Wyplata "), DeleteEntry("int")]
36
+
[IntegerEntry("Poziom", nowypoziom), IntegerEntry("Wyplata", wyplata), IntegerEntry("Warunek ", 1)]
37
37
 
                }
38
38
 
            else {
39
39
 
                let czesc1 = (1000 - balansUSDT)
40
40
 
                let czesc2 = (kwotawymiany - czesc1)
41
41
 
                let nowypoziom = czesc2
42
42
 
                let wyplata = ((fraction(mnozenie(baza, (ln(nowypoziom) - ln(baza))), 1, 100) + poziom) - dzielenie(poziom, exp(dzielenie(czesc1, baza))))
43
43
 
[IntegerEntry("Wypłata", wyplata), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek ", 2)]
44
44
 
                }
45
45
 
        else {
46
-
            let wyplata = (poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza))))
46
+
            let wyplata = fraction((poziom - dzielenie(poziom, exp(dzielenie(kwotawymiany, baza)))), 1, 100)
47
47
 
            let nowypoziom = (poziom - wyplata)
48
48
 
[IntegerEntry("Wyplata", wyplata), IntegerEntry("Poziom", nowypoziom), IntegerEntry("Warunek ", 3)]
49
49
 
            }
50
50
 
    }
51
51
 
52
52
 

github/deemru/w8io/026f985 
36.92 ms ◑