products/sources/formale sprachen/PVS/topology/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei:   Sprache: PVS

Original von: PVS©
vectors_cos[n: posnat]: THEORY
BEGIN

%                                      
%                                      .
%                                     / \
%                                   /    \
%                                 /       \
%                               /          \
%                      vc     /             \
%                           /                \    vb
%                         /                   \
%                       /                      \
%                     /                         \
%                   /                            \
%                 /                           ab  \
%               /                                  \
%               ------------------------------------ 
%                               va                   

  IMPORTING vectors, trig@trig_basic

  va,vb,vc,v0,v1,v2: VAR Vector[n]

  ab: VAR real

  cosines_law   : LEMMA
                     LET a = norm(va),
                         b = norm(vb),
                         c = norm(vc)
                     IN
                      vc = va - vb AND
                      a*b*cos(ab) = va*vb
                        IMPLIES
                           sq(c) = sq(a) + sq(b) - 2*a*b*cos(ab)


  IMPORTING trig@trig_inverses

  angle_exists: LEMMA (EXISTS ab:  LET  a = norm(va),
                                        b = norm(vb) IN
                              a*b*cos(ab) = va*vb)



  angle_between(u,v:Nz_vector[n]): real = arccos(u*v/(norm(u)*norm(v)))


  cosines_law_bnd : LEMMA
                     LET a = norm(va),
                         b = norm(vb),
                         c = norm(vc)
                     IN
                         vc = va - vb IMPLIES
                            sq(c) >= sq(a-b)

  cosines_law_ge : LEMMA
                     LET a = norm(va),
                         b = norm(vb),
                         c = norm(vc)
                     IN
                         vc = va - vb IMPLIES
                            c >= abs(a-b)


  cosines_law_le : LEMMA 
                     LET a = norm(va),
                         b = norm(vb),
                         c = norm(vc)
                     IN
                         vc = va - vb IMPLIES
                                 c <= a + b
 


END vectors_cos



¤ Dauer der Verarbeitung: 0.20 Sekunden  (vorverarbeitet)  ¤



zum Wurzelverzeichnis wechseln
Diese Quellcodebibliothek enthält Beispiele in vielen Programmiersprachen. Man kann per Verzeichnistruktur darin navigieren. Der Code wird farblich markiert angezeigt.
zum Wurzelverzeichnis wechseln
sprechenden Kalenders

Eigene Datei ansehen




Laden

Fehler beim Verzeichnis:


in der Quellcodebibliothek suchen

Die farbliche Syntaxdarstellung ist noch experimentell.


Bot Zugriff