Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

MathEx

Sopelek997

Przez Sopelek997
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

  • Autor
Opublikowano

Dodałem 4 swoje funckje dot. fizyki.

Dziś, albo jutro uporządkuje funkcje w UDFie tematycznie, bo się bałagan zrobił

_SilaWyporu($Gestosc, $ObjCieczyWyp [, $_g])

_SilaSprezystosci($Wsp, $ZmianaDlCiala)

_PredkoscFali($Dl, $Czestotliwosc)

_SilaCiezkosci($Dl[, $_g])

 

@down

Na razie zostanie tak jak jest. To byłaby mała różnica.

981841412442977292370.png
  • Odpowiedzi 50
  • Dodano
  • Ostatniej odpowiedzi
Assarelliuss Znawca

Assarelliuss

Opublikowano
Znawca

Assarelliuss

Opublikowano

Propnuje podzielić to na 2 mniejsze UDFy

Cytat

 

Orientacja seksualna polega na tym, że jeden mężczyzna lubi blondynki, drugi szatynki, że jedna pani woli umięśnionych mężczyzn a inna chudych intelektualistów. Homoseksualizm nie jest orientacją jest chorobą za którą homoseksualiści nie ponoszą odpowiedzialności. Pewna grupa ludzi rodzi się upośledzona fizycznie, na przykład bez ręki ale czy to znaczy, że wszystkim zdrowym powinniśmy też obcinać ręce? Nie, powinniśmy zapewnić im protezy. Obowiązkiem państwa jest zapewnienie homoseksualistom, jak wszystkim upośledzonym fizycznie czy psychicznie profesjonalnej opieki medycznej.

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

  • Autor
Opublikowano

@refresz,

i przy okazji dodałem jedną funkcję. Już nie mam pomysłów :D

 

Func _XLiczbaCiaguFibonacciego($iN)
If Not IsInt($iN) Or $iN < 0 Then Return -1
Return ((1 / (5 ^ 0.5)) * (((1 + (5 ^ 0.5)) / 2) ^ $iN)) - (1 / (5 ^ 0.5)) * (((1 - (5 ^ 0.5)) / 2) ^ $iN)
EndFunc   ;==>_XLiczbaCiaguFibonacciego

 

Jeszcze po długich męczarniach udało mi się ukończyć działania na dużych liczbach ujemnych. np -10 + 10 czy -10 + (-10) itd itp.

 

Dodałem jeszcze funkcję wewnętrzą, która sprawdza, czy liczba jest ujemna, i funkcję ABS() tylko w wersji string, ponieważ przy dużych liczbach normalny abs() nie porówna aż tak dużych liczb.

Jeszcze dodam taką do sprawdzania, która jest większa, ale to jutro. Przyda się ponieważ chyba kilka razy jest to sprawdzane, i chyba też może to wpływać na błędy obliczeń przy dużych liczbach.

 

@edit, wkurzały mnie błędy (które nie były błędami) wywalane przez debugera, więc tablice pierwiastków zadeklarowałem nie w funkcji.

@edit 2

edytowałem 1 post

 

 

 

@down, dodałem, wiem że nie są to trudne funckje, ale tak z czystej formalności.

Co do podzialu to może w późniejszym czasie.

981841412442977292370.png
Protecto Bywalec

Protecto

Opublikowano
Bywalec

Protecto

Opublikowano

Jestem w trakcie pytania zwierzaka o kod do obliczania Symbolu Newtona i sprawdzania podzielności liczb.

Attention all units, attention all units! :D

Zwierzak wyraził zgodę na zamieszczenie w naszym UDF funkcji jego autorstwa.

 

Rozmowa:

 

JA:

Witam.

Zwracam się do Ciebie z pytaniem o to, czy wyrażasz zgodę na skopiowanie Twojego kodu (MathUDF: Symbol Newtona; Czy podzielna) na inne forum. Informuję, że nie chcę tego dla własnych korzyści (reputacja, podziękowania), ale pragniemy dopisać Twój kod do MathEx UDF współtworzonego przez użytkowników forum. Jeżeli zgodziłbyś się, to byłbym niezmiernie wdzięczny i postarałbym się zrewanżować. Oczywiście informacja o Twoim autorstwie zostanie dopisana do tematu z w/w UDF.

 

zwierzak:

OK, nie ma sprawy jeśli zamieścicie informacje o autorze :P Trochę się jednak napracowałem nad tym UDF'em. Możecie wpisać zwierzak z autoit.xaa.pl jako autora czy coś w tym stylu.

Pozdrawiam!

 

JA:

Ok dzięki. :)

 

 

 

Moim zdaniem funkcje są bardzo fajne. Przydadzą się.

 

@Sopel

Dopisz tylko, że autorem jest:

zwierzak z autoit.xaa.pl

 

Mam nadzieję, że się przyda.

 

Funkcje:

 

Symbol Newtona

Func _symbolNewtona($Math_n, $Math_k)
  If $Math_k > $Math_n Or Not IsInt($Math_n) Or Not IsInt($Math_k) Or $Math_n < 0 Or $Math_k < 0 Then
  Return -1
  ElseIf $Math_k = 0 Or $Math_n = $Math_k Then
  Return 1
  ElseIf $Math_k = 1 Then
  Return $Math_n
  Else
  Return (_silnia($Math_n) / (_silnia($Math_k) * _silnia($Math_n - $Math_k)))
  EndIf
EndFunc   ;==>_symbolNewtona

 

Czy podzielne (zawalista funkcja ;))

Func _czyPodzielne($Math_a, $Math_
  If Not IsNumber($Math_a) Or Not IsNumber($Math_ Or $Math_b = 0 Then Return -1

  If Mod($Math_a, $Math_ = 0 Then
  Return 1
  Else
  Return 0
  EndIf
EndFunc   ;==>_czyPodzielne

 

@EDIT

Propnuje podzielić to na 2 mniejsze UDFy

 

Zgadzam się, ale jeżeli już to na chemię i fizyka/matematyka. Było by najlepiej. :)

 

@EDIT

Uznałem, że warto podpiąć, gdyż ten UDF jest współtworzony przez wielu użytkowników i powinien być zawsze na wierzchu.

  • 2 tygodnie później...
Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

  • Autor
Opublikowano

co powiecie na mały @ref ;>

 

 

@edit. podpięte można odświeżać, bo teraz zauważyłem, że go podpiołeś i nie wiem czy mogę co jakiś czas robić refy?

@down spoko będe pamiętał :)

981841412442977292370.png
  • 2 tygodnie później...
ziuto Znawca

ziuto

Opublikowano
Znawca

ziuto

Opublikowano

a moze by ktos jeszcze dodal :

sin , cos , tg , ctg α

wartosc bezwgledna

procent z danej liczby

przyblizeniu do wybranego miejsca po przecinku

pierwiastek z n tego stopnia

pola i obwody roznych figur geometrycznych

 

@EDIT : @DOWN : @Sopelek997 :

aha..

to ok

post zbedny ;/

 

;Script by ziuto

;Source-code Autoit v3

$User = InputBox("Twoj nick", "Podaj swoj nick", "tu go wpisz")

If $User = "ziuto" Then

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Sam sie lubie", 50, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam sobie 5 gwiazdek", 30, 40)

ElseIf $User <> "ziuto" Then

MsgBox(0, "Powitanie", "Siema " & $User)

$gui = GUICreate("User " & $User, 175, 100, -1, -1, 0x00080000)

$button_lubie_cie = GUICtrlCreateButton("Lubie cie ziuto", 47, 10)

$button_dam_ci_5_gwiazdek = GUICtrlCreateButton("Dam ci 5 gwiazdek ziuto", 25, 40)

EndIf

GUISetState(@SW_SHOW, $gui)

While $User = "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie sie", "Sam sie lubie :o")

Case $msg = $button_dam_ci_5_gwiazdek

MsgBox(0, "Dam sobie 5 gwiadek", "Ze bym to ja mogl sam sobie dac")

EndSelect

WEnd

While $User <> "ziuto"

$msg = GUIGetMsg()

Select

Case $msg = -3

ExitLoop

Case $msg = $button_lubie_cie

MsgBox(0, "Lubie cie", "A za co ?")

InputBox("A za co ?", "Za co mnie lubisz ?", "???")

MsgBox(0, "Za to", "Aha" & @CRLF & "Dobrze to wiedziec xD" & @CRLF & "Nq")

ShellExecute("http://www.mpcforum.pl/")

ExitLoop

Case $msg = $button_dam_ci_5_gwiazdek

