Schematic whole part
This page describes the organizational forces that limit change.  It explains how to overcome them when necessary. 

Power& tradition holding back progress
This page uses an example to illustrate how:
  • A business can gain focus from targeting key customers,
  • Business planning activities performed by the whole organization can build awareness, empowerment and coherence. 
  • A program approach can ensure strategic alignment. 
Be responsive to market dynamics
This page uses the example of HP's printer organization freeing itself from its organizational constraints to sell a printer targeted at the IBM pc user. 
The constraints are described. 
The techniques to overcome them are implied. 
Overcome reactionaries
Primary Navigation

A schematic model of a whole part

Summary
This page looks at how
This page describes the Adaptive Web framework (AWF) test system and the agent programming framework (Smiley) that supports its operation. 
Example test system statements are included.  To begin a test a test statement is loaded into Smiley while Smiley executes on the Perl interpreter. 
Part of Smiley's Perl code focused on setting up the infrastructure is included bellow. 
The setup includes:
  • Loading the 'Meta file' specification,
  • Initializing the Slipnet, and Workspaces and loading them
  • So that the Coderack can be called. 
The Coderack, which is the focus of a separate page of the Perl frame then schedules and runs the codelets that are invoked by the test statement structures. 
Smiley
processes the statement, such as a test request, to ensure that each part of the statement is composed of groups. 
Smiley does this through the operation of a part codelet which indirectly sponsors the modeling of the parts of the statement. 
The modeling itself is performed by model codelets
The part codelet synchronizes with the completion of the modeling. 
The part evaluator's signal along with the associated operons is an addressable control structure which is used in biological cells to control access to other regions of the DNA. 
and subgroup schematic sequences are included
The group models' Slipnet associations are included
The codelets and supporting functions are included
Introduction
A test request statement can be
The agents in complex adaptive systems (CAS) must model their environment to respond effectively to it.  Samuel modeling is described as an approach. 
modeled
by a complex adaptive system (
This page introduces the complex adaptive system (CAS) theory frame.  The theory is positioned relative to the natural sciences.  It catalogs the laws and strategies which underpin the operation of systems that are based on the interaction of emergent agents. 
John Holland's framework for representing complexity is outlined.  Links to other key aspects of CAS theory discussed at the site are presented. 
CAS
) using operon is an addressable control structure which is used in biological cells to control access to other regions of the DNA. 
control of
Plans emerge in complex adaptive systems (CAS) to provide the instructions that agents use to perform actions.  The component architecture and structure of the plans is reviewed. 
schemata
to coordinate
Plans are interpreted and implemented by agents.  This page discusses the properties of agents in a complex adaptive system (CAS). 
It then presents examples of agents in different CAS.  The examples include a computer program where modeling and actions are performed by software agents.  These software agents are aggregates. 
The participation of agents in flows is introduced and some implications of this are outlined. 
agents
(codelets function list) assessments. 
Any structure can be deployed into an active
This page describes the Adaptive Web framework (AWF) test system and the agent programming framework (Smiley) that supports its operation. 
Example test system statements are included.  To begin a test a test statement is loaded into Smiley while Smiley executes on the Perl interpreter. 
Part of Smiley's Perl code focused on setting up the infrastructure is included bellow. 
The setup includes:
  • Loading the 'Meta file' specification,
  • Initializing the Slipnet, and Workspaces and loading them
  • So that the Coderack can be called. 
The Coderack, which is the focus of a separate page of the Perl frame then schedules and runs the codelets that are invoked by the test statement structures. 
Smiley
This page describes the Copycat Workspace. 
The specialized use of the Workspace by the adaptive web framework's (AWF) Smiley is discussed. 
How text and XML are imported into the Smiley Workspace is described. 
Telomeric aging of schematic structures is introduced. 
The internal data structure used to represent the state of each workspace object is included. 
The Workspace infrastructure functions are included. 
Workspace
.  Smiley is an agent programming framework (
This presentation applies complex adaptive system (CAS) agents to computer programming. 
see presentation
).  A Workspace is active if it has group scout codelets exploring the Workspace. 

Modeling of groups within the statement by model codelets
The part codelet's evaluator initiates modeling of structures within the statement.  It does this by initiating a
Agents use sensors to detect events in their environment.  This page reviews how these events become signals associated with beneficial responses in a complex adaptive system (CAS).  CAS signals emerge from the Darwinian information model.  Signals can indicate decision summaries and level of uncertainty. 
signal
Rather than oppose the direct thrust of some environmental flow agents can improve their effectiveness with indirect responses.  This page explains how agents are architected to do this and discusses some examples of how it can be done. 
Indirectly
one effect is the scheduling of the codelet builders msalthrbuilder & mgpartbuilder which model the statement's groups by ensuring the group's salience, Douglas Hofstadter controlled the amount of attention a Workspace object in Copycat would receive from codelets via its salience.  The more descriptions, analogous to geons, an object has and the more highly activated the nodes involved therin, the more important the object is.  Modulating this tendency is any relative lack of connections from the object to the rest of the objects in the Workspace.  Salience is a dynamic number that takes into account both these factors.  In Smiley the instantaneous salience of a Workspace's objects is calculated by itsalience.   is within expected group thresholds and they have the correct initiation and termination conditions. 
Indirect group modeling response to the part evaluator's signal
The part whole group operon has a subgroup used as one model of the completeness of the statement.  

