Dansk LibreOffice Forum

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

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

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.

Hej Lars!

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

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

Lars Hietala wrote: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