Início / coding / Perguntas / 79200844
Accepted
AReubens
Asked: 2024-11-19 01:22:30 +0800 CST

Ladrilhando uma matriz do Excel em 2 dimensões, de preferência sem usar VBA

  • 772

Estou tentando dividir uma matriz do Excel em duas dimensões, conforme definido por outra matriz, de preferência sem usar VBA.

Para explicar melhor, o que eu gostaria é de uma fórmula do Excel paraf(A, B)

Onde A é booleano e =

[[1, 0],
 [0, 1]

Onde B =

[[1, 2],
 [3, 4]

E f(A, B)os tiles B de acordo com os valores bool em A, neste caso,f(A, B) = 

[[1, 2, 0, 0],
 [3, 4, 0, 0],
 [0, 0, 1, 2],
 [0, 0, 3, 4]]

Meus pensamentos iniciais foram, =IF(MUNIT(2), {1, 2;3, 4}, {0, 0;0, 0})mas a saída não se expande bem.

excel

5 respostas

  1. Best Answer

    Este é meu esforço até agora - espero que seja bastante geral:

    =LET(A,A1:B2,B,D1:E2,DROP(REDUCE(SEQUENCE(1,COLUMNS(A)*COLUMNS(B)),SEQUENCE(ROWS(A)),LAMBDA(rowAcc,row,VSTACK(rowAcc,
   DROP(REDUCE(SEQUENCE(ROWS(B)),SEQUENCE(1,COLUMNS(A)),LAMBDA(colAcc,col,HSTACK(colAcc,B*INDEX(A,row,col)))),,1)))),1))

    insira a descrição da imagem aqui

    Você também pode usar Makearray:

    =LET(A,A1:B2,B,D1:E2,rA,ROWS(A),rB,ROWS(B),cA,COLUMNS(A),cB,COLUMNS(B),
MAKEARRAY(rA*rB,cA*cB,LAMBDA(r,c,INDEX(A,(r-1)/rB+1,(c-1)/cB+1)*INDEX(B,MOD(r-1,rB)+1,MOD(c-1,cB)+1))))

    (Mesma lógica da versão legada de @Scott Craner)

    • 6

  2. Abordagem semelhante à do Tom, mas um pouco mais curta:

    =LET(
    _t,A1:B2,
    _a,D1:E2,
    DROP(REDUCE("",SEQUENCE(ROWS(_t)),LAMBDA(_y,_z,VSTACK(_y,
        DROP(REDUCE("",CHOOSEROWS(_t,_z),LAMBDA(_x,_w,HSTACK(_x,
            IF(_w=1,_a,SEQUENCE(ROWS(_a),COLUMNS(_a),0,0))))),,1)))),1))

    insira a descrição da imagem aqui

    E só por diversão, isso funcionará em versões mais antigas:

    =IFERROR(
    IF(INDEX($A$1:$B$2,INT((ROW($A1)-1)/ROWS($D$1:$E$2))+1,INT((COLUMN(A$1)-1)/COLUMNS($D$1:$E$2))+1)=0,
        0,
        INDEX($D$1:$E$2,MOD((ROW($A1)-1),ROWS($D$1:$E$2))+1,MOD((COLUMN(A$1)-1),COLUMNS($D$1:$E$2))+1))
    ,"")

    Arraste-o para cima e para baixo o suficiente para o tamanho da matriz.

    insira a descrição da imagem aqui

    • 5

  3. Para retornar o produto de Kronecker de duas matrizes, tente o seguinte código Python:

    a = xl("A1:B2")
b = xl("D1:E2")

np.kron(a,b)

    py_kronecker_produto.png

    Se você nunca usou Python no Excel antes, consulte: Comece a usar Python no Excel

    Método alternativo 1:

    Para melhor desempenho em matrizes maiores, você também pode tentar usar bissecção:

    =LET(a,A1:C100,b,E1:I1000,BiROW(a,LAMBDA(r,BiCOL(r,LAMBDA(c,c*b)))))

    Onde BiCOLe BiROWsão funções lambda personalizadas definidas no Gerenciador de Nomes:

    BiCOL:
=LAMBDA(array,function,IF(COLUMNS(array)=1,function(array),LET(n,QUOTIENT(COLUMNS(array),2),HSTACK(BiCOL(TAKE(array,,n),function),BiCOL(DROP(array,,n),function)))))

BiROW:
=LAMBDA(array,function,IF(ROWS(array)=1,function(array),LET(n,QUOTIENT(ROWS(array),2),VSTACK(BiROW(TAKE(array,n),function),BiROW(DROP(array,n),function)))))

    Método alternativo 2:

    Se você preferir usar uma REDUCE-VSTACK/HSTACKabordagem, o desempenho também pode ser melhorado empilhando os resultados em pares, em vez do empilhamento linear:

    =LET(
    a, A1:C100, b, E1:I1000,
    kpλ, MAP(a,LAMBDA(n,LET(m,n*b,LAMBDA(m)))),
    i, SEQUENCE(CEILING.MATH(LOG(ROWS(kpλ),2),1)),
    j, SEQUENCE(CEILING.MATH(LOG(COLUMNS(kpλ),2),1)),
    λ, LAMBDA(fx,LAMBDA(l,k,LET(w,WRAPROWS(l,2),MAP(TAKE(w,,1),DROP(w,,1),LAMBDA(x,y,LET(z,IF(TYPE(y)=16,x(),fx(x(),y())),LAMBDA(z))))))),
    join_x, BYROW(kpλ,LAMBDA(r,REDUCE(r,j,λ(HSTACK)))),
    join_y, INDEX(REDUCE(join_x,i,λ(VSTACK)),1),
    join_y()
)

    Para uma versão generalizada deste método, consulte MAPλa função de Peter Bartholomew: https://gist.github.com/pbartxl

    Método alternativo 3:

    Outra opção relativamente eficiente é usar TOCOLwith SORTBYe WRAPROWS; no entanto, esse método só pode gerar um máximo de 1.048.576 elementos totais, devido às limitações de TOCOL:

    =LET(
    a, A1:D128, b, F1:M256,
    v, TOCOL(a)*TOROW(b),
    λ, LAMBDA(x,fx,TOCOL(IF({1},fx(IF({1},SEQUENCE(ROWS(x)),x)),v))),
    WRAPROWS(SORTBY(TOCOL(v),λ(a,TOCOL),1,λ(b,TOROW),1),COLUMNS(a)*COLUMNS(b))
)
    • 5

  4. Esta seria minha abordagem no Office 365: =LET(f,LAMBDA(a,b,DROP(REDUCE("",SEQUENCE(COLUMNS(a)),LAMBDA(c,d,HSTACK(c,REDUCE("",SEQUENCE(ROWS(a)),LAMBDA(e,f,VSTACK(e,b*INDEX(a,f,d))))))),1,1)),f(B1:D3,F1#))

    Editar: Olhando para a resposta de Tom Sharpe, a minha é meio parecida. Usei o DROP no todo, em vez das funções REDUCE individuais e o envolvi em LAMBDA para chamar fcomo no post de abertura. Mas, fora isso, não é muito diferente, então se você votar, pelo menos vote também no Tom's

    insira a descrição da imagem aqui

    • 0

  5. Nenhuma lógica nova, reduzindo sem DROPe usando INDEX, esperando por melhor desempenho:

    =LAMBDA(a, b,
    LET(
        cols_a, SEQUENCE(, COLUMNS(a) - 1, 2),
        h_stack, LAMBDA(row,
            REDUCE(
                INDEX(a, row, 1) * b,
                INDEX(a, row, cols_a),
                LAMBDA(acc, a, HSTACK(acc, a * b))
            )
        ),
        REDUCE(
            h_stack(1),
            SEQUENCE(ROWS(a) - 1, , 2),
            LAMBDA(acc, row, VSTACK(acc, h_stack(row)))
        )
    )
)(Sheet2!A1:D128, Sheet2!F1:M256)

    Demorou cerca de 6 segundos com esses intervalos no meu Mac.

    • 0

relate perguntas