The modeling is enabled and parallelized by nuclear, a membrane bounded module in a eukaryotic cell where the DNA is encapsulated and operated on. 
operons signalled by the evaluator's part whole (partlabel) with nlmbindtomsiggc have been
This page describes the Smiley infrastructure that supports the associative binding of schematic strings to codelets defined in the Meta file and Slipnet. 
The infrastructure supporting the associations is introduced. 
The role of Jeff Hawkins neocortical attributes is discussed. 
Relevant Slipnet configurations are included. 
The codelets and supporting functions are included. 
associated
in the
This page describes the Copycat Slipnet. 
The goal of the Slipnet is reviewed. 
Smiley's specialized use of the Slipnet is introduced. 
The initial Slipnet network used by the 'Merge Streams' and 'Virtual Robot' agent-based applications is setup in initchemistry and is included. 
The Slipnet infrastructure and initialization functions are included. 
Slipnet
with a signal type (mpsignal).
Slipnet associations for the group models
The transfers of RNA (RNA), a polymer composed of a chain of ribose sugars.  It does not naturally form into a paired double helix and so is far less stable than DNA.  Chains of DNA are converted by transcription into equivalently sequenced messenger m-RNA.  RNA also provides the associations that encode the genetic code.  Transfer t-RNAs have a site that maps to the codon and match the associated amino-acid.  Stuart Kauffman argues that RNA polymers may be the precursor to our current DNA based genome and protein based enzymes.  In the adaptive web framework's (AWF) Smiley we use a similar paradigm with no proteins. 
like verb specific subgroup schematic strings from the nuclear
This page describes the Copycat Workspace. 
The specialized use of the Workspace by the adaptive web framework's (AWF) Smiley is discussed. 
How text and XML are imported into the Smiley Workspace is described. 
Telomeric aging of schematic structures is introduced. 
The internal data structure used to represent the state of each workspace object is included. 
The Workspace infrastructure functions are included. 
Workspace
to the statement's Workspace will result in
This page describes the adaptive web framework (AWF) Smiley agent progamming infrastructure's codelet based Copycat grouping operation. 
The requirements needed for a group to complete are described. 
The association of group completion with a Slipnet defined operon is described.  Either actions or signals result from the association. 
How a generated signal is transported to the nucleus of the cell and matched with an operon is described. 
A match with an operon can result in deployment of a schematic string to the original Workspace.  But eventually the deployed string will be destroyed. 
Smiley infrastructure amplification of the group completion operation is introduced.  This includes facilities to inhibit crowding out of offspring. 
A test file awfart04 is included. 
The group codelet and supporting functions are included. 
groupcompletion
of the strings and queuing of the codelets on the
This page describes the Copycat Coderack. 
The details of the codelet architecture are described. 
The specialized use of the Coderack by the adaptive web framework's (AWF) Smiley is discussed. 
The codelet scheduling mechanism is discussed. 
A variety of Smiley extensions to the Coderack are reviewed. 
The Coderack infrastructure functions are included. 
Coderack
due to associations from the strings to the codelets in the Slipnet which include:
  • mstbindtomsig(s|o|v|d) which is associated with the evaluator of the model salient threshold (msalthr) codelet.
  • mgpbindtomsig(s|o|v|d) which is associated with the evaluator of the model salient threshold (mgpart) codelet.
Synchronization of part group modeling and decision making
The part evaluator will complete only when all the groups that compose the part have modeled as complete and good. 



awfpbs testing development schemata
The following schematic strings are loaded by convbws.  They are group schemata which are associated with nuclear agents (nuclabm evaluator & builder) which respond to codelet signals by deploying the included sub-group schemata to the active
This page describes the Copycat Workspace. 
The specialized use of the Workspace by the adaptive web framework's (AWF) Smiley is discussed. 
How text and XML are imported into the Smiley Workspace is described. 
Telomeric aging of schematic structures is introduced. 
The internal data structure used to represent the state of each workspace object is included. 
The Workspace infrastructure functions are included. 
Workspace


The Meta-keyword <comment> toggles convbws loading between comment mode and processing active <keywords>.  In the following the initial <comment> switches convbws into active mode. 

The active keywords include meta-keyword instructions for convbws, such as <rhlmspg> and <memgroup> and schematic keywords that will be processed during nuclear operations.  The first keyword of a schematic string also identifies the start of the group and the start of the deployed subgroup. 

The schematic groups listed include sub-group deployment schemata for codelets that are typically useful during development is a phase during the operation of a CAS agent.  It allows for schematic strategies to be iteratively blended with environmental signals to solve the logistical issues of migrating newly built and transformed sub-agents.  That is needed to achieve the adult configuration of the agent and optimize it for the proximate environment.  Smiley includes examples of the developmental phase agents required in an emergent CAS.  In situations where parents invest in the growth and memetic learning of their offspring the schematic grab bag can support optimizations to develop models, structures and actions to construct an adept adult.  In humans, adolescence leverages neural plasticity, elder sibling advice and adult coaching to help prepare the deploying neuronal network and body to successfully compete. 
: schbind, sloc, slistkw, skipwso, namest, srcdkw, endrcdkw, endlistkw, and unbind.


swppartwhole signalled meme
The partwhole function's
This page discusses how Smiley provides signalling to its agent-based applications. 
Alternative strategies for initiating the signalling are reviewed. 
The codelets and supporting functions are included.
signal
(<model> <schema> <partscategory> (<subject>| <object>| <verb>| <development>) <groupcomplete>) is associated with a meme group.  The nuclabm nuclear codelet (builder) matches the signal with all the identically named nuclear Workspace deployed meme groups and heuristically selects subgroup schematic strings from the complete set to send for deployment.  The signal's cascade based subject| object| verb| development Slipnet descriptions associates codelet forces (nuclabmevaluator) with the signals. 

 



<comment> (<rhlmspg> <memgroup> <model> <schema> <partscategory> <subject> <groupcomplete> <model> <partscategory> <subject> <salience> <threshold> <model> <partscategory> <subject> <jhlabel> <groupcomplete> </memgroup> </rhlmspg> )<comment> <br>

<comment> (<rhlmspg> <memgroup> <model> <schema> <partscategory> <object> <groupcomplete> <model> <partscategory> <object> <salience> <threshold> <model> <partscategory> <object> <jhlabel> <groupcomplete> </memgroup> </rhlmspg> )<comment> <br>

<comment> (<rhlmspg> <memgroup> <model> <schema> <partscategory> <verb> <groupcomplete> <model> <partscategory> <verb> <salience> <threshold> <model> <partscategory> <verb> <jhlabel> <groupcomplete> </memgroup> </rhlmspg> )<comment> <br>

<comment> (<rhlmspg> <memgroup> <model> <schema> <partscategory> <development> <groupcomplete> <model> <partscategory> <development> <salience> <threshold> </memgroup> </rhlmspg> )(<rhlmspg> <memgroup> <model> <schema> <partscategory> <development> <groupcomplete> <model> <partscategory> <development> <jhlabel> <groupcomplete> </memgroup> </rhlmspg> )<comment> <br>





comment (<rhlmspg> <memgroup> <model> <schema> <partscategory> <subject> <groupcomplete> <model> <partscategory> <subject> <salience> <threshold> <model> <partscategory> <subject> <jhlabel> <groupcomplete> </memgroup> </rhlmspg> ) comment <br>

