Mostrar líneas auxiliares

Mostrar triángulo

A

B

C

P = Point(e)
r1 = 2.5
B: P + (-(0.7), 1.05)
a: y = y(B)
α = 0.6457718232379019 rad (slider from 0 to 1.5707963267948966, step 0.017453292519943295)
a' = Rotate(a, α, B)
c = Circle(B, 4.0 * r1)
d = Circle(B, r1)
E4 = Intersect(c, a', 2.0)
E1 = Intersect(d, a', 2.0)
C = Point(Segment[E1, E4])
b = Segment(B, C)
e1 = Segment(B, E1)
E2 = Translate(E1, Vector[Vector[B, E1]])
E3 = Translate(E2, Vector[Vector[B, E1]])
e2 = If(Distance[E1, C] < r1, Segment[E1, C], Segment[E1, E2])
e3 = If(Distance[E1, C] > 2.0 * r1, Segment[E2, E3], If[Distance[E2, C] < r1 ∧ Distance[E1, C] > r1, Segment[E2, C]])
e4 = If(Distance[E1, C] > 2.0 * r1, Segment[E3, C])
Fig = Point(e)
polígono1, f, g, h, i = Polygon(C + (0.0, 0.1), C + (0.2, 0.1), C + (0.2, -(0.3)), C + (0.0, -(0.3)))
P_2 = Point(n)
P_3 = Point(n)
P_4 = Point(n)
p = OrthogonalLine(B, n)
P_1 = Intersect(n, p)
q = Segment(B, P_1)
v1 = true
texto1: "Ángulo de inclinación de la escalera: " + α
r = OrthogonalLine(P, n)
P_0 = Intersect(n, r)
s = Segment(P, P_0)
altura = Segment((x(C), y(B)), C)
polígono3, t, b_1, d_1 = Polygon(B, C, (x(C), y(B)))
v2 = false
A: (x(C), y(B))
β = Angle(A, B, C)
A1 = 1
A2 = 2
A3: 2.0 * A2 - A1
A4: 2.0 * A3 - A2
A5: 2.0 * A4 - A3
A6: 2.0 * A5 - A4
A7: 2.0 * A6 - A5
A8: 2.0 * A7 - A6
A9: 2.0 * A8 - A7
A10: 2.0 * A9 - A8
A11: 2.0 * A10 - A9
A12: 2.0 * A11 - A10
A13: 2.0 * A12 - A11
A14: 2.0 * A13 - A12
A15: 2.0 * A14 - A13
A16: 2.0 * A15 - A14
A17: 2.0 * A16 - A15
A18: 2.0 * A17 - A16
A19: 2.0 * A18 - A17
A20: 2.0 * A19 - A18
A21: 2.0 * A20 - A19
A22: 2.0 * A21 - A20
A23: 2.0 * A22 - A21
A24: 2.0 * A23 - A22
A25: 2.0 * A24 - A23
A26: 2.0 * A25 - A24
A27: 2.0 * A26 - A25
A28: 2.0 * A27 - A26
A29: 2.0 * A28 - A27
A30: 2.0 * A29 - A28
A31: 2.0 * A30 - A29
A32: 2.0 * A31 - A30
A33: 2.0 * A32 - A31
A34: 2.0 * A33 - A32
A35: 2.0 * A34 - A33
A36: 2.0 * A35 - A34
A37: 2.0 * A36 - A35
A38: 2.0 * A37 - A36
A39: 2.0 * A38 - A37
A40: 2.0 * A39 - A38
A41: 2.0 * A40 - A39
A42: 2.0 * A41 - A40
A43: 2.0 * A42 - A41
A44: 2.0 * A43 - A42
A45: 2.0 * A44 - A43
A46: 2.0 * A45 - A44
A47: 2.0 * A46 - A45
A48: 2.0 * A47 - A46
A49: 2.0 * A48 - A47
A50: 2.0 * A49 - A48
A51: 2.0 * A50 - A49
A52: 2.0 * A51 - A50
A53: 2.0 * A52 - A51
A54: 2.0 * A53 - A52
A55: 2.0 * A54 - A53
A56: 2.0 * A55 - A54
A57: 2.0 * A56 - A55
A58: 2.0 * A57 - A56
A59: 2.0 * A58 - A57
A60: 2.0 * A59 - A58
A61: 2.0 * A60 - A59
A62: 2.0 * A61 - A60
A63: 2.0 * A62 - A61
A64: 2.0 * A63 - A62
A65: 2.0 * A64 - A63
A66: 2.0 * A65 - A64
A67: 2.0 * A66 - A65
A68: 2.0 * A67 - A66
A69: 2.0 * A68 - A67
A70: 2.0 * A69 - A68
A71: 2.0 * A70 - A69
A72: 2.0 * A71 - A70
A73: 2.0 * A72 - A71
A74: 2.0 * A73 - A72
A75: 2.0 * A74 - A73
A76: 2.0 * A75 - A74
A77: 2.0 * A76 - A75
A78: 2.0 * A77 - A76
A79: 2.0 * A78 - A77
A80: 2.0 * A79 - A78
A81: 2.0 * A80 - A79
A82: 2.0 * A81 - A80
A83: 2.0 * A82 - A81
A84: 2.0 * A83 - A82
A85: 2.0 * A84 - A83
A86: 2.0 * A85 - A84
A87: 2.0 * A86 - A85
A88: 2.0 * A87 - A86
A89: 2.0 * A88 - A87
A90: 2.0 * A89 - A88
A91: 2.0 * A90 - A89
A92: 2.0 * A91 - A90
A93: 2.0 * A92 - A91
A94: 2.0 * A93 - A92
A95: 2.0 * A94 - A93
A96: 2.0 * A95 - A94
A97: 2.0 * A96 - A95
A98: 2.0 * A97 - A96
A99: 2.0 * A98 - A97
A100: 2.0 * A99 - A98
Lsuelo = Sequence(Line[(-(6.0), -(2.0) - k), (18.0, -(2.0) - k)], k, 1.0, 15.0, 0.02)
A101: 2.0 * A100 - A99
A102: 2.0 * A101 - A100
A103: 2.0 * A102 - A101
A104: 2.0 * A103 - A102
A105: 2.0 * A104 - A103
A106: 2.0 * A105 - A104
A107: 2.0 * A106 - A105
A108: 2.0 * A107 - A106
A109: 2.0 * A108 - A107
A110: 2.0 * A109 - A108
A111: 2.0 * A110 - A109
A112: 2.0 * A111 - A110
A113: 2.0 * A112 - A111
A114: 2.0 * A113 - A112
A115: 2.0 * A114 - A113
A116: 2.0 * A115 - A114
A117: 2.0 * A116 - A115
A118: 2.0 * A117 - A116
A119: 2.0 * A118 - A117
A120: 2.0 * A119 - A118
A121: 2.0 * A120 - A119
A122: 2.0 * A121 - A120
A123: 2.0 * A122 - A121
A124: 2.0 * A123 - A122
A125: 2.0 * A124 - A123
A126: 2.0 * A125 - A124
A127: 2.0 * A126 - A125
A128: 2.0 * A127 - A126
A129: 2.0 * A128 - A127
A130: 2.0 * A129 - A128
A131: 2.0 * A130 - A129
A132: 2.0 * A131 - A130
A133: 2.0 * A132 - A131
A134: 2.0 * A133 - A132
A135: 2.0 * A134 - A133
A136: 2.0 * A135 - A134
A137: 2.0 * A136 - A135
A138: 2.0 * A137 - A136
A139: 2.0 * A138 - A137
A140: 2.0 * A139 - A138
A141: 2.0 * A140 - A139
A142: 2.0 * A141 - A140
A143: 2.0 * A142 - A141
A144: 2.0 * A143 - A142
A145: 2.0 * A144 - A143
A146: 2.0 * A145 - A144
A147: 2.0 * A146 - A145
A148: 2.0 * A147 - A146
A149: 2.0 * A148 - A147
A150: 2.0 * A149 - A148
B1 = Element(Lsuelo, A1)
B2 = Element(Lsuelo, A2)
B3 = Element(Lsuelo, A3)
B4 = Element(Lsuelo, A4)
B5 = Element(Lsuelo, A5)
B6 = Element(Lsuelo, A6)
B7 = Element(Lsuelo, A7)
B8 = Element(Lsuelo, A8)
B9 = Element(Lsuelo, A9)
B10 = Element(Lsuelo, A10)
B11 = Element(Lsuelo, A11)
B12 = Element(Lsuelo, A12)
B13 = Element(Lsuelo, A13)
B14 = Element(Lsuelo, A14)
B15 = Element(Lsuelo, A15)
B16 = Element(Lsuelo, A16)
B17 = Element(Lsuelo, A17)
B18 = Element(Lsuelo, A18)
B19 = Element(Lsuelo, A19)
B20 = Element(Lsuelo, A20)
B21 = Element(Lsuelo, A21)
B22 = Element(Lsuelo, A22)
B23 = Element(Lsuelo, A23)
B24 = Element(Lsuelo, A24)
B25 = Element(Lsuelo, A25)
B26 = Element(Lsuelo, A26)
B27 = Element(Lsuelo, A27)
B28 = Element(Lsuelo, A28)
B29 = Element(Lsuelo, A29)
B30 = Element(Lsuelo, A30)
B31 = Element(Lsuelo, A31)
B32 = Element(Lsuelo, A32)
B33 = Element(Lsuelo, A33)
B34 = Element(Lsuelo, A34)
B35 = Element(Lsuelo, A35)
B36 = Element(Lsuelo, A36)
B37 = Element(Lsuelo, A37)
B38 = Element(Lsuelo, A38)
B39 = Element(Lsuelo, A39)
B40 = Element(Lsuelo, A40)
B41 = Element(Lsuelo, A41)
B42 = Element(Lsuelo, A42)
B43 = Element(Lsuelo, A43)
B44 = Element(Lsuelo, A44)
B45 = Element(Lsuelo, A45)
B46 = Element(Lsuelo, A46)
B47 = Element(Lsuelo, A47)
B48 = Element(Lsuelo, A48)
B49 = Element(Lsuelo, A49)
B50 = Element(Lsuelo, A50)
B51 = Element(Lsuelo, A51)
B52 = Element(Lsuelo, A52)
B53 = Element(Lsuelo, A53)
B54 = Element(Lsuelo, A54)
B55 = Element(Lsuelo, A55)
B56 = Element(Lsuelo, A56)
B57 = Element(Lsuelo, A57)
B58 = Element(Lsuelo, A58)
B59 = Element(Lsuelo, A59)
B60 = Element(Lsuelo, A60)
B61 = Element(Lsuelo, A61)
B62 = Element(Lsuelo, A62)
B63 = Element(Lsuelo, A63)
B64 = Element(Lsuelo, A64)
B65 = Element(Lsuelo, A65)
B66 = Element(Lsuelo, A66)
B67 = Element(Lsuelo, A67)
B68 = Element(Lsuelo, A68)
B69 = Element(Lsuelo, A69)
B70 = Element(Lsuelo, A70)
B71 = Element(Lsuelo, A71)
B72 = Element(Lsuelo, A72)
B73 = Element(Lsuelo, A73)
B74 = Element(Lsuelo, A74)
B75 = Element(Lsuelo, A75)
B76 = Element(Lsuelo, A76)
B77 = Element(Lsuelo, A77)
B78 = Element(Lsuelo, A78)
B79 = Element(Lsuelo, A79)
B80 = Element(Lsuelo, A80)
B81 = Element(Lsuelo, A81)
B82 = Element(Lsuelo, A82)
B83 = Element(Lsuelo, A83)
B84 = Element(Lsuelo, A84)
B85 = Element(Lsuelo, A85)
B86 = Element(Lsuelo, A86)
B87 = Element(Lsuelo, A87)
B88 = Element(Lsuelo, A88)
B89 = Element(Lsuelo, A89)
B90 = Element(Lsuelo, A90)
B91 = Element(Lsuelo, A91)
B92 = Element(Lsuelo, A92)
B93 = Element(Lsuelo, A93)
B94 = Element(Lsuelo, A94)
B95 = Element(Lsuelo, A95)
B96 = Element(Lsuelo, A96)
B97 = Element(Lsuelo, A97)
B98 = Element(Lsuelo, A98)
B99 = Element(Lsuelo, A99)
B100 = Element(Lsuelo, A100)
B101 = Element(Lsuelo, A101)
B102 = Element(Lsuelo, A102)
B103 = Element(Lsuelo, A103)
B104 = Element(Lsuelo, A104)
B105 = Element(Lsuelo, A105)
B106 = Element(Lsuelo, A106)
B107 = Element(Lsuelo, A107)
B108 = Element(Lsuelo, A108)
B109 = Element(Lsuelo, A109)
B110 = Element(Lsuelo, A110)
B111 = Element(Lsuelo, A111)
B112 = Element(Lsuelo, A112)
B113 = Element(Lsuelo, A113)
B114 = Element(Lsuelo, A114)
B115 = Element(Lsuelo, A115)
B116 = Element(Lsuelo, A116)
B117 = Element(Lsuelo, A117)
B118 = Element(Lsuelo, A118)
B119 = Element(Lsuelo, A119)
B120 = Element(Lsuelo, A120)
B121 = Element(Lsuelo, A121)
B122 = Element(Lsuelo, A122)
B123 = Element(Lsuelo, A123)
B124 = Element(Lsuelo, A124)
B125 = Element(Lsuelo, A125)
B126 = Element(Lsuelo, A126)
B127 = Element(Lsuelo, A127)
B128 = Element(Lsuelo, A128)
B129 = Element(Lsuelo, A129)
B130 = Element(Lsuelo, A130)
B131 = Element(Lsuelo, A131)
B132 = Element(Lsuelo, A132)
B133 = Element(Lsuelo, A133)
B134 = Element(Lsuelo, A134)
B135 = Element(Lsuelo, A135)
B136 = Element(Lsuelo, A136)
B137 = Element(Lsuelo, A137)
B138 = Element(Lsuelo, A138)
B139 = Element(Lsuelo, A139)
B140 = Element(Lsuelo, A140)
B141 = Element(Lsuelo, A141)
B142 = Element(Lsuelo, A142)
B143 = Element(Lsuelo, A143)
B144 = Element(Lsuelo, A144)
B145 = Element(Lsuelo, A145)
B146 = Element(Lsuelo, A146)
B147 = Element(Lsuelo, A147)
B148 = Element(Lsuelo, A148)
B149 = Element(Lsuelo, A149)
B150 = Element(Lsuelo, A150)
texto2: "" + (2.5 * Distance[P_0, P_1]) + " m"
cotaaltura: "" + (2.5 * (y(C) - y(B))) + " m"
cotalongitud: "" + (2.5 * Distance[B, C]) + " m"
P1 = 0
P3 = 0
texto3: "P3=" + (Distance[P_1, P_3] * 2.5)
texto4: "P2=" + (2.5 * Distance[P_1, P_2])
texto5: "P4=" + (2.5 * Distance[P_1, P_4])
P_5 = Point(n)
texto6: "P5=" + (2.5 * Distance[P_1, P_5])