Excel i VBA code - Pomoc

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

da li neko moze da mi pomogne i napise vba code za ovu formulu:

formula 1:

1/(s-g)

za s>g

vba code bi bio:


Function Rf(ByVal X, ByVal Y) As Double s = imsum(X, improduct("i", Y)) Fs = imdiv(1, (imsum(s, -0.02))) Rfs = imreal(Fs) Rf = Rfs End Function



formula 2:

(1+s)^-1/theta

vba code:


Function Rf1(ByVal X, ByVal Y) As Double s = imsum(X, improduct("i", Y)) theta = 1.84 Fs = impower(imsum(1, s), -1 / theta) Rfs = imreal(Fs) Rf1 = Rfs End Function



formula 3:

-1/theta*ln[1-e^-s(1-e^-theta)]
pri cemu je alfa = (1-e^-theta)

theta = 1.84
^ bi znacilo, naravno 'na'


meni treba sad vba code, kombinujuci prve dve formule, za trecu formulu.

nikako ne mogu da dobijem tacan rezultat.

hvala na pomoci unapred!!!

--ubaceni code tagovi--

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Probao sam da napisem, ali nisam siguran da li radi.


-1/theta*ln[1-e^-s(1-e^-theta)]

Nisam najbolje razumeo da li je

e 'na' -s pa puta sve ono u zagradi (alfa ) tj e^-s*(1-e^-theta)

ili je e 'na' sve ostalo tj. e^(-s*(1-e^-theta))



U svakom slucaju obe varijante koda:

-1/theta*ln[1-e^(-s*alfa)] pri cemu je alfa = (1-e^-theta)
Function Rf2(ByVal X, ByVal Y) As Double    s = imsum(X, improduct("i", Y))    theta = 1.84    alfa=imsum(1,impower(e,-theta))    Fs=improduct(imdiv(-1,theta),imln(imsum(1,-impower(e,improduct(-s,alfa)))))    Rfs = imreal(Fs)    Rf2 = Rfs End Function



-1/theta*ln[1-e^-s*alfa] pri cemu je alfa = (1-e^-theta)
Function Rf2(ByVal X, ByVal Y) As Double    s = imsum(X, improduct("i", Y))    theta = 1.84    alfa=imsum(1,impower(e,-theta))    Fs=improduct(imdiv(-1,theta),imln(imsum(1,-improduct(impower(e,-s),alfa))))    Rfs = imreal(Fs)    Rf2 = Rfs End Function

e je pretpostavljam 2.718281828459045



Opis instrukcija IMSUM, IMPRODUCT, IMLN, IMDIV, IMPOWER....
[Link mogu videti samo ulogovani korisnici]

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

[Link mogu videti samo ulogovani korisnici]


evo saljem ti excel file, bolje nego da objasnjavam.

znam da treba da bude isti rezultat i kad napisem excel formulu i vb code.

isto kao i formula 1 i 2.

problem je dakle, ovo crveno.

btw, hvala na sajtu zaa objasnjenje ovih funkcija!!!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Izvini, ali nemam instaliran Excel !

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

mozda ce ti ova slika pomoci ..

na levoj strani je excel formula, a na desnoj Laplace transform koju ja treba u vb da napisem.

i na kraju excel i vb treba da se poklapaju...

e sad, ja sam napisala za 1 i 2 formulu sto se ispostavilo kao tacno (tacan rezultat)

a nikako za trecu ...

nadam se da ce ti ovo pomoci ....

hvala unapred i na ostalim koji bi mi mogli pomoci ...