comment (<rhlmspg> <memgroup> <model> <schema> <partscategory> <object> <groupcomplete> <model> <partscategory> <object> <salience> <threshold> <model> <partscategory> <object> <jhlabel> <groupcomplete> </memgroup> </rhlmspg> ) comment <br>

comment (<rhlmspg> <memgroup> <model> <schema> <partscategory> <verb> <groupcomplete> <model> <partscategory> <verb> <salience> <threshold> <model> <partscategory> <verb> <jhlabel> <groupcomplete> </memgroup> </rhlmspg> ) comment <br>

comment (<rhlmspg> <memgroup> <model> <schema> <partscategory> <development> <groupcomplete> <model> <partscategory> <development> <salience> <threshold> </memgroup> </rhlmspg> )(<rhlmspg> <memgroup> <model> <schema> <partscategory> <development> <groupcomplete> <model> <partscategory> <development> <jhlabel> <groupcomplete> </memgroup> </rhlmspg> ) comment <br>

#<!-- end tag dli -->
#
    my ($pconc, $jhlsid);

# nlmbindtomsiggc
# setup the binding string for the multi path signal to initiate model - model codelets launch nuclabmcodelets which ignore the concept as long as it had an evaluator

    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {mpsignal}, $pconc, 1, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc), $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {schema}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {subject}, $Awfif::memes-> {snnh} {groupcomplete});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {nuclabmevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);

# nlmbindtomsiggcv
    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {mpsignal}, $pconc, 1, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc), $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {schema}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {verb}, $Awfif::memes-> {snnh} {groupcomplete});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {nuclabmevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);

# nlmbindtomsiggco
    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {mpsignal}, $pconc, 1, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc), $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {schema}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {object}, $Awfif::memes-> {snnh} {groupcomplete});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {nuclabmevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);

# mdevbindtomsiggc
    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {mpsignal}, $pconc, 1, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc), $pconc,# ****
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {schema}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {development}, $Awfif::memes-> {snnh} {groupcomplete});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {nuclabmevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);
#<!-- end tag al -->
# mstbindtomsigs
# & a label for a sps indirectly from model via $pconc

    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {spsignal}, $pconc, 1, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc, undef(), undef(), undef(), 't'), $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {subject}, $Awfif::memes-> {snnh} {salience}, $Awfif::memes-> {snnh} {threshold});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {msalthrevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);
# mstbindtomsigo
# & a label for a sps indirectly from model via $pconc

    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {spsignal}, $pconc, 2, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc, undef(), undef(), undef(), 't'), $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {object}, $Awfif::memes-> {snnh} {salience}, $Awfif::memes-> {snnh} {threshold});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {msalthrevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);
# mstbindtomsigv
# & a label for a sps indirectly from model via $pconc

    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {spsignal}, $pconc, 3, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc, undef(), undef(), undef(), 't'), $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {verb}, $Awfif::memes-> {snnh} {salience}, $Awfif::memes-> {snnh} {threshold});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {msalthrevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);
# mstbindtomsigd
# & a label for a sps indirectly from model via $pconc

    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {spsignal}, $pconc, 3, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc, undef(), undef(), undef(), 't'), $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {development}, $Awfif::memes-> {snnh} {salience}, $Awfif::memes-> {snnh} {threshold});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {msalthrevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);
#<!-- start tag vbt -->
# mgpbindtomsigs
# & a label for a sps indirectly from model via $pconc

    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {spsignal}, $pconc, 4, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc, undef(), undef(), undef(), 't'), $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {subject}, $Awfif::memes-> {snnh} {jhlabel}, $Awfif::memes-> {snnh} {groupcomplete});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {mgpartevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);
# mgpbindtomsigo
# & a label for a sps indirectly from model via $pconc

    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {spsignal}, $pconc, 5, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc, undef(), undef(), undef(), 't'), $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {object}, $Awfif::memes-> {snnh} {jhlabel}, $Awfif::memes-> {snnh} {groupcomplete});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {mgpartevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);
# mgpbindtomsigv
# & a label for a sps indirectly from model via $pconc

    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {spsignal}, $pconc, 6, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc, undef(), undef(), undef(), 't'), $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {verb}, $Awfif::memes-> {snnh} {jhlabel}, $Awfif::memes-> {snnh} {groupcomplete});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {mgpartevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);
# mgpbindtomsigd
# & a label for a sps indirectly from model via $pconc

    $Awfif::memes-> {maxoper}++; $jhlsid = 0;
    $pconc = Awfif::pconc ($Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [0], $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnc} [$Awfif::memes-> {snnh} {model}] [1], 8, $Awfif::memes-> {currentwsbi});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {attrib}, Awfif::addjhlst ($Awfif::memes-> {snnh} {spsignal}, $pconc, 6, $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc], $pconc, undef(), undef(), undef(), 't'), $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    &Awfif::addjhlattribs ($pconc, $Awfif::memes-> {snnh} {model}, $Awfif::memes-> {snnh} {partscategory}, $Awfif::memes-> {snnh} {development}, $Awfif::memes-> {snnh} {jhlabel}, $Awfif::memes-> {snnh} {groupcomplete});
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$pconc] = Awfif::newnlink ($Awfif::memes-> {snnh} {evaluator}, $Awfif::memes-> {snnh} {mgpartevaluator}, $pconc,
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$pconc]);
    $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}
      [$Awfif::memes-> {snnh} {model}] = Awfif::newnlink ( $Awfif::memes-> {snnh} {cinstance},$pconc,$Awfif::memes-> {snnh} {model},
                  $Awfif::memes-> {snw} [$Awfif::memes-> {currentwsbi}]-> {snnl}[$Awfif::memes-> {snnh} {model}]);

Functions

#
sub selsaltypedwso {
    my ($myli, $swstype, $nextinstance, $twso, $kwp, $kwpr, $sactset)=@_;
    my ($found, $stfound, @typelist, $i, $i1, $term, $tstring);

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      my ($pr);
      $pr = $Awfif::memes-> {snnih}{$swstype};
      print ("selsaltypedwso myli $myli, swstype $pr kwp $kwp kwpr $kwpr ");
      };

    $stfound = ltypedwso ($myli, $swstype, \@typelist, $kwp, $kwpr, \@$sactset);
