Arc Cosinus

[Lars Hietala]

Hvorfo programmet her afviser Arc Cosinus .
Jeg har lavet tilsvarende prorammer til Excel, Casio - & TexasInstrument
regnemaskiner og der virker de udmærket.
Mvh. Lars Hietala (Nybegynder).
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

REM ***** BASIC *****
Sub ByPass
Overskrift = "BY-PASS af Lars-Erik Hietala"

Tekst = "Indtast venligst Diameter =?"
Dia = Val (InputBox (Tekst,Overskrift))

Tekst = "Indtast venligst BY-PASS =?"
Byp = Val (InputBox (Tekst,Overskrift))

Tekst = "Indtast venligst Overlæg =?"
Ov = Val (InputBox (Tekst,Overskrift))

R1 = (Dia/2)

If R1<5>5 Then:Else R1=5:EndIf
If Byp>=R1 Then Byp=R1:If Byp<R1 Then:Else Byp=R1:EndIf
Fors = (R1-Byp)

Vink = (arccos(Fors/R1*180/Pi)) <<<<<<< HER ER FEJLEN !!!! <<<<<<<<<

Kord = (R1*sin(Vink*Pi/180))
Start = (90-Kord)
Hbue = (R1*PI)
Bue = (Hbue/180*Vink)
Minus = (Bue-Kord)
Klip = (Hbue-Minus+Ov/2)

Besked = " KlipMål = " & Int (2*Klip+Ov) & " m/m" & Chr(13) & Chr(13)
Besked = Besked & " ø / Min = " & Int (R1*2) & " / " &_
Int (Byp) &" m/m" & Chr(13) & Chr(13)

Besked = Besked & " Bukning / Start / Korde = "& Int (Vink) & " / " &_

Int (Start) & "gr. / " & Int (Korde*2) &" m/m" & Chr(13)

MsgBox (Besked, 0, Overskrift)
End Sub

[Jens S]

Det simple svar er at OpenOffice VBA for øjeblikket ikke understøtter funktionen ARCCOS. Se "Trigonometriske funktioner" i hjælp.

Jeg ved desværre ikke hvornår man påtænker bedre understøttelse af VBA, men måske andre kan tilføje noget herom.

mvh
Jens

[Christian W]

Så vidt jeg kan se findes arctan(x) i makroprogrammeringssproget. Der kaldes den Atn(x).
Hvis du går ind på Wikipedia (http://en.wikipedia.org/wiki/Inverse_tr ... c_function) kan du finde en formel der viser hvodan man udregner arccos(x) ud fra arctan(x).
Det er naturligvis lidt mere kringlet men du kan få løst dit problem.

[olympus]

Hej Lars!

Jeg tror du kan finde hjælp til opgaven her:

http://www.oooforum.org/forum/viewtopic ... ght=arccos

[Lars Hietala]

Hvorfo programmet her afviser Arc Cosinus .
Jeg har lavet tilsvarende prorammer til Excel, Casio - & TexasInstrument
regnemaskiner og der virker de udmærket.
Mvh. Lars Hietala (Nybegynder).
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

REM ***** BASIC *****
Sub ByPass
Overskrift = "BY-PASS af Lars-Erik Hietala"

Tekst = "Indtast venligst Diameter =?"
Dia = Val (InputBox (Tekst,Overskrift))

Tekst = "Indtast venligst BY-PASS =?"
Byp = Val (InputBox (Tekst,Overskrift))

Tekst = "Indtast venligst Overlæg =?"
Ov = Val (InputBox (Tekst,Overskrift))

R1 = (Dia/2)

If R1<5>5 Then:Else R1=5:EndIf
If Byp>=R1 Then Byp=R1:If Byp<R1 Then:Else Byp=R1:EndIf
Fors = (R1-Byp)

Vink = (arccos(Fors/R1*180/Pi)) <<<<<<< HER ER FEJLEN !!!! <<<<<<<<<

Kord = (R1*sin(Vink*Pi/180))
Start = (90-Kord)
Hbue = (R1*PI)
Bue = (Hbue/180*Vink)
Minus = (Bue-Kord)
Klip = (Hbue-Minus+Ov/2)

Besked = " KlipMål = " & Int (2*Klip+Ov) & " m/m" & Chr(13) & Chr(13)
Besked = Besked & " ø / Min = " & Int (R1*2) & " / " &_
Int (Byp) &" m/m" & Chr(13) & Chr(13)

Besked = Besked & " Bukning / Start / Korde = "& Int (Vink) & " / " &_

Int (Start) & "gr. / " & Int (Korde*2) &" m/m" & Chr(13)

MsgBox (Besked, 0, Overskrift)
End Sub

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

'd. 14.7.08
'Her er mit svar på arccosinus,
'der virker.
'Arccos X = 90-Atn(X/(-X*X+1)^(1/2))*180/Pi.
'Tak for hjælpen
'Lars Hietala
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

REM ***** BASIC *****
Sub ByPass
Overskrift = "BY-PASS Plade Udfoldning"

Tekst = "Indtast venligst Diameter =?"
Dia = Val (InputBox (Tekst,Overskrift))

Tekst = "Indtast venligst BY-PASS =?"
Byp = Val (InputBox (Tekst,Overskrift))

Tekst = "Indtast venligst Overlæg =?"
Ov = Val (InputBox (Tekst,Overskrift))
R1 = (Dia/2)
If R1<5>5 Then:Else R1=R1:EndIf
If Byp>=R1 Then Byp=R1:If Byp<R1 Then:Else Byp=Byp:EndIf
If Byp<1 Then Byp=1:If Byp<R1 Then:Else Byp=Byp:EndIf
Omreg = ((R1-Byp)/R1)
'Print Omreg
Vink = (90-Atn(Omreg/(-Omreg*Omreg+1)^(1/2))*180/Pi)
'Print Vink
Kord = (R1*sin((Vink)*Pi/180))
Start = (90-Kord)
Hbue = (R1*PI)
Bue = (Hbue/180*Vink)
Minus = (Bue-Kord)
Klip = (Hbue-Minus+Ov)
Besked = " KlipMål = " & Int (2*Klip) & " m/m" & Chr(13) & Chr(13)
Besked = Besked & " Ø / By-pass / Overlæg = " & Int (R1*2) & " / " &_
Int (Byp) & " / " & Int (Ov) &" m/m" & Chr(13) & Chr(13)

Besked = Besked & " Bukkekant / Start / Korde = "& Int (Vink) & " / " &_
Int (Start) & " gr. / " & Int (Kord*2) &" m/m" & Chr(13)
MsgBox (Besked, 0, Overskrift)

End Sub