Что нового

Математика GMP.au3 дополнительные функции

Andrey_A

Продвинутый
Сообщения
325
Репутация
68
Кто-нибудь занимался библиотекой GMP.au3? - Быстрая обработка больших чисел.
Там опубликовано пару десятков основных функций, но потенциал dll гораздо больше, есть ли у кого ещё какие-нибудь...
Описание в инете на англ. в С+ есть, но не по моим масштабам...
Преимущество библиотеки очевидна:
1. Она быстрее BigNum.au3
2. Есть разделение - работа с целыми и не целыми числами
3. Можно настроить отдельными функциями для работы с большими экспоненциальными и шестнадцатеричными числами типа '3.22710329289562e+19' и '0x...'
4. Более высокая точность вычисления корней/деления и мн.др.
========================
Спустя некоторое время была создана UDF - GMP_PLUS.au3
Версия 1.0 - 12.03.2023 - 22 функции для целых чисел
Версия 1.1 - 13.03.2023 - +11 функции для целых чисел
Версия 1.2 - 14.03.2023 - +17 функции для разных чисел
Версия 1.3 - 15.03.2023 - + 8 функции для разных чисел + Необходимые изменения в GMP.au3 (версия 2.0)
Версия 1.4 - 22.03.2023 - + 55 функции для разных чисел + Необходимые изменения в GMP.au3 (версия 2.1)
Архив с постоянной ссылкой, в нём:
Код:
Old_Vers_Dll\
Example\
GMP_PLUS.au3
GMP.au3
Test_GMP_PLUS.au3
gmp.h
gmp.h.htm
gmp.dll

Скачать GMP

В папку \AutoIt\Include\ следует поместить GMP.au3, GMP_PLUS.au3, gmp.dll - остальные файлы для теста и информации...

Если у вас появятся интересные примеры с использованием GMP - публикуйте или высылайте - это поможет ускориться )))
 
Последнее редактирование:

Oki

Продвинутый
Сообщения
452
Репутация
63
Там опубликовано пару десятков основных функций, но потенциал dll гораздо больше, есть ли у кого ещё какие-нибудь...
Насколько я понимаю, энтузиасты подготовили для применения в AutoIt только самое основное, а остальное требует доработки.
Она быстрее BigNum.au3
Где-то опубликованы сравнительные тесты? Или это из личного опыта?
 
Автор
A

Andrey_A

Продвинутый
Сообщения
325
Репутация
68
из личного опыта
Тут супер личного опыта и не надо, хотя провел сотни тестов - простой тест на сложение больших чисел даёт разницу в 4 раза (это только на 10.000 - далее медлительность BigNum.au3 растёт) , не говоря уж о делении и т.д., о получении НОД, НОК больших чисел и других преобразованиях....
Код:
#include <BigNum.au3>
#include <GMP.au3>
$hTimer=TimerInit()
$n1=_F_Bignum(10000)
$iDiff1=TimerDiff($hTimer)/1000
$hTimer=TimerInit()
$n2=_F_GMP(10000)
$iDiff2=TimerDiff($hTimer)/1000
MsgBox(4096,'Результат','$iDiff1 =>'&$iDiff1&'<='&@CRLF&'$iDiff2 =>'&$iDiff2&'<=')
MsgBox(4096,'Результат','$n1 =>'&$n1&'<='&@CRLF&'$n2 =>'&$n2&'<=')
Func _F_Bignum($iIndex)
  Local $n=0,$k=1,$tmp
  For $i=1 To $iIndex-1
    Dim $tmp=_BigNum_Add($n,$k),$n=$k,$k=$tmp
  Next
  Return $n
EndFunc
Func _F_GMP($iIndex)
  Local $n=0,$k=1,$tmp
  For $i=1 To $iIndex-1
    Dim $tmp=_GMP_AddInteger($n,$k),$n=$k,$k=$tmp
  Next
  Return $n
EndFunc

В поиске скорости нашёл Mat.au3, она работает по другому принципу - тоже быстрее BigNum.au3 на сложение/вычитание, но медленнее GMP.au3
Если есть знатоки DLL и C+ увлекающиеся скоростью, то вы можете помочь - в создании новых функций...
Сообщение автоматически объединено:

Вот ещё один пример скорости, недавно занимался простыми числами, на офф. форуме встретил 10-ки тем и более 30 функций от простых до самых экзотических.
А цель простая проверить является ли число простым, ни одна не справилась с большими числами или очень и очень долго, если цифр менее 15...
Обратился к функционалу GMP и методом тыка нашёл __gmpz_nextprime - ищет следующее простое число, относительно заданного целого, скорость тоже порадовала - миллисекунды
Чтобы проверить на валидность, необходимо отнять 1 от числа и найти следующее простое, если они совпали, то число является простым...
Этой функцией _GMP_Next_Prime так же разрешается вопрос о получении простых чисел в диапазоне, т.к. все Autoit методы, которые я встречал, начинаются с 2,3,5, заполняя массив или перебором... но это отдельный разговор.

Код:
#include <String.au3>
#include <BigNum.au3>
#include <GMP.au3>
; проверки этого числа _IsBigNumComposite я не дождался...
; $iIndex='7329484627889245056234114089163872541489731234351678654257'
$iIndex='737373737373761'
$hTimer=TimerInit()
$n=_IsBigNumComposite($iIndex)
MsgBox(4096,'Время',TimerDiff($hTimer)/1000)
MsgBox(4096,'$n',$n)

$hTimer=TimerInit()
$n=__IsPrime_GMP($iIndex)
MsgBox(4096,'Время',TimerDiff($hTimer)/1000)
MsgBox(4096,'$n',$n)
$iIndex='7329484627889245056234114089163872541489731234351678654257'
$hTimer=TimerInit()
$n=__IsPrime_GMP($iIndex)
MsgBox(4096,'Время',TimerDiff($hTimer)/1000)
MsgBox(4096,'$n',$n)
; является ли число простым числом, возвращает -1, если не целое; 0 - составное; 1- простое
Func __IsPrime_GMP($n)
  Return StringInStr($n,'.')?-1:(StringCompare($n,_GMP_Next_Prime(_GMP_SubInteger($n,1)))?0:1)
EndFunc
; ищет следующее простое число, относительно заданного целого
Func _GMP_Next_Prime($sValue)
  Local $t_Value=DllStructCreate($tag_mpz_t),$p_Value=DllStructGetPtr($t_Value)
  _GMPz_Init_Set_Str($p_Value,$sValue)
  _GMPz_NextPrime($p_Value,$p_Value)
  $sRes=_GMPz_get_Str($p_Value)
  _GMPz_Clear($p_Value)
  Return $sRes
EndFunc

Func _GMPz_NextPrime($pResult,$pVal)
  DllCall($hDLL_GMP,'none:cdecl','__gmpz_nextprime','ptr',$pResult,'ptr',$pVal)
EndFunc

Func _IsBigNumComposite($n)
    If Mod(StringRight($n, 1), 2) = 0 Then Return
    Local $n_1 = _BigNum_Sub($n, "1"), $t, $q = $n_1, $a, $e, $b, $any
    While Mod(StringRight($q, 1), 2) = 0
        $t += 1
        $q = _BigNum_Div($q, 2)
    WEnd
    For $c = 1 To 10
        $a = String(Random(2, 100, 1))
        $b = __BigNum_PowerMod($a, $q, $n)
        If $b <> "1" Then
            For $e = 1 To $t
                If $b = $n_1 Then ContinueLoop
                $b = _BigNum_Mod(_BigNum_Mul($b, $b), $n)
            Next
            If $b <> $n_1 Then Return
        EndIf
    Next
    Return 1
EndFunc

Func __BigNum_PowerMod($n, $e, $k)
    If Not __BigNum_IsValid0($n) Then Return SetError(1, 0, -1)
    If Not __BigNum_IsValid0($e) Then Return SetError(2, 0, -1)
    If Not __BigNum_IsValid0($k) Then Return SetError(3, 0, -1)
    Local $res = "1"
    While $e <> "0"
        If Mod(StringRight($e, 1), 2) Then
            $res = _BigNum_Mod(_BigNum_Mul($res, $n), $k)
            $e = _BigNum_Sub($e, "1")
        EndIf
        $n = _BigNum_Mod(_BigNum_Mul($n, $n), $k)
        $e = _BigNum_Div($e, "2")
    WEnd
    Return $res
EndFunc   ;==>__BigNum_PowerMod

Func __BigNum_IsValid0($sX)
    If StringRegExp($sX, "[^0-9.-]") Then Return False
    Return True
EndFunc

Продолжу дальше изучать, здесь тоже встретил информацию, но описания маловато...
---
Позже увидел mpz_probab_prime_p, которая должна проверять валидность простого числа, но подключить в Autoit пока не получилось
 
Последнее редактирование:
  • Like
Реакции: Oki

AZJIO

Меценат
Меценат
Сообщения
2,891
Репутация
1,195
При изучении PureBasic встретил две интересные вещи:
Lizard — язык сценариев для символьных вычислений, произвольных больших и точных чисел, параллельных вычислений и многого другого. По сути это внешняя библиотека с анализатором выражений и ей всего лишь надо писать оболочку для запросов к dll.
BigInt - это модуль написанный на PureBasic и при желании его можно оформить как dll и скомпилировать. В отличии от BigNum.au3 работает быстрее за счёт машинного кода. Я уже пробовал на нём писать программу "генератор пароля" и если для BigNum.au3 я отказался от вычислений в режиме реального времени при вводе ключевого слова и сделал кнопку, то в PureBasic работает в режиме реального времени без торможений.
 
Автор
A

Andrey_A

Продвинутый
Сообщения
325
Репутация
68
интересные вещи
Когда они будут оформлены для теста на Autoit, тогда будет о чём поговорить - проверить скорость, а пока...
---
Что касается скорости GMP, выяснил, что внутри самой библиотеки, можно ещё повысить скорость в несколько раз, при работе с многоразовыми вычислениями. Дело в том что каждая функция создаёт структуру для 2-х чисел, а в конце закрывает _GMPz_Clear. Если структуру 1-го не закрывать, а во вторую передавать следующее число, то скорость обработки увеличивается. На примере у меня показывает 30% при сумме 3-х чисел в цикле 10000. А значит функции _GMP_ParseFloat и _GMP_ParseInt можно ускорить, соответственно полностью их переписав, тем более там кучи всего полезного нет - факториала...

Код:
#include <GMP.au3>

$sValue1='111111111111111111111111111'
$sValue2='222222222222222222222222222'
$sValue3='444444444444444444444444444'
$n=10000
$hTimer=TimerInit()
For $i=1 To $n
  $n1=_GMP_AddInteger3($sValue1,$sValue2,$sValue3)
Next
$iDiff1=TimerDiff($hTimer)/1000

$hTimer=TimerInit()
For $i=1 To $n
  $n2=_GMP_AddInteger(_GMP_AddInteger($sValue1,$sValue2),$sValue3)
Next
$iDiff2=TimerDiff($hTimer)/1000
MsgBox(4096,'Результат','$iDiff1 =>'&$iDiff1&'<='&@CRLF&'$iDiff2 =>'&$iDiff2&'<=')
MsgBox(4096,'Результат','$n1 =>'&$n1&'<='&@CRLF&'$n2 =>'&$n2&'<=')

; Суммирует 3 числа
Func _GMP_AddInteger3($sValue1,$sValue2,$sValue3)
  Local $t_Value1=DllStructCreate($tag_mpz_t),$t_Value2=DllStructCreate($tag_mpz_t)
  Local $p_Value1=DllStructGetPtr($t_Value1),$p_Value2=DllStructGetPtr($t_Value2)
  _GMPz_Init_Set_Str($p_Value1,$sValue1)
  _GMPz_Init_Set_Str($p_Value2,$sValue2)
  _GMPz_Add($p_Value1,$p_Value1,$p_Value2)
 
  _GMPz_Init_Set_Str($p_Value2,$sValue3)
  _GMPz_Add($p_Value1,$p_Value1,$p_Value2)
 
  Local $sRes=_GMPz_get_Str($p_Value1)
  _GMPz_Clear($p_Value1)
  _GMPz_Clear($p_Value2)
  Return $sRes
EndFunc


Нашёл десятка три функций, вернее по аналогии примеров GMP.au3 получилось их составить. Пока не публикую, я никогда не создавал UDF - видимо повозится надо с описаниями, но уже хорошо почти всё нужное нашлось.