# filter out wso that do not have modeling requests

    for ($i = 0; $i < $stfound;$i++) {
      if ((!findbond ($Awfif::wsol-> {l} [ awsoadr ($typelist[$i])] [2], $Awfif::memes-> {snnh} {start}, $swstype, $Awfif::memes-> {snnh} {model}))
      or (findbond ($Awfif::wsol-> {l} [ awsoadr ($typelist[$i])] [2], $Awfif::memes-> {snnh} {dropthreshold}, $swstype, $Awfif::memes-> {snnh} {model}))){

        for ($i1 = $i+1; $i1 < $stfound; $i1++) {
          $typelist[$i1-1] = $typelist[$i1];
          };# for move rest down

        $stfound--;
        $i--;
        };#if discard
      };# for
# ensure that the wso group is terminated

    $tstring = '/'."$Awfif::memes->{snnih}{$swstype}";
    for ($i = 0; $i < $stfound;$i++) {

      $found = '';
      if ($i == ($stfound -1)) {

        $term = $kwp;
        }#if use kwp
      else {

        $term = $typelist[$i+1];
        };# else use typelist

      for ($i1 = trwsoadr ($typelist[$i],1);
        (($i1 < $term) && (!$found)); $i1 = trwsoadr ($i1, 1)) {
# check for match with /keyword

        if (getwsost4 ($i1) eq $tstring) {

          $found = 't';
          $$twso = $i1;
          };#if match
        };#for

      if (!$found) {

        for ($i1 = $i+1; $i1 < $stfound; $i1++) {

          $typelist[$i1-1] = $typelist[$i1];
          };# for move rest down

        $stfound--;
        };
      };# for check each candidate has a terminal keyword match prior to kwp
# select one item from the list at random

    if ($stfound > 0) {
      $$nextinstance = $typelist [int (rand ($stfound))];
      };#if
    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("selsaltypedwso nextinstance $$nextinstance twso $$twso ret $stfound\n");
      };

    return ($stfound);
    };# selsaltypedwso
#
#<!-- end tag vbt -->
#
sub ltypedwso {
    my ($myli, $swstype, $typelist, $kwp, $kwpr, $sactset)=@_;
    my ($i, $count);

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      my ($pr);
      $pr = $Awfif::memes-> {snnih}{$swstype};
      print ("ltypedwso myli $myli, swstype $pr kwp $kwp kwpr $kwpr sactset($$sactset[0]) ");
      };
    $count = 0;
    @$typelist = ();

    for ($i = $kwpr; $i != $kwp;$i = trwsoadr ($i,1)) {
      if (wsbasetype ($i) == $swstype) {

        $$typelist [$count++] = $i;
        };#if
      };#for

    if (wsbasetype ($kwp) == $swstype) {

      $$typelist [$count++] = $kwp;
      };#if

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("ltypedwsox typelist ");
      for ($i = 0; $i < $count; $i++) {
        print ("[$i=>$$typelist[$i]] ");
        };# for
      print ("ret $count\n");
      };

    return ($count);
    };# ltypedwso
#
#<!-- start tag sca -->
#
sub thrtypedwso {
    my ($myli, $nextinstance, $twso, $kwp, $kwpr, $sactset)=@_;
    my ($inbounds, $msal, $groupcomplete, $i, $ai);

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("thrtypedwso myli $myli, nextinstance $nextinstance twso $twso kwp $kwp kwpr $kwpr sactset($$sactset[0]) ");
      };
    $inbounds = '';
# for each typed wso check their salience

    for ($i = trwsoadr ( $nextinstance, 1);
    $i < $twso; $i = trwsoadr ($i, 1)) {

      $ai = awsoadr ($i);
      if (($Awfif::wsol-> {l}[$ai][ $Awfif::memes-> {wsohistbp}] != 0) #*** submacrok ***#
      && ($Awfif::histonel-> {l} [
        $Awfif::wsol-> {l}[$ai][ $Awfif::memes-> {wsohistbp}]#*** submacrok ***#
          ] [2] == 1)) {#ignore this inactive histone

        $groupcomplete = '';
        }#if
      else {#not inactive histone

        $msal = ($msal + tdgroup1 ($myli, $i, $kwp, $kwpr, \$groupcomplete))/2;
        if ($groupcomplete) {

          my ($end, $sponsor, $sgdi);
          $msal = ($msal + $Awfif::memes-> {grcompaward})/2;
# now move i beyond the group end
          &fgrpd ($myli, $i, \$sgdi, $Awfif::memes->{snnh}{groupcategory});
          $sponsor = fgrpsponsor ($i, $Awfif::workspace-> {l} [$sgdi] [3], $Awfif::memes-> {snnh} {groupcategory});
          $end = fgrpend ($sponsor);# of the group
          $i = $end;
          };# handle completed groups
        };#else
      };# for

    if ($msal >= $Awfif::memes-> {salthr} ) {

      $inbounds = 't';
      };#if threshold failure

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("thrtypedwsox msal $msal ret ($inbounds)\n");
      };

    return ($inbounds);
    };# thrtypedwso
#
#<!-- start tag ssc -->
#
sub partwhole {# assess this part for its wholeness
    my($myli, $parti, $wholeid, $kwp, $kwpr, $sactset)=@_;
    my ($whole, $giveup);

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      my ($pr);
      $pr = $Awfif::memes-> {currentwsbi};
      print ("partwhole myli $myli ws $pr ");
      $pr = $Awfif::memes-> {snnih} {wsbasetype ($parti)};
      print (" i $pr($parti) ");
      $pr = $Awfif::pcache-> {p} [$Awfif::memes-> {currentwsbi}];
      print ("p $pr ");
      };
# updated for merged workspaces
# partwhole is called within part codelet As such it will assume the part has setup the pcache
# it uses statement/part model launcher to check if the plan associated with cascade partlabel is modelled and described as model-(subject|object|verb|development)->whole|devpwhole or stopped,

    $whole = ilaunchmodel ($myli, $parti, 'partlabel', $wholeid, \$giveup, $kwp, $kwpr, \@$sactset);
    if (findbond ($Awfif::wsol-> {l} [ awsoadr ($parti)] [2], $Awfif::memes-> {snnh} {dropopcheck}, wsbasetype ($parti), $Awfif::memes-> {snnh} {model})) {# terminate statement processing

      my ($pr);
      $pr = $Awfif::memes-> {snnih} {wsbasetype ($parti)};
      print ("bad group in part $pr - moving to next file\n");
      &actnodes ($Awfif::memes-> {snnh} {terminate}, $Awfif::memes-> {actmax});
      &invcaches ($Awfif::memes-> {snnh} {terminate});
      if ($Awfif::memes-> {partwholebreak}) {&break ()}
      };#else

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("partwholex ret ($whole)\n");
      };
    return $whole
    }# partwhole
