The Mathematica Journal
Departments
Current Issue
Tricks of the Trade
In and Out
Riemann Surfaces IIc
The Mathematica Programmer
New Products
New Publications
Classifieds
Calendar
News Bulletins
Library
Editor's Pick
Mailbox
FAQ
Write Us
About the Journal
Staff and Contributors
Submissions
Subscriptions
Advertising
Back Issues
Home
Download This Issue

Researching QTM Properties with the QTS Toolkit

Make the Interferometer Oscillating

Introduce more marker states to produce oscillating interferometer graphs. For example, define a new QTM state q1 as

q1 = InitQTM[2,b,Interval[{-4,8}],{{-3,b[1]},{-1,b[1]},{1,b[1]},{3,b[1]},{5,b[1]},{7,b[1]}},9,h,-3]

in formatted form:

Rerun the step operator and compare with the previous results.

Check if T is Orthogonality Preserving

Provide numerical evidence, that T is orthogonality preserving (i.e., . For a strict mathematical proof, see [17].

Setup the adjoint step operator as TCADJ and perform
SameQ[FmtState[TC[TCADJ[u]], FmtState[TCADJ[TC[u]]]]] for u=Nest[TC,qc,n] and large n values.

Check if T is Distinct Path Generating

Provide numerical evidence that T is distinct path generating. For a strict mathematical proof, see [17].

Solution:

Show that QInner[u,TC[u]]=0.
Use u=Nest[TC,qc,n] for large n.
Do the same for TADJ.


Copyright © 2002 Wolfram Media, Inc. All rights reserved.

[Article Index][Prev Page][Next Page]