Код:
Func _GMP_Mod($sValue1,$sValue2)
Func _GMP_Root($sValue1,$sValue2)
Func _GMP_AddMul($sValue1,$sValue2)
Func _GMP_SubMul($sValue1,$sValue2)
Func _GMP_DivExact($sValue1,$sValue2)
Func _GMP_Cdiv_Q($sValue1,$sValue2)
Func _GMP_Cdiv_R($sValue1,$sValue2)
Func _GMP_FDiv_Q($sValue1,$sValue2)
Func _GMP_FDiv_R($sValue1,$sValue2)
Func _GMP_Com($sValue1)
Func _GMP_Next_Prime($sValue1)
Func _GMP_Abs($sValue1)
Func _GMP_Neg($sValue1)
Func _GMP_LCM($sValue1,$sValue2)
Func _GMP_GCD($sValue1,$sValue2)
Func _GMP_XorInteger($sValue1,$sValue2)
Func _GMP_And($sValue1,$sValue2)
Func _GMP_Invert($sValue1,$sValue2)
Func _GMP_Ior($sValue1,$sValue2)
Func _GMP_Remove($sValue1,$sValue2)
Func _GMP_tDiv_Q($sValue1,$sValue2)
Func _GMP_tDiv_R($sValue1,$sValue2)
Func _GMP_Add_ui($sValue1,$sValue2)
Func _GMP_AbsFloat($sValue1,$J=128)
Func _GMP_CeilFloat($sValue1,$J=128)
Func _GMP_FloorFloat($sValue1,$J=128)
Func _GMP_NegFloat($sValue1,$J=128)
Func _GMP_TruncFloat($sValue1,$J=128)
Func _GMP_RelDiffFloat($sValue1,$sValue2,$J=128)

Пока не получается составить функции сравнения двух чисел, они идут с "cmp" __gmpz_cmp, возможно у кого-то это получится.

В архиве gmp.h.htm, GMP.au3, gmp.dll (вроде последняя версия)
GMP.zip
Сообщение автоматически объединено:

Пока я тут разбираюсь и структурирую, появился вопрос к знатокам DLL, возьмём любую функцию, к примеру эту:

Код:
Func _GMP_HexToInt($sValue)
 Local $t_Value = DllStructCreate($tag_mpz_t)
 Local $p_Value = DllStructGetPtr($t_Value)
 _GMPz_Init_Set_Str($p_Value, $sValue, 16)
 Local $sRes = _GMPz_get_Str($p_Value)
 _GMPz_Clear($p_Value)
 $t_Value = 0
 Return $sRes
EndFunc


В конце каждой команды стоит _GMPz_Clear($p_Value), а то и несколько...
А есть ли в этом смысл? Если данные переменных, объявленные в Local обнуляются атоматически при выходе из функции...
Или структура остаётся в памяти?
Запись $t_Value = 0 из этой же серии - нужна ли? Мы же $sRes ничего не делаем, $sRes передаётся через Return и данные локальной переменной очищаются внутренним функционалом Autoit
---
Дошло _GMPz_Clear нужен, как и функции различные _WinAPI ...Destroy... для закрытия/удаления/очищения дескрипторов...
 
Последнее редактирование:

Prog

Продвинутый
Сообщения
583
Репутация
72
А есть ли в этом смысл?
Судя по коду, освобождение ресурсов.
Если данные переменных, объявленные в Local обнуляются атоматически при выходе из функции...
Посмотрите на код функции _GMPz_Clear()
Код:
Func _GMPf_Clear($pVal)
    DllCall($hDLL_GMP, "none:cdecl", "__gmpf_clear", "ptr", $pVal)
EndFunc   ;==>_GMPf_Clear
Ресурсы освобождаются в dll.
 
Автор
A

Andrey_A

Продвинутый
Сообщения
325
Репутация
68
Ресурсы освобождаются в dll
Спасибо
---
Публикую первую свою UDF - GMP_PLUS.au3 - пока там 22 функции для целых чисел, нюансы в описание, если что сильно не бейте )))
Код:
; _GMP_Add_Integer_ui
; _GMP_Sub_Integer_ui
; _GMP_Mul_Integer_ui
; _GMP_Add_Mul_Integer
; _GMP_Add_Mul_Integer_ui
; _GMP_Sub_Mul_Integer
; _GMP_Sub_Mul_Integer_ui
; _GMP_Mul_Integer_2exp
; _GMP_PowM_Integer
; _GMP_Root_Integer
; _GMP_RootRem_Integer
; _GMP_Abs_Integer
; _GMP_Neg_Integer
; _GMP_Next_Prime
; _GMP_Lcm
; _GMP_Lcm_ui
; _GMP_Gsd
; _GMP_Gcd_ui
; _GMP_XOR
; _GMP_AND
; _GMP_IOR
; _GMP_COM


