Skript Labels schreiben

[FeatureSet fs] setDesc   @/home/islpra0/IslData/featDesc
            fs  setAccess @/home/islpra0/IslDatafeatAccess

[CodebookSet cbs fs]                read ../step2/codebookSet
[DistribSet  dss cbs]               read ../step2/distribSet
[PhonesSet ps]                      read ../step2/phonesSet
[Tags tags]                         read ../step2/tags
[Tree dst ps:PHONES ps tags dss]    read ../step2/distribTree

SenoneSet sns [DistribStream str dss dst] -phones ps:PHONES -tags tags

[TmSet tms]                         read ../step2/transitionModels
[TopoSet tps sns tms]               read ../step2/topologies
[Tree tpt ps:PHONES ps tags tps]    read ../step2/topologyTree
[Dictionary diction ps:PHONES tags]    read ../step1/convertedDict

[DBase db] open ../step1/db.dat ../step1/db.idx -mode r
AModelSet amo tpt ROOT

cbs load ../step3/codebookWeights

fs FMatrix LDAMatrix 
fs:LDAMatrix.data bload ../IslData/ldaISLci.bmat

HMM hmm diction [AModelSet amo tpt ROOT] 
Path path

proc viterbi utt {
  set uttInfo [db get \$utt]
  makeArray arr \$uttInfo
  hmm make \$arr(TEXT) -optWord SIL
  if [catch {path viterbi hmm -eval \$uttInfo} msg] {
        puts "ERROR: \$msg"
  }
}

catch { mkdir labels }

foreach utt [db] {
  puts  "\$utt [viterbi \$utt]"
  path bsave labels/\$utt
}

exit