Logický součin VYŘEŠENO

atapik · 18. 4. 2011 16:57:32

Zdravím, potřebuju poradit jak udělat logický součin mezi dvěmi binárními čísly.
Př.
číslo 1: 10101000
číslo 2: 10100100
výsledek: 10100000

Díky.

sedlacekdan · 18. 4. 2011 18:13:28

Jistou naprosto šílenou konstrukcí vzorce to jde a nic jiného jsem v nápovědě nenašel, ale radši počkáme na reakci ostatních. V nouzi nejvyšší použijte:

V A1 je 10101000
v A2 je 10100100

vzorec je:

=VALUE(CONCATENATE(IF(AND(LEFT(A1;1)="1";LEFT(A2;1)="1");1;0);
IF(AND(MID(A1;2;1)="1";MID(A2;2;1)="1");1;0);IF(AND(MID(A1;3;1)="1";MID(A2;3;1)="1")
;1;0);IF(AND(MID(A1;4;1)="1";MID(A2;4;1)="1");1;0);IF(AND(MID(A1;5;1)="1";MID(A2;5;1)="1");
1;0);IF(AND(MID(A1;6;1)="1";MID(A2;6;1)="1");1;0);IF(AND(MID(A1;7;1)="1";MID(A2;7;1)="1");
1;0);IF(AND(RIGHT(A1;1)="1";RIGHT(A2;1)="1");1;0)))

Tak a teď mě zastřelte než mě najde lp.
;o)

lp. · 18. 4. 2011 18:58:53

Ano, jde to. Trochu přehlednější (a méně zavislá na počtu číslic) je možná varianta:

=SUMPRODUCT(
VALUE(MID(TEXT(A1;REPT(0;8));ROW(INDIRECT("1:8"));1));
VALUE(MID(TEXT(A2;REPT(0;8));ROW(INDIRECT("1:8"));1));
10^(8-ROW(INDIRECT("1:8")))
)

Kvůli čitelnosti je těch řádků více:

ROW(INDIRECT("1:8"))

vygeneruje řadu čísel 1 - 8,

=MID(TEXT(A1;REPT(0;8));ROW(INDIRECT("1:8"));1))

nebo

=MID(TEXT(A1;"00000000");ROW(INDIRECT("1:8"));1))

rozloží číslo na číslice (zkuste uložit pomocí ctrl-shift-enter (matice)), Samozřejmě 8 číslic, lze dodat jako parametr.

=10^(8-ROW(INDIRECT("1:8")))

dá 10E7, 10E6, ..., 1 (zkuste uložit jako matici)

SUMPRODUCT vyvolá maticový režim a jednotlivé číslice pronásobí, ...

ale radši si na to napište vlastní makro funkci (určitě ji na webu najdete)

hanus · 18. 4. 2011 19:18:26

Makro resp. fce nebude složitá, navíc by se do ní dal rovnou zakomponovat parametr pro AND/OR/XOR. Chcete, abychom vám tu vlastní funkci napsali? Budete si ji pak muset "vláčet" s sebou v dokumentech, nebo si ji dát do vlastních maker.

atapik · 18. 4. 2011 21:36:48

díky za pomoc, jak budu mít čas tak na to mrknu

lp. · 18. 4. 2011 21:47:44

OR a XOR taky jde:

OR>

=SUMPRODUCT( 
(("1"=MID(TEXT(A1;REPT(0;8));ROW(INDIRECT("1:8"));1))+
 ("1"=MID(TEXT(A2;REPT(0;8));ROW(INDIRECT("1:8"));1)))>0; 
10^(8-ROW(INDIRECT("1:8"))) 
)

XOR

=SUMPRODUCT(
(MID(TEXT(A1;REPT(0;8));ROW(INDIRECT("1:8"));1)) <> 
(MID(TEXT(A2;REPT(0;8));ROW(INDIRECT("1:8"));1)); 
10^(8-ROW(INDIRECT("1:8"))) 
)

Makra jsou např.: na
http://www.ehow.com/how_7624700_perform … ation.html

sedlacekdan · 19. 4. 2011 22:10:10

Makrem například takto:

rem lze použít pro logický součin dvou binárních čísel
rem u delších čísel je
rem nutné formátovat buňky jako text.
rem funkce vrací výsledek součinu jako text

function binlog(bin1 as string, bin2 as string) as string    ' zadani promenych
dim vysledek as string                                       ' stanoveni vysledku jako textu
dim test1 as boolean, test2 as boolean                       ' test jako logicka hodnota
 do while len(bin1) > len(bin2)                              ' test delky cisel
   bin2 = 0 & bin2                                           ' doplneni nul kratsiho cisla
 loop
 do while len(bin1) < len(bin2)                              ' test delky cisel
   bin1 = 0 & bin1                                           ' doplneni nul kratsiho cisla
 loop
for i = 1 to len(bin1)                                       ' pro kazdou pozici jedn. cisel
test1 =  mid(bin1,i,1)                                       ' rozdeleni na cislice k testu
test2 =  mid(bin2,i,1)                                       ' rozdeleni na cislice k testu
 if test1 AND test2 then                                     ' pokud je log.soucin pravdivy
    hodnota = 1                                              ' vysledek je 1
 else                                                        ' pokud je nepravdivy
    hodnota = 0                                              ' vysledek je 0
 end if
vysledek = vysledek & hodnota                                ' spojeni vsech vysledku
next i
binlog = vysledek 
end function

Pokud A1 a A2 obsahují bin.čísla do buňky zadáváte =BINLOG(A1;A2). Funkce vrací hodnotu jako text (protože pro delší čísla Calc automaticky mění formát) tzn. že pokud bude výsledek začínat nulami budou zobrazeny. Možností je zadat vzorec =VALUE(BINLOG(A1;A2) funkce vrátí hodnotu jako číslo bez uvozujících nul.
Naštěstí Calc rozpozná při dalších výpočtech číslo naformátované jako text a lze s ním dále provádět výpočty.

A jak psal Hanus - nevýhodou této funkce je, že ji máte definovanou ve svých makrech a v jiném OO nebude fungovat, nebo ji můžete uložit přímo do maker konkrétního dokumentu a nosit si ji sebou. Variantou je výpočet CTRL+C zkopírovat do schránky a vložit jako text pomocí CTRL+SHIFT+V (hlavně odznačit vzorce)
;o)

Editoval sedlacekdan (20. 4. 2011 07:48:46)

atapik · 22. 4. 2011 23:05:53

Ještě jednou dík, všechno mi už funguje

OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

#1 18. 4. 2011 16:57:32

Logický součin VYŘEŠENO

#2 18. 4. 2011 18:13:28

Re: Logický součin VYŘEŠENO

#3 18. 4. 2011 18:58:53

Re: Logický součin VYŘEŠENO

#4 18. 4. 2011 19:18:26

Re: Logický součin VYŘEŠENO

#5 18. 4. 2011 21:36:48

Re: Logický součin VYŘEŠENO

#6 18. 4. 2011 21:47:44

Re: Logický součin VYŘEŠENO

#7 19. 4. 2011 22:10:10

Re: Logický součin VYŘEŠENO

#8 22. 4. 2011 23:05:53

Re: Logický součin VYŘEŠENO

Zápatí