Версию GMP.au3 из архива вы можете заменить, т.к. у меня было их 2 штуки с англ.сайта - но в одном недоставало того что было в другом - объединил общее...

Ссылку добавил в первое сообщение - думаю там ещё более 50 функций точно будет

Архив с постоянной ссылкой, в нём:
Код:
Old_Vers_Dll\
GMP_PLUS.au3
GMP.au3
Test_GMP_PLUS.au3
gmp.h
gmp.h.htm
gmp.dll

Скачать GMP
Что касается скорости, то это видно на вроде бы незначительных функциях _GMP_AddInteger и _GMP_Add_Integer_ui
Код:
#include <GMP_PLUS.au3>

; ждать примерно 10 секунд...
$sValue1='111111111111111111111'
$n=100000
$hTimer=TimerInit()
For $i=1 To $n
  $sValue1=_GMP_AddInteger($sValue1,$i)
Next
$iDiff1=TimerDiff($hTimer)/1000
$n1=$sValue1
$sValue1='111111111111111111111'

$hTimer=TimerInit()
For $i=1 To $n
  $sValue1=_GMP_Add_Integer_ui($sValue1,$i)
Next
$iDiff2=TimerDiff($hTimer)/1000
$n2=$sValue1
MsgBox(4096,'Результат','$iDiff1 =>'&$iDiff1&'<='&@CRLF&'$iDiff2 =>'&$iDiff2&'<=')
MsgBox(4096,'Результат','$n1 =>'&$n1&'<='&@CRLF&'$n2 =>'&$n2&'<=')

Разница 30% - потому что _GMP_AddInteger() создаёт ДВЕ структуры для 2-х чисел, а _GMP_Add_Integer_ui() - одну
И это тоже можно ускорить - пример выше со сложением 3-х цифр.
Но тут нужно прочитать описание - это актульно, если первое число БОЛЬШОЕ, а второе маленькое... Если оба больших, то конечно же _GMP_AddInteger
Сообщение автоматически объединено:

Добавил ещё 11 функций, дело постепенно продвигается ))
Код:
; _GMP_Fac_ui
; _GMP_2Fac_ui
; _GMP_mFac_uiui
; _GMP_Primorial_ui
; _GMP_Fib_ui
; _GMP_lucNum_ui
; _GMP_Bin_ui
; _GMP_Bin_uiui
; _GMP_ClrBit
; _GMP_Cmp_Integer
; _GMP_Cmp_Integer_d


Для примера скорости - получение миллионного числа Фибоначчи

Код:
#include <GMP_PLUS.au3>

$hTimer=TimerInit()
$sRes=_GMP_Fib_ui(1000000)
$iDiff1=TimerDiff($hTimer)/1000
MsgBox(4096,'Время',$iDiff1)

$sFile=@ScriptDir&'\~~Fib.txt'
$hFile=FileOpen($sFile,2+8+512)
$h=FileWrite($hFile,$sRes)
FileClose($hFile)
ShellExecute($sFile)

Сообщение автоматически объединено:

Добавил ещё 17 функций, добрался и до Float, хотя с целыми ещё есть функции...
Код:
; _GMP_Cmp_Integer_ui
; _GMP_Cmp_Abs_Integer
; _GMP_Cmp_Abs_Integer_d
; _GMP_Cmp_Abs_Integer_ui
; _GMP_Scan0_Integer
; _GMP_Scan1_Integer
; _GMP_Perfect_Power
; _GMP_Perfect_Square
; _GMP_SqrtRem_Integer
; _GMP_Abs_Float
; _GMP_Neg_Float
; _GMP_Ceil_Float
; _GMP_Floor_Float
; _GMP_Trunc_Float
; _GMP_RelDiff_Float
; _GMPz_Clears
; _GMPf_Clears

Сообщение автоматически объединено:

Произведены необходимые изменения в GMP.au3 - Версия: 2.0
Код:
- Добавлены общие функции для очистки нескольких данных
; _GMPz_Clears
; _GMPf_Clears
 - Добавлены функции для общей автоматизации
; _GMPz_ui_Sub
; _GMPz_ui_Pow_ui
; _GMPf_ui_Div
; _GMPf_ui_Sub
 - Изменены ряд функций
 - Изменена структура UDF - к с основным функциям перенесены соответствующие DLL функции
 - К некоторым функциям добавлены комментарии/описание
 - Добавлена глобальная переменная $GMP_BASE_INT
 - Добавлены функции