ShellExecute("http://www.mpcforum.pl/user/259390-ziuto/")

EndSelect

WEnd


Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

  • Autor
Opublikowano

masz w autoit standardowo sin() cos() tan() itp (chyba jest potrzebny #include <math.au3>)

 

abs() wartość bezwzględna (jest funkja własna w UDFie __ABS, która robi to samo tlyko używając stringów, tym samym może pracować na dużo większych liczbach. Była mi potrzebna do działań na dużych wartościach, ale można jej także używać normalnie)

 

procent z liczby po co. to jest tylko liczba * ilosc procent / 100

 

pierwiastek n stopnia to x ^ (1 / stopien)

 

pola, obwody i objętości odpadają, ponieważ jest tyle różnych wzorów na to, że pisanie tego wszystkiego to strata czasu. A jak ktoś będzie potrzebował to sobie sam to napisze z pomocą wikipedii i będzie git. Jednym słowem, jak już pisać takie rzeczy to wszystko, a ciężko by było czegoś nie pominąć i upakować to w jedną całość.

981841412442977292370.png
ps19 Specjalista

ps19

Opublikowano
Specjalista

ps19

Opublikowano

Jak dla mnie mógłbyś dodać jeszcze funkcje trygonometryczne m.in:

 

- sinus

- cosinus

- tangens

- contangens

- secans

- cosecans

 

Jak będę miał trochę czasu to naskrobie coś

Protecto Bywalec

Protecto

Opublikowano
Bywalec

Protecto

Opublikowano

Czytasz poprzednie posty?

 

a moze by ktos jeszcze dodal :

sin , cos , tg , ctg α

wartosc bezwgledna

procent z danej liczby

przyblizeniu do wybranego miejsca po przecinku

pierwiastek z n tego stopnia

pola i obwody roznych figur geometrycznych

 

@EDIT : @DOWN : @Sopelek997 :

aha..

to ok

post zbedny ;/

 

masz w autoit standardowo sin() cos() tan() itp (chyba jest potrzebny #include <math.au3>)

 

abs() wartość bezwzględna (jest funkja własna w UDFie __ABS, która robi to samo tlyko używając stringów, tym samym może pracować na dużo większych liczbach. Była mi potrzebna do działań na dużych wartościach, ale można jej także używać normalnie)

 

procent z liczby po co. to jest tylko liczba * ilosc procent / 100

 

pierwiastek n stopnia to x ^ (1 / stopien)

 

pola, obwody i objętości odpadają, ponieważ jest tyle różnych wzorów na to, że pisanie tego wszystkiego to strata czasu. A jak ktoś będzie potrzebował to sobie sam to napisze z pomocą wikipedii i będzie git. Jednym słowem, jak już pisać takie rzeczy to wszystko, a ciężko by było czegoś nie pominąć i upakować to w jedną całość.

  • 2 tygodnie później...
Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

  • Autor
Opublikowano

@pfff...

Próbuje wrzucić dodatkowe funkcje to się nie da, bo pisze, że za dużo emotek...

pół godziny ogarniania estetyki w dupe.

zaraz wrzucę kod na wklej.to

 

Da się wyłączyć wykrywanie emotek w poście?

 

Dodane

_ZamienJednostkiDlugosci($fLiczba, $Jedn1, $Jedn2, $bAlgebraEx = 0)

_ZamienJednostkiPolaPowierzchni($fLiczba, $Jedn1, $Jedn2, $bAlgebraEx = 0)

_ZamienJednostkiDanych($fLiczba, $Jedn1, $Jedn2, $bAlgebraEx = 0)

_ZamienJednostkiObjetosci($fLiczba, $Jedn1, $Jedn2, $bAlgebraEx = 0)

_SumaKolejnychLiczb($iX, $iY)

 

 

@down poprawione dzięki :)

981841412442977292370.png
  • 2 tygodnie później...
Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

  • Autor
Opublikowano

Dodałem 2 nowe funkcje do zamiany jednostek. Myślę, że więcej na razie nie potrzeba, a jeśli jednak to i tak już nie będą sprawiać dużych kłopotów.

Proszę Was o testowanie nowych siedmiu funkcji, ponieważ możliwym jest, że się walnąłem gdzieś przy wpisywaniu wartości, a samemu ciężko jest mi to wszystko ogarnąć.

Do zbierania danych o jednostkach używam tej strony.

http://www.jednostki.adgraf.net/jednostki_energii.php

 

Podsyłajcie pomysły ew. już gotowe kody funkcji (dotyczących matematyki, fizyki lub chemii oczywiście :)), które uważacie, że mogą się przydać w jakimkolwiek programie użytkowym. Za wszelkie propozycje i gotowe funkcję wielkie dzięki :)

981841412442977292370.png
  • 2 miesiące temu...
Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

  • Autor
Opublikowano

poprawiłem. Wrzuciłem na wklej.to, a w spoilerach zostawiłem tylko liste funckji

981841412442977292370.png
  • 1 miesiąc temu...
Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

  • Autor
Opublikowano

OK. Dzisiaj na lekcji matematyki doznałem olśnienia i wpadłem na pomysł wyliczenia całki oznaczonej.

Kod podam na razie tylko w tym poście, proszę, aby ktoś kompetentny go zweryfikował pod względem poprawności matematycznej i obliczeniowej, gdyż moje pojęcie całek jest nikłe i może być błędne. Możecie go poprawić i mi podesłać. Po poprawnej weryfikacji zostanie dodany do UDFa

 

; #FUNKCJA# ======================================================================================
; Nazwa..........: _CalkaOznaczona
; Opis...........: Oblicza całkę oznaczoną funkcji
; Składnia.......: _CalkaOznaczona($funkcja, $a, $b, $ao, $bo, $margines)
; Parametry......: $funkcja - Wzór funkcji podany jako string.
;				  $a - Początek przedziału
;				  $b - Koniec przedziału
;				  $ao - Czy początek przedziału jest otwarty
;				  $bo - Czy koniec przedziału jest zamknięty
;				  $margines - Dokładność z jaką ma być wyliczona całka. (I mniejsza wartość tym większa dokładność)
; Zwracane wart..: Sukces - Zwraca wartość całki oznaczonej funkcji
;						    Niepowodzenie - Zwraca -1 - Zbyt mały przedział lub dokładność
; Autor .........: Sopel
; Dodatkowe informacje: We wzorze funkcji można używać innch funckji, np. Sin(), Cos() itd.
;					   Należy pamiętać, ze zapis "2X" nie zostanie przyjęty. (Trzeba podać "X*2" lub "2*X").
;					   Wielkość litery "X" nie ma znaczenia
; Przykład użycia: MsgBox(64, '', _CalkaOznaczona("2*x", 0, 4, True, True, 0.00001)) ; wynik powinien wynosić około 16.
; =================================================================================================
Func _CalkaOznaczona($funkcja, $a, $b, $ao, $bo, $margines)
   Local $pole = 0
   $funckja = StringReplace($funkcja, "x", "$x")
   If Not $ao Then $a += $margines
   If Not $bo Then $b -= $margines
   If $a + $margines >= $b Then Return -1
   For $x = $a To $b Step $margines
       $pole += Execute($funckja) * $margines
   Next
   Return $pole
EndFunc   ;==>_CalkaOznaczona

Jeśli ktoś miałby lepsze rozwiązania, również proszę o ich przedstawienie

981841412442977292370.png
  • 2 miesiące temu...
  • 1 miesiąc temu...
bigos91 Uczeń

bigos91

Opublikowano
Uczeń

bigos91

Opublikowano

Algorytm znajdywania miejsca zerowego dowolnej funkcji w podanym przedziale argumentów.

Dosyć szybki i dokładny algorytm ^^

Oparty na sprawdzaniu czy w danym przedziale liczbowym może być miejsce zerowe, bazując na znaku wartości funkcji. Jeśli dla dwóch różnych argumentów x , wartość funkcji jest dodatnia dla pierwszego i ujemna dla drugiego , lub odwrotnie , to oznacza ze w tym przedziale funkcja musi przecinać oś OX - co oznacza że gdzieś tam jest miejsce zerowe. Idąc dalej , musimy skrócić przedział wyszukiwania aby znaleźć wartość prawidłową , więc dzielimy przedział na 2 podprzedziały i robimy to samo dla obu i tak w kółko ^^

Przykładowy wynik dla funkcji f(x) = 2*x^3-10 , jedno miejsce zerowe ~ 1,70997594 - według kalkulatora wolfram|alpha , moj algorytm podal wynik ~ 1,70997590 dla 20 petli i przedzialu <-20,20>.

