M
mana111
Guest
Prašome turiu šį kodą parašyta protonų picbasic ir noriu parašyti jam HiTech C
gali bet kuri įstaiga Pagalba pleaseeeeeeeeKodas"Sukurti keletą kintamųjų, skirti naudoti kartu su N. ir ĮĖJIMASDim LOG_VALUE kaip Plūdės
Dim LOG_POWER kaip Plūdės
Dim LOG_TEMP kaip Plūdės
Dim LOG_X kaip Plūdės
Dim LOG_FACTOR kaip Plūdės
Dim LOG_XSQR kaip Plūdės
Dim LOG_N kaip Baitas
Dim LOG_TEMP2 kaip Baitas"Mes negalime ln (1), kad turime grįžti nulis, jei ji
Jei LOG_VALUE.Byte0 = 0 THEN LOG_VALUE = 0: Atgal"Tarp LOG_N.BYTE0 ir $ 7E skirtumas bus
"Suma 2 ^ LOG_N yra, kad mes norime padauginti kartus ln (2)
Jei LOG_VALUE.Byte0 <= $ 7E Tada
LOG_N = $ 7E - LOG_VALUE.Byte0
LOG_FACTOR = -0,69314718 * LOG_N
Kitas
LOG_N = LOG_VALUE.Byte0 - $ 7E
LOG_FACTOR = 0.69314718 * LOG_N
Endif
LOG_VALUE.Byte0 = $ 7E"Pradžia Teiloro eilutė plėtra
"Ln (1 LOG_X) = LOG_X - (LOG_X ^ 2 / 2) (LOG_X ^ 3 / 3) - ...LOG_VALUE = LOG_VALUE - 1
LOG_X = LOG_VALUE
LOG_XSQR = LOG_VALUE
LOG_N = 2
Pakartotinis
LOG_XSQR = LOG_XSQR * LOG_X
LOG_VALUE = LOG_VALUE - (LOG_XSQR / LOG_N)
LOG_XSQR = LOG_XSQR * LOG_X
LOG_TEMP2 = (LOG_N 1)
LOG_VALUE = LOG_VALUE (LOG_XSQR / LOG_TEMP2)
LOG_N = LOG_N 2
Iki LOG_N> 12
LOG_VALUE = LOG_VALUE LOG_FACTOR
Atgal
gali bet kuri įstaiga Pagalba pleaseeeeeeeeKodas"Sukurti keletą kintamųjų, skirti naudoti kartu su N. ir ĮĖJIMASDim LOG_VALUE kaip Plūdės
Dim LOG_POWER kaip Plūdės
Dim LOG_TEMP kaip Plūdės
Dim LOG_X kaip Plūdės
Dim LOG_FACTOR kaip Plūdės
Dim LOG_XSQR kaip Plūdės
Dim LOG_N kaip Baitas
Dim LOG_TEMP2 kaip Baitas"Mes negalime ln (1), kad turime grįžti nulis, jei ji
Jei LOG_VALUE.Byte0 = 0 THEN LOG_VALUE = 0: Atgal"Tarp LOG_N.BYTE0 ir $ 7E skirtumas bus
"Suma 2 ^ LOG_N yra, kad mes norime padauginti kartus ln (2)
Jei LOG_VALUE.Byte0 <= $ 7E Tada
LOG_N = $ 7E - LOG_VALUE.Byte0
LOG_FACTOR = -0,69314718 * LOG_N
Kitas
LOG_N = LOG_VALUE.Byte0 - $ 7E
LOG_FACTOR = 0.69314718 * LOG_N
Endif
LOG_VALUE.Byte0 = $ 7E"Pradžia Teiloro eilutė plėtra
"Ln (1 LOG_X) = LOG_X - (LOG_X ^ 2 / 2) (LOG_X ^ 3 / 3) - ...LOG_VALUE = LOG_VALUE - 1
LOG_X = LOG_VALUE
LOG_XSQR = LOG_VALUE
LOG_N = 2
Pakartotinis
LOG_XSQR = LOG_XSQR * LOG_X
LOG_VALUE = LOG_VALUE - (LOG_XSQR / LOG_N)
LOG_XSQR = LOG_XSQR * LOG_X
LOG_TEMP2 = (LOG_N 1)
LOG_VALUE = LOG_VALUE (LOG_XSQR / LOG_TEMP2)
LOG_N = LOG_N 2
Iki LOG_N> 12
LOG_VALUE = LOG_VALUE LOG_FACTOR
Atgal