data/example_A.r

### Three examples.

exA1 <- list(
  description = "https://www.nag.com/numeric/fl/nagdoc_fl22/xhtml/F08/f08pnf.xml",
  A = matrix(c(-3.97 -5.04i, -4.11 +3.70i, -0.34 +1.01i, 1.29 -0.86i,
                0.34 -1.50i,  1.52 -0.43i,  1.88 -5.38i, 3.36 +0.65i,
                3.31 -3.85i,  2.50 +3.45i,  0.88 -1.08i, 0.64 -1.48i,
               -1.10 +0.82i,  1.81 -1.59i,  3.25 +1.33i, 1.57 -3.44i),
             nrow = 4, byrow = T)
)

exA2 <- list(
  description = "https://www.nag.com/numeric/fl/nagdoc_fl22/xhtml/F08/f08paf.xml",
  A = matrix(c( 0.35,  0.45, -0.14, -0.17,
                0.09,  0.07, -0.54,  0.35,
               -0.44, -0.33, -0.03,  0.17,
                0.25, -0.32, -0.13,  0.11),
             nrow = 4, byrow = T)
)

exA3 <- list(
  description = "https://www.nag.com/numeric/fl/nagdoc_fl23/xhtml/F08/f08quf.xml",
  T = matrix(c(-6.0004 -6.9999i,  0.3637 -0.3656i, -0.1880 +0.4787i,  0.8785 -0.2539i,
                0.0000 +0.0000i, -5.0000 +2.0060i, -0.0307 -0.7217i, -0.2290 +0.1313i,
                0.0000 +0.0000i,  0.0000 +0.0000i,  7.9982 -0.9964i,  0.9357 +0.5359i,
                0.0000 +0.0000i,  0.0000 +0.0000i,  0.0000 +0.0000i,  3.0023 -3.9998i),
             nrow = 4, byrow = T),
  Q = matrix(c(-0.8347 -0.1364i, -0.0628 +0.3806i,  0.2765 -0.0846i, 0.0633 -0.2199i,
                0.0664 -0.2968i,  0.2365 +0.5240i, -0.5877 -0.4208i, 0.0835 +0.2183i,
               -0.0362 -0.3215i,  0.3143 -0.5473i,  0.0576 -0.5736i, 0.0057 -0.4058i,
                0.0086 +0.2958i, -0.3416 -0.0757i, -0.1900 -0.1600i, 0.8327 -0.1868i),
             nrow = 4, byrow = T)
)

exA4 <- list(
  description = "https://www.nag.com/numeric/fl/nagdoc_fl22/xhtml/F08/f08qgf.xml",
  T = matrix(c(0.7995, -0.1144,  0.0060,  0.0336,
               0.0000, -0.0994,  0.2478,  0.3474,
               0.0000, -0.6483, -0.0994,  0.2026,
               0.0000,  0.0000,  0.0000, -0.1007),
             nrow = 4, byrow = T),
  Q = matrix(c( 0.6551,  0.1037,  0.3450,  0.6641,
                0.5236, -0.5807, -0.6141, -0.1068,
               -0.5362, -0.3073, -0.2935,  0.7293,
                0.0956,  0.7467, -0.6463,  0.1249),
             nrow = 4, byrow = T)
)
snoweye/QZ documentation built on Sept. 12, 2023, 4:59 a.m.