#
#<!-- end tag ssc -->
#<!-- start tag sca -->
#<!-- start tag ssc -->
#
sub mgparts {# check if this part has operons
    my ($myli, $nextinstance, $twso, $undecided, $kwp, $kwpr, $sactset)=@_;
    my ($inbounds, $msal, $groupcomplete, $i, $ai, $itwso, $atwso);

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("mgparts myli $myli, nextinstance $nextinstance twso $twso kwp $kwp kwpr $kwpr ");
      };
    $atwso = awsoadr ($twso);
# move the kwp out of the inactive histone
    if (($Awfif::wsol-> {l}[$atwso][ $Awfif::memes-> {wsohistbp}] != 0) #*** submacrok ***#
    && ($Awfif::histonel-> {l} [$Awfif::wsol-> {l}[$atwso][ $Awfif::memes-> {wsohistbp}]] [2] == 1)) {#*** submacrok ***#

      $itwso = nextihistone ($twso, \$atwso);
      }#if
    else {

      $itwso = $twso;
      };#else
    $inbounds = '';
    $$undecided = '';
# for each typed wso check their groups for existance of atleast one operon

    for ($i = trwsoadr ( $nextinstance, 1);
    $i != $itwso;
    $i = trwsoadr ($i, 1)) {

      $ai = awsoadr ($i);
      if (($Awfif::wsol-> {l}[$ai][ $Awfif::memes-> {wsohistbp}] != 0) #*** submacrok ***#
      && ($Awfif::histonel-> {l} [
        $Awfif::wsol-> {l}[$ai][ $Awfif::memes-> {wsohistbp}]#*** submacrok ***#
          ] [2] == 1)) {#ignore this inactive histone
        $groupcomplete = '';
        }#if
      else {
        $msal = ($msal + tdgroup1 ($myli, $i, $kwp, $kwpr, \$groupcomplete))/2;
        if ($groupcomplete) {

          my ($end, $sponsor, $sgdi);
# now move i beyond the group end
          &fgrpd ($myli, $i, \$sgdi, $Awfif::memes->{snnh}{groupcategory});
          $sponsor = fgrpsponsor ($i, $Awfif::workspace-> {l} [$sgdi] [3], $Awfif::memes-> {snnh} {groupcategory});
          $end = fgrpend ($sponsor);# of the group
          if (operonfound ($myli, $Awfif::memes-> {currentwsbi}, $i, $end)) {

            $msal = ($msal + $Awfif::memes-> {grcompaward})/2;
            };
          $i = $end;
          }# if
        else {
          my ($wsoindisle, $wsoindisue, $hle, $hue, $gtype, );
# should do each leaf under groupcategory

          $gtype = $Awfif::memes-> {snnh}{succgroup};
          if ((cantgroup ($myli, trwsoadr ($i, 1), $gtype, \$wsoindisle, \$wsoindisue, \$hle, \$hue, $kwp, $kwpr, \@$sactset) && ($wsoindisle) && ($hle))) {
# know this can't contribute
            }
          else {

            $$undecided = 't';
            };
          };# else of handle completed groups
        };#else
      };# for

    if ($msal >= $Awfif::memes-> {salthr} ) {

      $inbounds = 't';
      };#if threshold failure

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("mgpartsx msal $msal undecided ($$undecided) ret ($inbounds)\n");
      };

    return ($inbounds);
    }# mgparts
#
#<!-- end tag ssc -->
#<!-- start tag sca -->
#<!-- start tag sss -->
#
sub ilaunchmodel {#
    my($myli, $sti, $strategy, $comptype, $giveup, $kwp, $kwpr, $sactset)=@_;
    my ($i2, $whole, $cwsbi );

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      my ($pr);
      $pr = $Awfif::memes-> {currentwsbi};
      print ("ilaunchmodel myli $myli ws $pr ");
      $pr = $Awfif::memes-> {snnih} {wsbasetype ($sti)};
      print (" i $pr($sti) ");
      };
# updated for merged workspaces
    $cwsbi = $Awfif::memes-> {currentwsbi};
# ilaunchmodel is inverted from partwhole

    $whole = '';
    $$giveup = '';
    $i2 = 0;
    if ($Awfif::pcache-> {p} [$Awfif::memes-> {currentwsbi}] != 0) {# there are parts
# see if the modelling still needs to agree this part is whole
      if ((!($whole = findbond ($Awfif::wsol-> {l} [ awsoadr ($sti)] [2], $comptype, wsbasetype ($sti), $Awfif::memes-> {snnh} {model})))
      && ((!($$giveup = findbond ($Awfif::wsol-> {l} [ awsoadr ($sti)] [2], $Awfif::memes-> {snnh} {stop}, wsbasetype ($sti), $Awfif::memes-> {snnh} {model}))) )
      && (!findbond ($Awfif::wsol-> {l} [ awsoadr ($sti)] [2], $Awfif::memes-> {snnh} {start}, wsbasetype ($sti), $Awfif::memes-> {snnh} {model}))
      ){
# model the part

        &setusalcwsocache (awsoadr ($sti), undef(), (($Awfif::memes-> {strbool}[$Awfif::memes-> {streh} {$strategy}]) | $Awfif::memes-> {strbool}[$Awfif::memes-> {streh} {delta}]), undef());
        $Awfif::wsol-> {l} [awsoadr ($sti)][2]
          = setupdesc ( wsbasetype ($sti),
              ($Awfif::memes-> {snnh} {wsi} + $Awfif::memes-> {snnh} {start}), #add wsi to match findbond
              $Awfif::memes-> {snnh} {model},
              $Awfif::wsol-> {l} [awsoadr ($sti)][2],
              awsoadr ($sti));
        $Awfif::memes-> {fatp} = $Awfif::memes-> {fatp} + $Awfif::memes-> {batp};
# send activation to the involved Slipnet nodes
        &actnodes ( wsbasetype ($sti), $Awfif::memes-> {openatype},($Awfif::memes-> {strbool}[$Awfif::memes-> {streh} {bugroup}] | $Awfif::memes-> {strbool}[$Awfif::memes-> {streh} {tdgroup}] | $Awfif::memes-> {strbool}[$Awfif::memes-> {streh} {delta}]));
        &invcaches (wsbasetype ($sti), $Awfif::memes-> {strbool} [$Awfif::memes-> {streh} {'tdgroup'}]);
        &itwscachecor ('tdgroup', wsbasetype ($sti), 'seq', 'ilaunchmodel');
        };# no model descriptor

      if ((!$$giveup) && (!$whole)) {#
# request modelling
        &ilaunchnc ($myli, $sti, $strategy, $comptype, \$giveup, $kwp, $kwpr, \@$sactset);
        }# if request modeller
      };# if
    $Awfif::memes-> {currentwsbi} = $cwsbi;

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("ilaunchmodelx ret ($whole)\n");
      };
    return $whole
    }# ilaunchmodel
