Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
Por jcunha288
#47539
Olá,
Eu preciso de ajuda para desenvolver esta rotina para obter o valor de um ângulo
Teria um valor inicial de 0.05, e ia aumentado de cada vez 0.05 até o valor ser superior a um de referência, por fim a função deve retomar o valor do ângulo

Este é um exemplo não funcional do código pretendido.

function teta(Q, d, i, Ks)
n1 = 0.05
Q1 = Ks * (1/8)(n1-sin(n1))*(d^2)*(1/4)(1-(sin(n1)/n1))*d*i^(1/2)*(1000/60)

If Q1<Q
n2 = n1 +0.05
Q2 = Ks * (1/8)(n2-sin(n2))*(d^2)*(1/4)(1-(sin(n2)/n2))*d*i^(1/2)*(1000/60)
endif

If Q3<Q
n2 = n2 +0.05
Q3 = Ks * (1/8)(n3-sin(n3))*(d^2)*(1/4)(1-(sin(n3)/n3))*d*i^(1/2)*(1000/60)
Endif

.....
If Qn-1<Q
nn = nn-1 +0.05
Q3 = Ks * (1/8)(nn-sin(nn))*(d^2)*(1/4)(1-(sin(nn)/nn))*d*i^(1/2)*(1000/60)
Endif

If Qn>=Q
Else
teta = nn
ENDIF
END Funtion

Obrigado
Avatar do usuário
Por Jimmy
Avatar
#47540
Olá,

Explique pra gente o que significam os 4 parâmetros, qual é a referência, como se usa a função, anexe um modelo da planilha, etc. Passe mais informações para ficar mais fácil pra gente te ajudar.

Jimmy San Juan
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord