;by engineer motee malazi syria
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
)
(SETQ E1
(-(+(* A1 A1
)(* B1 B1
)(* C1 C1
)))) )
(SETQ E2
(-(+(* A2 A2
)(* B2 B2
)(* C2 C2
)))) )
(SETQ E3
(-(+(* A3 A3
)(* B3 B3
)(* C3 C3
)))) )
(SETQ E4
(-(+(* A4 A4
)(* B4 B4
)(* C4 C4
)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(SETQ B5
(/(-(* B1 A2
)(* B2 A1
))A2
)) (SETQ C5
(/(-(* C1 A2
)(* C2 A1
))A2
)) (SETQ E5
(/(-(* E1 A2
)(* E2 A1
))A2
)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(SETQ B6
(/(-(* B2 A3
)(* B3 A2
))A3
)) (SETQ C6
(/(-(* C2 A3
)(* C3 A2
))A3
)) (SETQ E6
(/(-(* E2 A3
)(* E3 A2
))A3
)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(SETQ B7
(/(-(* B3 A4
)(* B4 A3
))A4
)) (SETQ C7
(/(-(* C3 A4
)(* C4 A3
))A4
)) (SETQ E7
(/(-(* E3 A4
)(* E4 A3
))A4
)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(SETQ C8
(/(-(* C5 B6
)(* C6 B5
))B6
)) (SETQ D8
(/(-(* D5 B6
)(* D6 B5
))B6
)) (SETQ E8
(/(-(* E5 B6
)(* E6 B5
))B6
)) (SETQ C9
(/(-(* C6 B7
)(* C7 B6
))B7
)) (SETQ D9
(/(-(* D6 B7
)(* D7 B6
))B7
)) (SETQ E9
(/(-(* E6 B7
)(* E7 B6
))B7
)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(SETQ M
(/(-(* E8 C9
)(* C8 E9
))(-(* D8 C9
)(* D9 C8
)))) (SETQ W
(/(- E8
(* D8 M
))C8
)) (SETQ V
(/(- E5
(+(* C5 W
)(* D5 M
)))B5
)) (SETQ U
(/(- E1
(+ M
(* C1 W
)(* B1 V
)))A1
)) (SETQ R
(SQRT(/(+(* U U
)(* V V
)(* W W
)(* -4 M
))4))) )