better code

This commit is contained in:
array-in-a-matrix 2023-01-17 14:44:12 -05:00
parent c79ad277d6
commit 640872a161

View file

@ -43,8 +43,7 @@ proc calcCross(vector1: array[3, float], vector2: array[3, float]): array[3, flo
let i: float = vector1[1] * vector2[2] - vector1[2] * vector2[1]
let j: float = vector1[2] * vector2[0] - vector1[0] * vector2[2]
let k: float = vector1[0] * vector2[1] - vector1[1] * vector2[0]
let vector = [i, j, k]
return vector
result = [i, j, k]
proc dot*() =
echo "MATRIX DOT PRODUCT"
@ -68,7 +67,7 @@ proc dot*() =
procedures.fillMatrix(m2, r2, c2)
#? resultent matrix
var m = newSeqWith(0, newSeq[float](0))
var m: seq[seq[float]]
m = calcDot(m1, m2) #? calculate dot product (in procedures)
echo "\nFirst matrix is:"
@ -82,18 +81,18 @@ proc cross*() =
echo "VECTOR CROSS PRODUCT"
type
vector = array[3, float]
VECTOR = array[3, float]
var
v1: vector
v2: vector
v1: VECTOR
v2: VECTOR
echo "Enter numbers in the first vector:"
for i in countup(0, 2):
for i in 0..2:
echo "Enter item:"
v1[i] = parseFloat(readLine(stdin))
echo "Enter numbers in the second vector:"
for i in countup(0, 2):
for i in 0..2:
echo "Enter item:"
v2[i] = parseFloat(readLine(stdin))