; _GMP_Set_Base_Int

Т.е добавлены функции, которых не хватало и добавлены новые, кроме того
Добавлена глобальная переменная $GMP_BASE_INT и функция _GMP_Set_Base_Int
Это позволяет для целых чисел "на лету" менять систему счисления и вычислять не только десятичные, но и другие (от 2 до 62)
Пример:
Код:
#include <GMP_PLUS.au3>

_GMP_Set_Base_Int(2) ; двоичная
$sValue1='10101010'
$sValue2='11001100'
$sRes=_GMP_AddInteger($sValue1,$sValue2) ; сложение
MsgBox(4096,'$sRes',$sRes)
$sRes=_GMP_SubInteger($sValue1,$sValue2) ; вычитание
MsgBox(4096,'$sRes',$sRes)
$sRes=_GMP_MulInteger($sValue1,$sValue2) ; умножение
MsgBox(4096,'$sRes',$sRes)
$aRet=_GMP_DivInteger($sValue1,$sValue2) ; деление
$sRes=($aRet[0]? $aRet[0]:'0')&($aRet[1]?'.'&$aRet[1]:'')
MsgBox(4096,'$sRes',$sRes)

_GMP_Set_Base_Int(16) ; шестнадцатеричная
$sValue1='FF00FF00FF'
$sValue2='F0ABC'
$sRes=_GMP_AddInteger($sValue1,$sValue2) ; сложение
MsgBox(4096,'$sRes',StringUpper($sRes))
$sRes=_GMP_SubInteger($sValue1,$sValue2) ; вычитание
MsgBox(4096,'$sRes',StringUpper($sRes))
$sRes=_GMP_MulInteger($sValue1,$sValue2) ; умножение
MsgBox(4096,'$sRes',StringUpper($sRes))
$aRet=_GMP_DivInteger($sValue1,$sValue2) ; деление
$sRes=($aRet[0]? $aRet[0]:'0')&($aRet[1]?'.'&$aRet[1]:'')
MsgBox(4096,'$sRes',StringUpper($sRes))

В GMP_PLUS.au3 добавлены 8 функций и произведена структуризация UDF

Код:
; _GMP_BaseToBase
; _GMP_Add_Float_ui
; _GMP_Sub_Float_ui
; _GMP_Mul_Float_ui
; _GMP_Div_Float_ui
; _GMP_Sqrt_Float_ui
; _GMP_PowM_Integer_ui
; _GMP_PowM_Integer_sec


Одна из них _GMP_BaseToBase, которая конвертирует из одной системы счисления в другую
На форумах видел сотни конвертных функций, все они либо имеют ограничения, либо медленные, т.к. идёт перебор символов... эта опять же порадовала скоростью при длинных данных
Пример:
Код:
#include <GMP_PLUS.au3>

$sValue='81111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111118'
; перевод в двоичную и обратно
$sRes=_GMP_BaseToBase($sValue,10,2)
MsgBox(4096,'$sRes',$sRes)
$sRes=_GMP_BaseToBase($sRes,2,10)
MsgBox(4096,'$sRes',$sRes)

; перевод в шестнадцатеричную и обратно
$sRes=_GMP_BaseToBase($sValue,10,16)
MsgBox(4096,'$sRes',$sRes)
$sRes=_GMP_BaseToBase($sRes,16,10)
MsgBox(4096,'$sRes',$sRes)

; перевод в тридцатишестиричную и обратно
$sRes=_GMP_BaseToBase($sValue,10,36)
MsgBox(4096,'$sRes',$sRes)
$sRes=_GMP_BaseToBase($sRes,36,10)
MsgBox(4096,'$sRes',$sRes)

; перевод в 50-ричную и обратно
$sRes=_GMP_BaseToBase($sValue,10,50)
MsgBox(4096,'$sRes',$sRes)
$sRes=_GMP_BaseToBase($sRes,50,10)
MsgBox(4096,'$sRes',$sRes)

Сообщение автоматически объединено:

Наверное последнее добавление - для себя всё что мне надо нашёл, + 55 функций
Обновлена GMP.au3, версия 2.1

