// Muuttujat kulmille
let α, β, γ; // α = kulma A, β = kulma B, γ = hypotenuusan kulma (90°)
const calculateAngles = (a, b, c) => {
α = Math.asin(a / c) * (180 / Math.PI); // Kulma A
β = Math.asin(b / c) * (180 / Math.PI); // Kulma B
γ = 90; // hypotenuusan kulma on 90°
};
Mikä tässä koodissa pistää teitä silmään?
Anonyymi-ap
5
586
Vastaukset
- Anonyymi
Pystyykö muuttujan nimi olemaan ASCII:n ulkopuolelta?
- Anonyymi
Näköjään. Aika veemäistä kyllä naputella tuollaisia tavallisella näppiksellä. Kosketusnäytöllä hieman helpompaa.
- Anonyymi00004
Koodi on javaa, kun sen pitäisi olla vbs:ässää. Kiva varmaan etsiä noita kärpäsen paskoja (}) isommasta koodista.
- Anonyymi00005
Dim angles
angles = calculateAngles(Empty , 0.5, 1)
MsgBox("kulma A: " & Fix(angles(0)) & vbNewLine & "kulma B: " & Fix(angles(1)) & vbNewLine & "kulma C: " & angles(2))
angles = calculateAngles(Sqr(0.75), Empty, 1)
MsgBox("kulma A: " & Fix(angles(0)) & vbNewLine & "kulma B: " & Fix(angles(1)) & vbNewLine & "kulma C: " & angles(2))
angles = calculateAngles(Sqr(0.75), 0.5, Empty)
MsgBox("kulma A: " & Fix(angles(0)) & vbNewLine & "kulma B: " & Fix(angles(1)) & vbNewLine & "kulma C: " & angles(2))
Function calculateAngles(side_adjacent, side_opposite, side_hypotenuse)
' Muuttujat kulmille
Dim angle_A, angle_B, angle_C ' angle_A = kulma A, angle_B = kulma B, angle_C = hypotenuusan kulma (90°)
Dim ratio_opposite_hypotenuse, ratio_adjacent_hypotenuse, ratio_opposite_adjacent
Dim radians_to_degrees
radians_to_degrees = 180 / (4 * Atn(1))
If Not(IsEmpty(side_opposite)) And Not(IsEmpty(side_hypotenuse)) Then
ratio_opposite_hypotenuse = side_opposite / side_hypotenuse
angle_A = (Atn(ratio_opposite_hypotenuse / Sqr((-ratio_opposite_hypotenuse * ratio_opposite_hypotenuse) + 1))) * radians_to_degrees
angle_B = 90 - angle_A
ElseIf Not(IsEmpty(side_adjacent)) And Not(IsEmpty(side_hypotenuse)) Then
ratio_adjacent_hypotenuse = side_adjacent / side_hypotenuse
angle_A = (Atn(-ratio_adjacent_hypotenuse / Sqr((-ratio_adjacent_hypotenuse * ratio_adjacent_hypotenuse) + 1)) + 2 * Atn(1)) * radians_to_degrees
angle_B = 90 - angle_A
ElseIf Not(IsEmpty(side_opposite)) And Not(IsEmpty(side_adjacent)) Then
ratio_opposite_adjacent = side_opposite / side_adjacent
angle_A = Atn(ratio_opposite_adjacent)* radians_to_degrees
angle_B = 90 - angle_A
End If
angle_C = 90
calculateAngles = Array(angle_A, angle_B, angle_C)
End Function - Anonyymi00006
Mitä tulee aloitukseen.
Rivin
β = Math.ASIN(b / c) * (180 / Math.PI); // Kulma B
Pitäisi olla
β = Math.ACOS(b / c) * (180 / Math.PI); // Kulma B
Ketjusta on poistettu 1 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Persut eivät ole kertoneet euronkaan edestä säästökohteita
Mutta änkyttävät kysellä niistä muilta jatkuvasti. Vaikuttaa ettei persuilla ole kykyä omaan ajatteluun ja päätöksenteko2593161Työeläkeloisinta Suomen suurin talousongelma
Työeläkeloisinta maksaa vuodessa lähes 40 miljardia euroa, josta reilut 28 miljardia on pois palkansaajien ostovoimasta.691221- 661153
Mun mielestäni on tosi loukkaavaa
Nainen, että luulet palatan typeriä, sekavia ja ilkeitä viestejä mun kirjoittamiksi. Mä en ole katkera, epätoivoinen, ra180938Odotettu tulos Taivalvaaran hiihtokeskuksen osalta
"MCS Finland Oy on ilmoittanut Taivalkosken kunnalle 30.4.2026, että se irtisanoo Taivalkosken kunnan ja MCS Finland Oy:47856- 47799
- 60789
- 40691
- 45682
- 39658