Wiec można uznać algorytm za dokładny, szczególnie że przy zwiększeniu liczby pętli zwiększa się drastycznie dokładność, nieznacznie tracąc na szybkości obliczeń.

Może i jest trochę niepotrzebnych zmiennych, ale za to kod będzie łatwiejszy w zrozumieniu ^^

Mam nadzieję że się przyda, posiedzę trochę to może napisze algorytmy liczenia pochodnych, całek, przekształcania wzorów itp. ^^

 

@EDIT

bardzo łatwo przerobić to na liczenie wielu miejsc zerowych a nie jednego w danym przedziale ^^

 

@EDIT 2

no dobra jednak nie jest tak łatwo, poza tym algorytm nie znajdzie miejsca zerowego jeśli funkcja w danym miejscu nie przecina osi OX tylko się odbija ^^

 

; #FUNKCJA# ======================================================================================
;
; Nazwa...............:   _mzerowe
; Opis................:   Obliczanie miejsca zerowego funkcji dla zadanego przedzialu
;
; Skladnia............:	_mzerowe ( $_func, $_xmin, $_xmax, $_loop = 20 )
; Parametry...........:	   $_func - wzor funkcji w postaci ogolnej np. 2*x^2-10
;				  $_xmin - dolna granica przedzialu
;				  $_xmax - dolna granica przedzialu
;				  $_loop - ilosc petli - wiecej petli = wieksza dokladnosc , standardowo 20
;
; Zwracane wartosci...:   Powodzenie  jakaś liczba 
;			  Niepowodzenie zwraca false , prawdopodobnie w przedziale nie ma miejsc zerowych lub jest ich wiecej niz jedno, zaleca się zmniejszyć przedział
;
; Autor...............:   bigos91
;
; Dodatkowe informacje:   zalezy stosowac zapis typu 2*x^2 , pominiecie znaku mnozenia da bledny wynik
;
; Przyklad uzycia.....:
;				   $x1 = _mzerowe ( "2*x^2-10" , -5 , 0 )
;				   $x2 = _mzerowe ( "2*x^2-10" ,  0 , 5 )
;				   ;  funkcja 2*x^2-10 przejmoje wartosci zerowe dla
;				   ;  x1 = -pierwiastek z 5
;				   ;  x2 =  pierwiastek z 5 czyli cos kolo -2.23607 i 2.23607
;
;				   msgbox ( 0 , "" , "x1 = " & $x1 & " , x2 = "&$x2 )
; =================================================================================================
func _mzerowe ( $_func, $_xmin, $_xmax, $_loop = 20 )
Local $x1min, $x1max, $x2min, $x2max
Local $i ; iterator
IF (Execute(Stringreplace($_func,"x",$_xmin)) > 0 AND Execute(Stringreplace($_func,"x",$_xmax)) < 0) OR (Execute(Stringreplace($_func,"x",$_xmin)) < 0 AND Execute(Stringreplace($_func,"x",$_xmax)) > 0) Then
 ;wstepne ustalenie przedzialow
 ; przedzial lewy
 $x1min = $_xmin
 $x1max = $_xmax - 0.5*($_xmax-$_xmin)
 ; przedzial prawy
 $x2min = $_xmax - 0.5*($_xmax-$_xmin)
 $x2max = $_xmax
 for $i = $_loop to 0 Step -1 ; glowna petla
  If Execute(Stringreplace($_func,"x",$x1min)) > 0 AND Execute(Stringreplace($_func,"x",$x1max)) < 0 Then; sprawdzanie 1. przedzialu
; ustalanie przedzialu lewego
$x1min = $x1min ; --- pozostaje ten sam
$x1max = $x2min - 0.5*($x2min-$x1min)
; ustalanie przedzialu prawego
$x2max = $x2min
$x2min = $x1max
  ElseIf Execute(Stringreplace($_func,"x",$x1min)) < 0 AND Execute(Stringreplace($_func,"x",$x1max)) > 0 Then
; ustalanie przedzialu lewego
$x1min = $x1min ; --- pozostaje ten sam
$x1max = $x2min - 0.5*($x2min-$x1min)
; ustalanie przedzialu prawego
$x2max = $x2min
$x2min = $x1max
  EndIf
  If Execute(Stringreplace($_func,"x",$x2min)) > 0 AND Execute(Stringreplace($_func,"x",$x2max)) < 0 Then; sprawdzanie 2. przedzialu