Там конечно для скорости ещё многое чего надо (для себя уже переписываю/создаю) - отдельные функции внутри функций или дополнительные совместные, чтобы структуру не множить..., но это уж каждый для себя решит как этим воспользоваться - примеры есть.
Совет - функции с "длинными" имена лишь частный случай, для скорости нескольких преобразований числа лучше писать отдельную функцию передавая структуру числа из "короткой" функции в "короткую"... и только в конце очищать данные (я не просто так рядом с "описанной функцией" разместил соответстующую DLL функцию - она главная для будущих циклических изменений числа).
Об этом написано в англ. мануле: "Избегайте чрезмерной инициализации и очистки переменных, так как это может занять довольно много времени"
Для любителей есть ещё и libmpfr.dll - с логарифмами, косинусами... но это уже другая тема.

Вижу тема не сильно интересна, но возможно кому-то когда-то понадобится. Всем удачи в преобразовании больших числел, если что сообщайте об ошибках.


Код:
; _GMP_Probab_Prime_p
; _GMP_Jacobi
; _GMP_Kronecker_ui
; _GMP_ui_Kronecker
; _GMP_Legendre

; _GMP_cDiv_Q
; _GMP_cDiv_Q_ui
; _GMP_cDiv_R
; _GMP_cDiv_R_ui
; _GMP_cDiv_QR
; _GMP_cDiv_QR_ui
; _GMP_cDiv_ui
; _GMP_cDiv_Q_2exp
; _GMP_cDiv_R_2exp

; _GMP_fDiv_Q
; _GMP_fDiv_Q_ui
; _GMP_fDiv_R
; _GMP_fDiv_R_ui
; _GMP_fDiv_QR
; _GMP_fDiv_QR_ui
; _GMP_fDiv_ui
; _GMP_fDiv_Q_2exp
; _GMP_fDiv_R_2exp

; _GMP_tDiv_Q
; _GMP_tDiv_Q_ui
; _GMP_tDiv_R
; _GMP_tDiv_R_ui
; _GMP_tDiv_QR_ui
; _GMP_tDiv_ui
; _GMP_tDiv_Q_2exp
; _GMP_tDiv_R_2exp

; _GMP_Mod
; _GMP_Divisible_p
; _GMP_Divisible_ui_p
; _GMP_Divisible_2exp_p
; _GMP_Congruent_p
; _GMP_Invert
; _GMP_Swap_Integer
; _GMP_SetBit
; _GMP_ComBit
; _GMP_HamDist
; _GMP_PopCount
; _GMP_TstBit

; _GMP_Mul_Float_2exp
; _GMP_Div_Float_2exp
; _GMP_Cmp_Float
; _GMP_Cmp_Float_z
; _GMP_Cmp_Float_d
; _GMP_Cmp_Float_ui
; _GMP_Float_Integer_p

; _GMP_uRandom_Integer_b_len
; _GMP_uRandom_Integer_m
; _GMP_rRandom_Integer_b_len
; _GMP_uRandom_Integer_b_ui
; _GMP_uRandom_Integer_m_ui
 
Последнее редактирование:

AZJIO

Меценат
Меценат
Сообщения
2,891
Репутация
1,195
На PureBasic тоже есть тема GMP, как оказалось.
 
Автор
A

Andrey_A

Продвинутый
Сообщения
325
Репутация
68
На англ. и немец. форуме темы тоже есть, но 10-летней давности без интереса, на PureBasic не увидел ни одной прямой ссылки (или "битые")... Хотелось бы посмотреть функции, т.к. язык схожий... , а то не зная синтаксиса C+ приходилось голову ломать что за переменную передать, то ли ptr, то ли ulong/int, то ли ещё что-то?... если есть такое на PureBasic, то хотелось бы видеть прямую ссылку на весь пакет, чтобы не терять времени, возможно бы что-то подкорректировалось и создалось новое
 

AZJIO

Меценат
Меценат
Сообщения
2,891
Репутация
1,195
хотелось бы видеть прямую ссылку на весь пакет
я там последним постом просил выложить библиотеки для всех ОС, так как все ссылки битые. Так что у меня ничего нет. Максимум я нашёл ещё эту ссылку, где я скачал libgmp-10.dll для x32 и с ней проверил код во втором посте темы на форуме PureBasic. И кстати буквально на днях ещё тут человек спрашивал либы для работы с большими числами. В итоге у тебя dll - 200кб, а там 600 кб. Поэтому я и просил, чтобы тот знающий чел выложил x64 и x32, если ему удалось скомпилировать для Windows, Linux и Mac OS. Но возможно ему удалось скачать с официального сайта, так как там где то была ссылка якобы скомпилированных либ, но я там не смог скачать, качаются только ссылки на исходники.
 
