``r find_intersection_point <- function(vector1, vector2) { # Ekstrak koordinat tina vektor x1 <- vektor1[1] y1 <- vektor1[2] x2 <- vektor2[1] y2 <- vektor2[2] # Ngitung determinan matriks det <- x1 * y2 - x2 * y1 # Pariksa naha determinan nyaéta nol, anu hartosna vektorna paralel upami (det == 0) { balik NULL) } # Ngitung titik persimpangan x <- (x2 * y1 - x1 * y2) / det y <- (-y2 * x1 + x2 * y1) / det # Balikkeun titik persimpangan salaku vektor balik cx, y)) } ````(((
spam fails_task lang_mismatch pii not_appropriate hate_speech sexual_content quality toxicity humor helpfulness creativity violence