fernandocostadev

[fernandocostadev]

08-05-2025

Focar a minha atenção nos problemas que eu posso resolver. Isso ajuda a controlar o estresse e fazer algo prático para resolver os problemas que estão ao meu alcance. Exposição ao estresse é algo natural, permanecer nele é que gera problemas.

[fernandocostadev]

08-05-2025

"O poder de Deus é liberado para realização de um milagre quando o justo ora." Querido leitor creia que ao orar, Deus ouve a sua oração e libera poder para operar um milagre, trazendo salvação, cura e libertação.

[fernandocostadev]

28-04-2025

Deus tem uma loja e quanto mais nós vamos, mas somos bem vindos. Uma forma de adorar a Deus é pedindo pra Ele todas as coisas e dependendo Dele para todas as coisas. Antes orar a Deus pedindo direção do que fazer do meu coração um ídolo que em nada pode me ajudar.

[fernandocostadev]

hipotenusa int vba excel

Option Explicit Private Sub Busca500()

   Dim Linha As Long

   For Linha = 1 To 500

       Call Busca

   Next Linha

End Sub Private Sub Busca()

   Dim a As Long, b As Long, c As Double

   With WorksheetFunction

   a = .RandBetween(1, 999)    b = .RandBetween(1, 999)    c = Sqr(a ^ 2 + b ^ 2)

   If Int(c) = c Then

       Dim Linha As Long

       Linha = Sheet1.Range("A999999").End(xlUp).Row

       Sheet1.Range("A:A").Item(Linha) = a        Sheet1.Range("B:B").Item(Linha) = b        Sheet1.Range("C:C").Item(Linha) = c

   End If

   End With

End Sub

[fernandocostadev]

Excel e Array

=IF(OR(B3>999;B3<0);"fora do range";SUM(INT(MID(B3;IF(LEN(B3)=2;{1\2};{1\2\3});1))))

Verifica se o número está entre zero e 999 e depois faz a soma de seus algarismos.

[fernandocostadev]

Comparação math x excel

=AND((8^(-9/3))^(1/3)=(4^(-9/2))^(1/3);(4^(-9/2))^(1/3)=(2^(-9))^(1/3);(8^(-9/3))^(1/3)=0,125)

[fernandocostadev]

Excel math

=(-M3+3)*(M3^2-3*M3+2)/(2*M3-1) =(-M3^3+6*M3^2-11*M3+6)/(2*M3-1)

[fernandocostadev]

(x^4 - 3 x^3 + 5 x^2 - 11 x - 12)/(x - 3) long division

https://www.wolframalpha.com/input?i=%28x%5E4+-+3+x%5E3+%2B+5+x%5E2+-+11+x+-+12%29%2F%28x+-+3%29+long+division

[fernandocostadev]

=SQRT((2+SQRT(3))/(2-SQRT(3)))+SQRT((2-SQRT(3))/(2+SQRT(3)))

https://www.youtube.com/watch?v=Iw8KY4mHwIo

[fernandocostadev]

@menestrell s2

[fernandocostadev]

Watch "Solving Trig Functions | Sin Cos Tan Csc Sec Cot | JusticeTheTutor #shorts" on YouTube

[fernandocostadev]

Links Youtube Math

FUNÇÃO 02: DEFINIÇÃO, DOMÍNIO, CONTRA-DOMÍNIO E IMAGEM | 7a8AK6C1Tzo FUNÇÃO 06: RECONHECENDO UMA FUNÇÃO PELO GRÁFICO | HVY6EyNWbrw FUNÇÃO 07: DETERMINANDO O DOMÍNIO E A IMAGEM | 13WpgnSwdwM FUNÇÃO 08: SOBREJETORA, INJETORA E BIJETORA | OUybGR-Z1OI FUNÇÃO 09: PAR E ÍMPAR | fJCQy3ybIw4 Cálculo de Áreas Insano - A Matemática é LINDA! #12 | 8S2vzfrt6GI

[fernandocostadev]

Achando 3-4-5

Private Function Hipo() As String

   'Toda vez que essa função é acionada ela tenta localizar um triangulo ret    ' com hipotenusa inteira por exemplo 3-4-5

   Dim Valor1 As Long, Valor2 As Long    Dim Valor3 As Double

   With WorksheetFunction

   Valor1 = .RandBetween(1, 199)    Valor2 = .RandBetween(1, 199)

   Valor1 = Valor1 * Valor1    Valor2 = Valor2 * Valor2

   Valor3 = Round(Sqr(Valor1 + Valor2), 4)

   If Valor3 - Int(Valor3) = 0 Then

       Hipo = Valor1 & "-" & Valor2 & "-" & Valor3

   Else

       Hipo = ""

   End If

   End With

End Function

[fernandocostadev]

Log e Excel, exemplos de resolução

1 -0,75 =LOG(3*SQRT(3);1/9) 2 -0,75 =1/-2*LOG(3*SQRT(3);3) 3 -0,75 =1/-2*LOG(SQRT(27);3) 4 -0,75 =1/-2*LOG(3^(3/2);3) 5 -0,75 =3/2/-2*LOG(3;3) 6 -0,75 =3/-4*LOG(3;3)

[fernandocostadev]

Bhaskara Excel

Public Sub Bhaskara()

   Range("F1").Select    ActiveCell.FormulaR1C1 = "a"    Range("F2").Select    ActiveCell.FormulaR1C1 = "-1"    Range("G1").Select    ActiveCell.FormulaR1C1 = "b"    Range("G2").Select    ActiveCell.FormulaR1C1 = "4"    Range("H1").Select    ActiveCell.FormulaR1C1 = "c"    Range("H2").Select    ActiveCell.FormulaR1C1 = "-3"    Range("I1").Select    ActiveCell.FormulaR1C1 = "delta1"    Range("I2").Select    ActiveCell.FormulaR1C1 = "=RC[-2]^2"    Range("J1").Select    ActiveCell.FormulaR1C1 = "delta2"    Range("J2").Select    ActiveCell.FormulaR1C1 = "=-4*RC[-2]*RC[-4]"    Range("K1").Select    ActiveCell.FormulaR1C1 = "deltaF"    Range("K2").Select    ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-1]"    Range("L1").Select    ActiveCell.FormulaR1C1 = "xv"    Range("L2").Select    ActiveCell.FormulaR1C1 = "=-RC[-5]/2*RC[-6]"    Range("M1").Select    ActiveCell.FormulaR1C1 = "yv"    Range("M2").Select    ActiveCell.FormulaR1C1 = "=-RC[-2]/4*RC[-7]"    Range("N1").Select    ActiveCell.FormulaR1C1 = "x1"    Range("N2").Select    ActiveCell.FormulaR1C1 = "=(-RC[-7]+SQRT(RC[-3]))/2*RC[-8]"    Range("O1").Select    ActiveCell.FormulaR1C1 = "x2"    Range("O2").Select    ActiveCell.FormulaR1C1 = "=(-RC[-8]-SQRT(RC[-4]))/2*RC[-9]"

End Sub

[fernandocostadev]

Logaritmo para Excel

C2 =LOG(A2;B2) D2 =B2&" elevado a "&ROUND(C2;4)&" é igual a "&A2

[fernandocostadev]

15,2 => (17)

Soma os valores dividos pela virgula

=IFERROR(INT(MID(D2;1;SEARCH(",";D2)-1))+INT(MID(D2;SEARCH(",";D2)+1;10));0)