#
#<!-- end tag sss -->
#<!-- end tag sca -->
#
sub partlabel1 {# setup the labels for part
    my($myli, $parti, $lab, $kwp, $kwpr, $sactset, $static)=@_;
    my ($labcount);

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("partlabel myli $myli parti $parti kwp $kwp kwpr $kwpr sactset $$sactset[0] ");
      };
# updated for merged workspaces

    $labcount = 0;

    $labcount = labload (\@$lab, $labcount, $Awfif::memes-> {snnh} {model});
    $labcount = labload (\@$lab, $labcount, $Awfif::memes-> {snnh} {schema});
    $labcount = labload (\@$lab, $labcount, $Awfif::memes-> {snnh} {partscategory});
    $labcount = labload (\@$lab, $labcount, wsbasetype ($parti));
    $labcount = labload (\@$lab, $labcount, $Awfif::memes-> {snnh} {groupcomplete});

    if (defined ($$static)) {
      $$static = '';#can't depend on this being the same every return - don't cache
      };#if

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("partlabelx ret ($labcount)\n");
      };
    return $labcount
    }# partlabel
#
#<!-- end tag ssc -->
#
sub operonfound {
    my ($myli, $sws, $wss, $wse) = @_;
    my ($opfound, $operoncount, @lola, @loconcs, @lostrts, @loends, @logb, @loge, @lomatchs);

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("operonfound sws $sws wss $wss wse $wse ");
      };

    $operoncount = operonmatch ($myli, $sws, $wss, $wse, \@lomatchs, \@lola, \@loconcs, \@lostrts, \@loends, \@logb, \@loge);
    if ($operoncount > 0) {

      my ($opcount);
      $opfound = '';
      for ($opcount = 0; ((!$opfound) && ($opcount < $operoncount)); $opcount++) {
        if ($lomatchs [$opcount]) {

          $opfound = 't';
          };#if
        };# for
      };# if

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("operonfoundx ret ($opfound)\n");
      };

    return ($opfound);
    }# operonfound
#
#
sub operonmatch {
    my ($myli, $sws, $wss, $wse, $lomatchs, $lola, $loconcs, $lostrts, $loends, $logb, $loge, $filstrategy) = @_;
    my ($i, $i2, $label, $type, $ltype, $sigcount, $cwsbi, $iend);
# find all the groups in the current ws that match the source ws string sequence
# the jhlabels for these groups should have been loaded by lbbuilder
#
# checked for merged workspaces

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("operonmatch myli $myli ");
      &itcpoutput ($myli);
      };

    $label = '';
    $ltype = '';
    $i2 = 0;

    $cwsbi = $Awfif::memes-> {currentwsbi};
    $Awfif::memes-> {currentwsbi} = $sws;
# compare the cytosolic ws schema to the nuclear ws operons return any matching operons for this ws
    $i = $wss;
    $iend = trwsoadr ($wse, 1);
    while (($i != $iend) && ( awsoadr ($i) != 0)) {
      $type = ' ' . wsbasetype ($i);
      if ($type eq ' '.wsbasetype ( trwsoadr ($i, 1))) {#note repeat

        $type = '_' . wsbasetype ($i);
        };#repeat
      if ($ltype ne $type) {# ignore repeats

        $label = $label.$type;
        $$lostrts[$i2++] = $i;
        };#build direct label
      $ltype = $type;
      $i = trwsoadr ($i, 1);
      };#for
# apply the linking function of group completion
# if the groups labels result in a match with a signal then raise the signal
#

    $sigcount = msublabel1 ($myli, \$label, \@$lomatchs, \@$lola, \@$loconcs, \@$lostrts, \@$loends, \@$logb, \@$loge, $filstrategy);
# delete the non current ws & non operon matches
    $Awfif::memes-> {currentwsbi} = $cwsbi;
    if ($sigcount > 0) {

      for ($i = 0; $i < $sigcount; $i++) {

        if ($$lomatchs[$i]) {#there is a link validate the association
# matching jhlabel check if it is for operon and for current ws
# if not remove it from the match set (set $lomatchs[$i] false
          if ( ($Awfif::jhls-> {l} [$$lola[$i]][7] != $Awfif::memes-> {currentwsbi})
          or (($Awfif::jhls-> {l} [$$lola[$i]][4] != $Awfif::memes-> {snnh}{operon})
            && ($Awfif::jhls-> {l} [$$lola[$i]][4] != $Awfif::memes-> {snnh}{stbinding})
            && ($Awfif::jhls-> {l} [$$lola[$i]][4] != $Awfif::memes-> {snnh}{subpstbinding}))
          ) {

            $$lomatchs[$i] = '';
            };
          };#if link
        };#for
      };#if


    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("operonmatchx ret $sigcount\n");
      };
    return $sigcount
    }# operonmatch
#
#<!-- start tag ssc -->
#
sub msalthrevaluator1 {
    my ($myli, $kwp, $kwpr, $sactset) = @_;#The ignored parameters are required by the codelet calling architecture
#
# checked for merged workspaces

    no strict 'refs';
    &imsalthrevaluator1 ($myli, \$$kwp, $kwpr, \@$sactset, 'msalthrbuilder');

    }# msalthrevaluator1