; ustalanie przedzialu lewego
$x1min = $x1max
$x1max = $x2min + 0.5*($x2max-$x2min)
; ustalanie przedzialu prawego
$x2max = $x2max ; --- pozostaje ten sam
$x2min = $x2min + 0.5*($x2max-$x2min)
  ElseIf Execute(Stringreplace($_func,"x",$x2min)) < 0 AND Execute(Stringreplace($_func,"x",$x2max)) > 0 Then
; ustalanie przedzialu lewego
$x1min = $x1max
$x1max = $x2min + 0.5*($x2max-$x2min)
; ustalanie przedzialu prawego
$x2max = $x2max ; --- pozostaje ten sam
$x2min = $x2min + 0.5*($x2max-$x2min)
  EndIf
 Next
 return ($x2max+$x1min)/2
Else
 return false
EndIf
EndFunc

  • 2 miesiące temu...
jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

z nudów, konwertowanie z systemu dwójkowego na ósemkowy

 


global $i,$ajc
global $ouh[3]
; #FUNKCJA# ======================================================================================
; Nazwa..........: BinaryTo8
; Opis...........: Przelicza z systemu binarnego na 8
; Składnia.......: BinaryTo8($wsad)
; Parametry......: $wsad = podajemy liczbe binarną, np.101001010
; Zwracane wart..: Sukces - zwraca zamieniona liczbe binarna na osemkowa
; Autor .........: jackraymund
; Dodatkowe informacje: (to jest najłatwiejszy sposób obliczania(to nie jest ten sposób dzielić przez 2))
;z początku upewniając się czy jest podzielny przez 3 jak nie to dodaje 0 aby był podzielny
;potem funkcja rozbija kod binarny po 3 znaki np. 010, z czego wiemy że 0 to 0, a 1 to oznacza że coś się pod tym kryje,
;lecz wartość tego zależy od miejsca w którym się znajduje, 1 miejsce = 1, 2 miejsce = 2, 3 miejsce = 4(1 miejsce od prawej strony), i
;łączy zsumowane rozbitki
;np. 100 = 4, 010 = 2, 110 = 6

; Przykład użycia: msgbox(0,"",BinaryTo8("12300123")
; =================================================================================================
func BinaryTo8($wsad)
while (StringInStr(StringLen ($wsad)/3,"."))
$wsad = "0" & $wsad
WEnd
for $i = 1 to stringlen($wsad) step +3
$aha = stringmid($wsad,$i,3)
for $z = 1 to 3
if stringmid($aha,$z,1) = 1 Then
$ouh[$z -1] = 1
Else
$ouh[$z-1] = 0
EndIf
Next
$zmienna = 0
for $x = 1 to 3
if $x = 3 and $ouh[$x-1] = 1 then $zmienna += 1
if $x= 2 and $ouh[$x-1] = 1 then $zmienna += 2
if $x = 1 and $ouh[$x-1] = 1 then $zmienna += 4
Next
$ajc &= $zmienna
Next
Return $ajc
EndFunc

może zrobie później też z plątanine tzn. obliczanie z systemu 10, 8, 16 i 2 we wszystkie strony, czyli np, 8 na 2, 16 na 8 itd.

jedyne co to problem jest z wklej.to , bad gateway

Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

  • Autor
Opublikowano

@up.

Takie rozbijanie nie wiem czy jest potrzebne. Jeśli już to zrobić jeden dobry algorytm na zamienianie liczb pomiędzy dwoma systemami będącymi potęgami dwójki. Jeśli komuś by zależało na szybkości (LOL, to przecież autoit, komu potrzebna szybkość).

 

jedyne co to problem jest z wklej.to , bad gateway

już działa

981841412442977292370.png
Sopelek997 Weteran

Sopelek997

Opublikowano
Weteran

Sopelek997

  • Autor
Opublikowano

wiem, właśnie dlatego napisałem, aby zrobić jeden algorytm dla wszystkich systemów gdzie zamiana polega na odliczaniu określonej ilości znak i zamienieniu ich na jeden w docelowym systemie lub na odwrót

981841412442977292370.png
  • 5 miesięcy temu...
  • 2 tygodnie później...
  • 1 miesiąc temu...

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...