508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
|
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
|
-
+
-
+
|
for ($effort_causality) {
if (/-1/) { $effort_causality = "tail";}
if (/0/) { $effort_causality = "none";}
if (/1/) { $effort_causality = "head";}
}
for ($flow_causality) {
if (/-1/) { $flow_causality = "tail";}
if (/-1/) { $flow_causality = "head";}
if (/0/) { $flow_causality = "none";}
if (/1/) { $flow_causality = "head";}
if (/1/) { $flow_causality = "tail";}
}
print OUT
" ## bond $mtt_bond_id \n" .
" ${diagram_name}.bonds.bond${mtt_bond_id_index{$dia_bond_id}}." .
"head.component = \"${head_component}\";\n" .
" ${diagram_name}.bonds.bond${mtt_bond_id_index{$dia_bond_id}}." .
|