Автор
A

Andrey_A

Продвинутый
Сообщения
325
Репутация
68
качаются только ссылки на исходники
Я тоже не один день искал - здесь... не могу сказать - разные версии для более продвинутых, но есть
Там есть в архиве обе библиотеки в архиве...
x32_mpfr-3.1.5_gmp-6.1.2_standalone.7z
---
Я нашёл ищё и "сжатую" - но все они с разным размером работают... некоторые функции на самых первых типа gmp 1.5. возможно нет, т.к. давно изменялись
---
Если найдутся сами функции на PureBasic - будет хорошо на них глянуть
 
Последнее редактирование:

AZJIO

Меценат
Меценат
Сообщения
2,891
Репутация
1,195
что за переменную передать, то ли ptr, то ли ulong/int, то ли ещё что-то?... если есть такое на PureBasic
указатель пишется так *var (со звёздочкой) или взятие указателя @VAR, то есть получить указатель переменной var. Если функция запишет число в указатель, то оно мне просто доступно, я просто использую var как число, в которое было записано число функцией. В PureBasic нет беззнаковых чисел, то есть любой тип числа это диапазон от -127 до 127, то есть нет диапазона 0-127.
Если смотреть код, там *op.mpz, то это структура, после точки если одна буква - одна из abcdfilqsuw то это тип числа, строки и т.д. а если некое слово, то это объявление структуры, то есть в функцию передаётся указатель на структуру "mpz", выше смотри "Structure mpz" и ниже поля структуры с типами integer, то есть ".i" это и есть тип integer.
integer
4 байта (в 32-разрядном компиляторе) от - 2147483648 до +2147483647
8 байтов (в 64-разрядном компиляторе) от - 9223372036854775808 до +9223372036854775807
скачай справку по PureBasic, введи "типы" и увидешь страницу со всеми типами. Ну или вот онлайн страница по типам.
 
Последнее редактирование:
Автор
A

Andrey_A

Продвинутый
Сообщения
325
Репутация
68
указатель пишется так *var (со звёздочкой)
Честно ничего не понял (причём тут PureBasic, меня он не интересует и его справка тоже - если был код из него для GMP, то можно было бы сравнить) - я брал код с описания С+ или Delfi (возможно) и.др. - там никаких звёздочек, а точное определение [ptr|int|ulong|double|иногда срабатывали и другие типа uint64] - при тестировании при неточном определении происходило зависание скрипта, т.к. в GMP есть либо описанный, либо свой тип больших данных, (возможно до него не достучаться) - приведи пример любой функции в GMP_PLUS.au3 где нужно подправить (а могут быть и ошибки) - я исправлю...
В некоторых местах тянулась рука увеличить - но то, что значит "ulong" в Autoit не значит то же в gmp.dll - но при этом всём библиотека быстрая и дружелюбная))
 
Последнее редактирование:

AZJIO

Меценат
Меценат
Сообщения
2,891
Репутация
1,195
Ты для чего тогда спрашиваешь как выглядят пурибэйсиковые указатели и тип данных и код, если тебе это ничего не нужно? А в том посте разве нет кода? Пиши точнее тогда, мне тоже собирать ссылки нет желания ради того чтобы услышать что тебе нафиг не надо, не надо так и пиши сразу, чтобы я не тратил время. Хотя из твоего вопроса я понял что ты хочешь по коду пурика узнать тип данных.
Сообщение автоматически объединено:

если есть такое на PureBasic
PureBasic, меня он не интересует
определись
 
Последнее редактирование:
Автор
A

Andrey_A

Продвинутый
Сообщения
325
Репутация
68
А в том посте разве нет кода?
Если ты имеешь ввиду типа такого
Код:
PrototypeC   mpf_sqrt(*rop.mpf, *op.mpf)
PrototypeC   mpf_sqrt_ui(*rop.mpf, op.i)
PrototypeC   mpf_pow_ui(*rop.mpf, *op1.mpf, op2.i)

Такой код мне не нужен, не трать время... это всё есть и в англ. описании - там сложность в другом... значит не поняли друг друга. В общем на этом и закончим.
 
Последнее редактирование:
Верх