[system] / trunk / pg / lib / Parser / List / Vector.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Parser/List/Vector.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 3209 Revision 3210
5package Parser::List::Vector; 5package Parser::List::Vector;
6use strict; use vars qw(@ISA); 6use strict; use vars qw(@ISA);
7@ISA = qw(Parser::List); 7@ISA = qw(Parser::List);
8 8
9# 9#
10# The basic List class does nearly everything. We only need this class 10# The basic List class does nearly everything.
11# for its name.
12# 11#
12
13#
14# Check that the coordinates are numbers (avoid <i+j+k>)
15#
16sub _check {
17 my $self = shift;
18 foreach my $x (@{$self->{coords}}) {
19 $self->{equation}->Error("Coordinates of Vector must be Numbers")
20 unless $x->isNumber;
21 }
22}
13 23
14my $ijk_string = ['i','j','k','0']; 24my $ijk_string = ['i','j','k','0'];
15my $ijk_TeX = ['\boldsymbol{i}','\boldsymbol{j}','\boldsymbol{k}','\boldsymbol(0)']; 25my $ijk_TeX = ['\boldsymbol{i}','\boldsymbol{j}','\boldsymbol{k}','\boldsymbol(0)'];
16 26
17sub ijk { 27sub ijk {

Legend:
Removed from v.3209  
changed lines
  Added in v.3210

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9