#
sub imsalthrevaluator1 {
    my ($myli, $kwp, $kwpr, $sactset, $strategy) = @_;
    my ($sponsor, $signal, $schema, $found, $file, $spi, $swstype, @typelist,
    $grkwp, $grkwpr, $cdn, $cdnx);
#
# checked for merged workspaces

# models must use the full workspace

    $found = '';

# now check the workspace for salient workspace type with model status descriptor
    if (getcontext ($myli, \$sponsor, \$signal, \$schema, \$swstype, \$grkwp, \$grkwpr, undef(), \$cdn, \$cdnx, 4)) {
      my ($stfound);
      $stfound = ltypedwso ($myli, $swstype, \@typelist, trwsoadr ($Awfif::codelet-> {l} [$myli][21],-1), $grkwpr, \@$sactset);
      if ($stfound > 0) {#lets check the following schemata's salience

        &updatelog ($myli,'ae', 5, $file);
        $Awfif::clp = ();
        $Awfif::clp-> {log} = $Awfif::codelet-> {l} [$myli][13];
        $Awfif::clp-> {urgency} = ($Awfif::codelet-> {l} [$myli][3] * $Awfif::memes-> {blaunchm});
        if (defined ($Awfif::codelet-> {l}[$myli][19])) {
          $Awfif::clp-> {wsi} = $Awfif::codelet-> {l}[$myli][19];
          }#wsi set
        else {
          $Awfif::clp-> {wsi} = $Awfif::memes-> {currentwsbi};
          };
        $Awfif::clp-> {strategy} = "$strategy";
        $Awfif::clp-> {action}-> {sponsor} = $sponsor;
        $Awfif::clp-> {action}-> {signal} = $Awfif::codelet-> {l} [$myli][16];
        $Awfif::clp-> {action}-> {schema} = $Awfif::codelet-> {l} [$myli][18];
        $Awfif::clp-> {action}-> {ref} = $spi;
        $Awfif::clp-> {action}-> {sws} = $Awfif::codelet-> {l} [$myli] [20];
        $Awfif::clp-> {action}-> {wss} = $Awfif::codelet-> {l} [$myli][21];
        $Awfif::clp-> {action}-> {wse} = $Awfif::codelet-> {l} [$myli][22];
        &groupsinv1 ($myli, undef(), undef(), undef(), undef(), undef(), "$strategy", $$kwp, $kwpr, \@$sactset);
        };
      };#got buffer

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("$cdnx\n");
      };
    }# imsalthrevaluator1
#
sub msalthrbuilder1 {
    my ($myli, $kwp, $kwpr, $sactset) = @_;#The ignored parameters are required by the codelet calling architecture
    my ($sponsor, $signal, $schema, $found, $file, $swstype, $nextinstance,
    $grkwp, $grkwpr, $cdn, $cdnx);
    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("msalthrbuilder myli $myli kwp($kwp) kwpr($kwpr)");
      };
#
# checked for merged workspaces

# models must use the full workspace

    $found = '';

# now check the workspace for salient workspace type with model status descriptor
    if (getcontext ($myli, \$sponsor, \$signal, \$schema, \$swstype, \$grkwp, \$grkwpr, undef(), \$cdn, \$cdnx, 3)) {
      my ($stfound, $twso);
      $stfound = selsaltypedwso ($myli, $swstype, \$nextinstance, \$twso, trwsoadr ($Awfif::codelet-> {l} [$myli][21],-1), $grkwpr, \@$sactset);
      if ($stfound > 0) {#lets check the following schemata's salience
        my ($thrmet);

        &updatelog ($myli,'ae', 5, $file);
        $thrmet = thrtypedwso ($myli, $nextinstance, $twso, trwsoadr ($Awfif::codelet-> {l} [$myli][21],-1), $grkwpr, \@$sactset);
# if threshold met then allow checking to proceed
        if (!$thrmet) {
          my ($afrom);
# otherwise switch to some other test add model descriptor saying no thresholding

          $afrom = awsoadr ($nextinstance);
          $Awfif::wsol-> {l} [$afrom][2]
            = setupdesc ( ($swstype),
            ($Awfif::memes-> {snnh} {wsi} + $Awfif::memes-> {snnh} {dropthreshold}), #to match findbond
            $Awfif::memes-> {snnh} {model},
            $Awfif::wsol-> {l} [$afrom][2],
            $afrom);
# if only one for thresholding reduce its activity
          };
        };
      };#got target wso

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("$cdnx\n");
      };
    &clogstatx ();
    }# msalthrbuilder1
#
#<!-- start tag dli -->
#<!-- start tag vbt -->
#
sub mgpartevaluator1 {
    my ($myli, $kwp, $kwpr, $sactset) = @_;#The ignored parameters are required by the codelet calling architecture
#
# checked for merged workspaces

    no strict 'refs';
    &imsalthrevaluator1 ($myli, \$$kwp, $kwpr, \@$sactset, 'mgpartbuilder');

    &clogstatx ();
    }# mgpartevaluator1
#
sub mgpartbuilder1 {
    my ($myli, $kwp, $kwpr, $sactset) = @_;#The ignored parameters are required by the codelet calling architecture
    my ($sponsor, $signal, $schema, $found, $file, $swstype, $nextinstance,
    $grkwp, $grkwpr, $cdn, $cdnx);
#
# checked for merged workspaces

# models must use the full workspace

    $found = '';

# now check the workspace for salient workspace type with model status descriptor
    if (getcontext ($myli, \$sponsor, \$signal, \$schema, \$swstype, \$grkwp, \$grkwpr, undef(), \$cdn, \$cdnx, 3)) {
      my ($stfound, $twso);
      $stfound = selsaltypedwso ($myli, $swstype, \$nextinstance, \$twso, trwsoadr ($Awfif::codelet-> {l} [$myli][21],-1), $grkwpr, \@$sactset);
      if ($stfound > 0) {#lets check the following schemata's completeness
        my ($thrmet, $undecided, $wholetype);
        if (wsbasetype ($nextinstance) == $Awfif::memes-> {snnh}{development}) {
          $wholetype = $Awfif::memes-> {snnh} {devpwhole};
          }#if
        else {
          $wholetype = $Awfif::memes-> {snnh} {whole};
          };#else
        if (((findbond ($Awfif::wsol-> {l} [ awsoadr ($nextinstance)] [2], $wholetype, wsbasetype ($nextinstance), $Awfif::memes-> {snnh} {model})))) {
          $thrmet = 't';
          $undecided = '';
          } #if
        else {

          &updatelog ($myli,'ae', 5, $file);
          $thrmet = mgparts ($myli, $nextinstance, $twso, \$undecided, trwsoadr ($Awfif::codelet-> {l} [$myli][21],-1), $grkwpr, \@$sactset);
# if threshold met then allow checking to proceed
          if ((!(findbond ($Awfif::wsol-> {l} [ awsoadr ($nextinstance)] [2], $wholetype, wsbasetype ($nextinstance), $Awfif::memes-> {snnh} {model}))) && (!$undecided) && ($thrmet)) {
            my ($afrom);
# didn't find any unresolved objects or fail the thresholding so

            $afrom = awsoadr ($nextinstance);
            $Awfif::wsol-> {l} [$afrom][2]
              = setupdesc ( ($swstype),
              ($Awfif::memes-> {snnh} {wsi} + $wholetype), #to match findbond
              $Awfif::memes-> {snnh} {model},
              $Awfif::wsol-> {l} [$afrom][2],
              $afrom);
# if only one for thresholding reduce its activity
            }
          elsif ((!(findbond ($Awfif::wsol-> {l} [ awsoadr ($nextinstance)] [2], $Awfif::memes-> {snnh} {dropopcheck}, wsbasetype ($nextinstance), $Awfif::memes-> {snnh} {model}))) && (!$thrmet)) {
            my ($afrom);
# otherwise switch to some other test add model descriptor saying no thresholding

            $afrom = awsoadr ($nextinstance);
            $Awfif::wsol-> {l} [$afrom][2]
              = setupdesc ( ($swstype),
              ($Awfif::memes-> {snnh} {wsi} + $Awfif::memes-> {snnh} {dropopcheck}), #to match findbond
              $Awfif::memes-> {snnh} {model},
              $Awfif::wsol-> {l} [$afrom][2],
              $afrom);
# if only one for thresholding reduce its activity
            };
          };
        };
      };#got target wso

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("$cdnx\n");
      if (defined ($kwp)) {
        print ("kwp($kwp) kwpr($kwpr) sactset($$sactset[0]) ");
        };#if
      };
    &clogstatx ();
    }# mgpartbuilder1
