
(* lambda_14 (2) *)
<<cox.m
Print["\n\n             SALEM 14 (2)\n"]

(*---------------------------------Salem factor---------------------------*)

s = SmallSalems14[[2]]
qs = QEuler[s]
fs = Mat[s]

prime=7
ps = PrimeTwists[qs,fs,prime]
ps = Select[ps,CycloDim[GluePeriod[QTwist[qs,fs,#],fs]]<= 8&]
pa=ps[[1]]

prime=11
ps = PrimeTwists[qs,fs,prime]
ps = Select[ps,CycloDim[GluePeriod[QTwist[qs,fs,#],fs]]<= 8&]
pb = ps[[1]]

qs = QTwist[qs,fs,pa pb]
DiGlue[qs,fs]

GluePeriods[qs,fs]

(* Infeasible to glue due to lack of remaining room *)
Print["Cannot be glued due to ramification at 2, 5 etc. *)
Print["Cyclo 8 part must be twisted at 5, where it is not the identity "]

