|
|
@@ -9,7 +9,7 @@ if $ARGS[0] = 'compare':
|
|
|
end
|
|
|
end
|
|
|
|
|
|
-if $ARGS[0] = 'relation':
|
|
|
+if $ARGS[0] = 'relate':
|
|
|
!Comparing two DNA string to determine genetic relation
|
|
|
!First sample
|
|
|
!own ID
|
|
|
@@ -68,6 +68,8 @@ if $ARGS[0] = 'relation':
|
|
|
'distand blood relation'
|
|
|
end
|
|
|
end
|
|
|
+ killvar 'temp1'
|
|
|
+ killvar 'temp2'
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'create':
|
|
|
@@ -99,7 +101,7 @@ if $ARGS[0] = 'generate':
|
|
|
!paternal grandfather ID
|
|
|
$temp[5] = $mid ($dadDNA, 23, 10)
|
|
|
$RESULT = str(rand(1000000000,2147483647)) + ' ' + $temp[0] + ' ' + $temp[1] + ' ' + $temp[2] + ' ' + $temp[3] + ' ' + $temp[4] + ' ' + $temp[5]
|
|
|
- killvar 'temp1'
|
|
|
+ killvar 'temp'
|
|
|
end
|
|
|
|
|
|
--- DNA -------------------------------
|
Malen