-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
hello Gary--
>
> when running convert_restraints_to_xplor.tcl I have found that using
> removeLowLikelihoodPeakAssignments with any value doesn't change the number
> of assignments written
Thanks for the report. I've placed an updated version of the script on
the updates page and fixed it for the next release.
>
> nb. while sorting this out i wrote the following functions to count the
> current number of active pa's
>
> proc countAssignments potential {
> set i 0
> set j 0
> foreach curPeak [$potential peaks] {
> Peak -this $curPeak
> set pas [$curPeak peakAssignments]
> if {[llength $pas] > 0} {
> incr j
> }
> foreach curPA $pas {
> incr i
> }
> }
> return [list $j $i]
> }
>
> based on removeLowLikelihoodPeakAssignments
>
> now this brought up some questions
> a. what is the list of sub commands for a potential (or where do i find it)
That's a secret until John writes documentation or you download the
source code. Some means of introspection would also be useful.
Methods of interest include
for Peak:
numPeakAssignments()
numActivePeakAssigns()
isAssigned()
for PeakAssignment:
isActive()
> b. what does Peak/PA -this $curPeak do?
It ``objectifies'' curPeak so that you can use it as a function. It's
one of the ugly features of the TCL interface.
> c. is there an easier way to do this?
maybe Peak::numActivePeakAssigns() is what you want?
best regards--
Charles
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)
Comment: Processed by Mailcrypt 3.5.8+ <http://mailcrypt.sourceforge.net/>
iD8DBQFGzENPPK2zrJwS/lYRAnvsAJ9z+LsU+1nzMdflMObKP+vXtf9zvwCfVm5v
BpT9uRu/up+lTxzSGM3Tgts=
=0cvZ
-----END PGP SIGNATURE-----
