]> Hydrophobic moment calculation (EMBOSS) protein:2d structure http://bioweb.pasteur.fr/docs/EMBOSS/hmoment.html hmoment &emboss_init; input Input section seqall seqall -- pureprotein [sequences] (-seqall) perl " -seqall=$value -sformat=fasta" 1 pureprotein 8 seqsfile perl 1 advanced Advanced section window Window (-window) 10 perl (defined $value && $value != $vdef)? " -window=$value" : "" 2 aangle Alpha helix angle (degrees) (-aangle) 100 perl (defined $value && $value != $vdef)? " -aangle=$value" : "" 3 bangle Beta sheet angle (degrees) (-bangle) 160 perl (defined $value && $value != $vdef)? " -bangle=$value" : "" 4 baseline Graph marker line (-baseline) 0.35 perl (defined $value && $value != $vdef)? " -baseline=$value" : "" 5 output Output section plot Produce graphic (-plot) 0 perl ($value)? " -plot" : "" 6 double Plot two graphs (-double) 0 perl ($value)? " -double" : "" 7 graph graph (-graph) x11 x11 hp7470 hp7470 postscript postscript cps cps hp7580 hp7580 null null data data colourps colourps text text none none tek4107t tek4107t tekt tekt xwindows xwindows hpgl hpgl xterm xterm meta meta ps ps tek tek png png tektronics tektronics perl $plot acd $plot postscript perl ($value)? " -graph=$value" : "" 8 outfile outfile (-outfile) acd @(!$(plot)) perl ($value)? " -outfile=$value" : "" 9 auto perl " -auto -stdout" 10 psouput perl $graph eq "postscript" || $graph eq "ps" || $graph eq "colourps" || $graph eq "cps" || $graph eq "png" perl " -goutfile=hmoment" 100 psresults perl $graph eq "postscript" || $graph eq "ps" || $graph eq "colourps" || $graph eq "cps" *.ps metaresults perl $graph eq "meta" *.meta dataresults perl $graph eq "data" *.dat pngresults perl $graph eq "png" *.png *.2 *.3