MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Update on Weinberg-Sallam model in super symmetry as E8xE8-> energy of split

  • To: mathgroup at smc.vnet.net
  • Subject: [mg70336] Re: Update on Weinberg-Sallam model in super symmetry as E8xE8-> energy of split
  • From: Roger Bagula <rlbagula at sbcglobal.net>
  • Date: Fri, 13 Oct 2006 01:30:44 -0400 (EDT)
  • References: <egl44b$53a$1@smc.vnet.net>

Roger Bagula wrote:

>I spent yesterday learning about super symmetric Higgs symmetry breaking 
>theory.
>
>
>
>  
>
Sorry about the spelling in the title, ha, ha...
The bonding  model for the "between " super symmetry model that comes to 
mind is the trigonal prism:

A120656            6by6 trigonal prism bonding graph matrix Markov:
this molecular structure is the major symmetry between the tetrahedron 
and cube:
characteristic polynomial:12 x^2 - 4 x^3 - 9 x^4 + x^6.

The problem with that is it puts the energy for the H+,H- state between 
the Z0 and W+,W-.
{-2,-2,0,0,1,3}
An alternative is the octahedral:

A120470            6X6 Matrix Markov of the octahedral bonding graph.

{-2., -2., 0., 0., 0., 4.}
That puts energy of Z0->H+,H-
and ?
 H0=3*MW~273.6 gev
Which is much higher than I would expect.
My idea was that they would be symmetrical like:
{-A,-B,-B,B,B,A}
So that
MH0=2*MZ0~ 182.3 gev
MH(+/-)=2*MW~160.6 gev
I have got a 6by6 bonding model that gives that as a cyclic bonding ( 
like benzene) :
{-2., -1., -1., 1., 1., 2.}->{Z0,W+,W-,H+,H-,H0}

A120462            6 X 6 Matrix Markov based on hexagon / benzene 
chemical bonding
 type Markov with characteristic polynomial : x^6-6*x^4+9*x^2-4.

Mathematica:
M = {{0, 1, 1, 1, 0, 0},
    {1, 0, 1, 0, 1, 0},
    {1, 1, 0, 0, 0, 1},
    {1, 0, 0, 0, 1, 1},
    {0, 1, 0, 1, 0, 1},
    {0, 0, 1, 1, 1, 0}}
v[1] = {0, 1, 1, 2, 3, 5}
v[n_] := v[n] = M.v[n - 1]
a = Table[Floor[v[n][[1]]], {n, 1, 50}]
Det[M - x*IdentityMatrix[6]]
Factor[%]
aaa = Table[x /. NSolve[Det[M - x*IdentityMatrix[6]] == 0, x][[
    n]], {n, 1, 6}]
Abs[aaa]
a1 = Table[N[a[[n]]/a[[n - 1]]], {n, 7, 50}]

I will not imply mine is better than nature,
so each of these possibility is about equally likely.


  • Prev by Date: Re: Automate datafitting to a series of parameterized function
  • Next by Date: Re: integrate an interpolated function
  • Previous by thread: Re: General--Simple Permutations
  • Next by thread: notebook window position