#
#<!-- end tag ssc -->
#
sub partevaluator1 {
    my ($myli, $kwp, $kwpr, $sactset) = @_;#The ignored parameters are required by the codelet calling architecture
    my ($ni,
    $grkwp, $grkwpr, $cdn, $cdnx);
#
# checked for merged workspaces

    $cdn = clogstat (\$cdnx);
    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("$cdn myli $myli kwp($kwp) kwpr($kwpr) ");
      &itcpoutput ($myli);
      };
# parts must use the full workspace

    $grkwp = $Awfif::wsbl->{wsoh}[$Awfif::memes->{currentwsbi}];
    $grkwpr = $Awfif::wsbl->{wsft}[$Awfif::memes->{currentwsbi}];
# choose a salient part from the workspace

    if ($Awfif::codelet->{l}[$myli][4] > 0) {
      $ni = $Awfif::codelet->{l}[$myli][4];
      if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
        &itwsoutput ( trwsoadr ($ni,1), $ni);
        };
# partedirman1
      if (!findbond ($Awfif::wsol-> {l} [ awsoadr ($ni)] [2], $ni, wsbasetype ($ni), $Awfif::memes-> {snnh} {partscategory})) {
# if model thresholding has failed lower energy

        if (
        ((!(findbond ($Awfif::wsol-> {l} [ awsoadr ($ni)] [2], $Awfif::memes-> {snnh} {stop}, wsbasetype ($ni), $Awfif::memes-> {snnh} {model}))) )
        && (findbond ($Awfif::wsol-> {l} [ awsoadr ($ni)] [2], $Awfif::memes-> {snnh} {dropthreshold}, wsbasetype ($ni), $Awfif::memes-> {snnh} {model}))
        && (findbond ($Awfif::wsol-> {l} [ awsoadr ($ni)] [2], $Awfif::memes-> {snnh} {dropopcheck}, wsbasetype ($ni), $Awfif::memes-> {snnh} {model}))
        ){
# atppenalty1

          $Awfif::memes-> {fatp} = $Awfif::memes-> {fatp} - $Awfif::memes-> {failatpr};
          };#if
# if the part is not marked as already whole call in a builder
        if (partwhole ($myli, $ni, $Awfif::memes-> {snnh} {whole}, $grkwp, $grkwpr, \@$sactset)) {

          $Awfif::clp = ();
          $Awfif::clp-> {log} = $Awfif::codelet-> {l} [$myli][13];
          $Awfif::clp-> {urgency} = ($Awfif::codelet-> {l} [$myli][3] * $Awfif::memes-> {blaunchm});
          if (defined ($Awfif::codelet-> {l}[$myli][19])) {
            $Awfif::clp-> {wsi} = $Awfif::codelet-> {l}[$myli][19];
            }#wsi set
          else {
            $Awfif::clp-> {wsi} = $Awfif::memes-> {currentwsbi};
            };
          $Awfif::clp-> {strategy} = "partbuilder";
          $Awfif::clp-> {bond}-> {ni} = $ni;
          &cdsubmitcodelet ($myli, \$Awfif::clp);
          if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {

            my ($pr);
            $pr = $Awfif::memes-> {snnih} {wsbasetype ($ni)};
            print ("partevaluator $pr is whole ");
            };
          }#got whole part
        else {
          if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {

            my ($pr);
            $pr = $Awfif::memes-> {snnih} {wsbasetype ($ni)};
            print ("partevaluator $pr not whole ");
            };
          };#else
        };#part is not whole yet
      }# got a pair to work on

    if ($Awfif::memes-> {trace} > $Awfif::memes-> {traceentry}) {
      print ("$cdnx\n");
      };
    &clogstatx ();
    }# partevaluator1
#
Market Centric Workshops
The Physics - Politics, Economics & Evolutionary Psychology
Politics, Economics & Evolutionary Psychology

Business Physics
Nature and nurture drive the business eco-system
Human nature
Emerging structure and dynamic forces of adaptation


integrating quality appropriate for each market
 
This page looks at schematic structures and their uses.  It discusses a number of examples:
  • Schematic ideas are recombined in creativity. 
  • Similarly designers take ideas and rules about materials and components and combine them. 
  • Schematic Recipes help to standardize operations. 
  • Modular components are combined into strategies for use in business plans and business models. 

As a working example it presents part of the contents and schematic details from the Adaptive Web Framework (AWF)'s operational plan. 

Finally it includes a section presenting our formal representation of schematic goals. 
Each goal has a series of associated complex adaptive system (CAS) strategy strings. 
These goals plus strings are detailed for various chess and business examples. 
Strategy
| Design |
This page uses an example to illustrate how:
  • A business can gain focus from targeting key customers,
  • Business planning activities performed by the whole organization can build awareness, empowerment and coherence. 
  • A program approach can ensure strategic alignment. 
Program Management
| Home

Profiles | Papers | Glossary | E-mail us