(* ::Package:: *)

(* ::Text:: *)
(*Discriminant of (Subscript[\[CapitalDelta], R]^(1))  with respect to z*)



SubscriptBox[\(\[CapitalDelta]\), \(R\)], \((2)\)]\)= q^4 (2-q)^2 (1+p-q)^2 (4+p-q)^2 (5+p-q)^2 (8+2 p-q)^2 (4 p^3+27 q^2) (64+16 p-48 q-8 p q+13 q^2+p q^2-q^3)^2 (8+10 p+2 p^2-19 q-10 p q-p^2 q+8 q^2+2 p q^2-q^3)^2  (T (p,q))^3



T=(-5570035712 p^6-3120562176 p^7+8611430400 p^8+7208304640 p^9-2657639424 p^10-4849396224 p^11-1396431808 p^12+632055360 p^13+603260160 p^14+208389376 p^15+38988672 p^16+3931008 p^17+165120 p^18+768 p^19+576 p^20+64 p^21-133680857088 p^4 q-108313706496 p^5 q+198923255808 p^6 q+229745098752 p^7 q-35615121408 p^8 q-142920013824 p^9 q-58100094720 p^10 q+13042390080 p^11 q+19614615744 p^12 q+7852180224 p^13 q+1644239616 p^14 q+182821248 p^15 q+7773312 p^16 q-177408 p^17 q+13824 p^18 q+5184 p^19 q+192 p^20 q-1069446856704 p^2 q^2-1133871366144 p^3 q^2+1617155850240 p^4 q^2+2415088631808 p^5 q^2-200359673856 p^6 q^2-1651848806400 p^7 q^2-764435235840 p^8 q^2+158160400896 p^9 q^2+257060343696 p^10 q^2+90747153264 p^11 q^2+8920854996 p^12 q^2-3079222176 p^13 q^2-1188833520 p^14 q^2-173773440 p^15 q^2-11329608 p^16 q^2-173280 p^17 q^2-2496 p^18 q^2-2160 p^19 q^2-108 p^20 q^2-2851858284544 q^3-3736621547520 p q^3+5250597519360 p^2 q^3+9102344323072 p^3 q^3-2204221046784 p^4 q^3-9720722620416 p^5 q^3-4808116633600 p^6 q^3+851332521984 p^7 q^3+1459742315136 p^8 q^3+368339391776 p^9 q^3-71783428272 p^10 q^3-56781256668 p^11 q^3-10317236480 p^12 q^3+214552080 p^13 q^3+346457184 p^14 q^3+49122360 p^15 q^3+2209152 p^16 q^3-34512 p^17 q^3-176 p^18 q^3+324 p^19 q^3+7489349222400 q^4+9265049763840 p q^4-18567810514944 p^2 q^4-39561619046400 p^3 q^4-21576414265344 p^4 q^4+2287675932672 p^5 q^4+6169547427840 p^6 q^4+1378934644224 p^7 q^4-675312510576 p^8 q^4-421649916432 p^9 q^4-79412602863 p^10 q^4-1638164184 p^11 q^4+920168268 p^12 q^4-122086824 p^13 q^4-61804266 p^14 q^4-6199080 p^15 q^4-109092 p^16 q^4+5688 p^17 q^4-351 p^18 q^4-33415281770496 q^5-75215287615488 p q^5-47390326259712 p^2 q^5+9813541257216 p^3 q^5+22374757367808 p^4 q^5+6837299146752 p^5 q^5-1183922514432 p^6 q^5-689291078400 p^7 q^5+257391749640 p^8 q^5+222283503450 p^9 q^5+60144815208 p^10 q^5+8031066768 p^11 q^5+581641080 p^12 q^5+43102068 p^13 q^5+5376312 p^14 q^5+316416 p^15 q^5+480 p^16 q^5+162 p^17 q^5+61250255978496 q^6+143839293603840 p q^6+126541073154048 p^2 q^6+45408484392960 p^3 q^6-1198721789952 p^4 q^6-6244058288640 p^5 q^6-2117630711392 p^6 q^6-519738993792 p^7 q^6-218951447415 p^8 q^6-83427836336 p^9 q^6-18353150448 p^10 q^6-2161633272 p^11 q^6-120317590 p^12 q^6-2570592 p^13 q^6-154056 p^14 q^6-10936 p^15 q^6-27 p^16 q^6-56016404742144 q^7-124082174164992 p q^7-108838634127360 p^2 q^7-44884238376960 p^3 q^7-5251302964992 p^4 q^7+3125042814912 p^5 q^7+1713175929312 p^6 q^7+464848318608 p^7 q^7+100319245248 p^8 q^7+19403530032 p^9 q^7+2758533192 p^10 q^7+216387504 p^11 q^7+5440080 p^12 q^7-73584 p^13 q^7+9864 p^14 q^7+30408444149760 q^8+59806912610304 p q^8+47230904097792 p^2 q^8+17651789392896 p^3 q^8+1676998420320 p^4 q^8-1255535514432 p^5 q^8-612974472990 p^6 q^8-140508540000 p^7 q^8-20760550248 p^8 q^8-2272958904 p^9 q^8-179835078 p^10 q^8-6945240 p^11 q^8+26172 p^12 q^8-3456 p^13 q^8-10981582266368 q^9-17759541639168 p q^9-11371246394112 p^2 q^9-3159777274944 p^3 q^9+97695318480 p^4 q^9+359548240908 p^5 q^9+120738883088 p^6 q^9+20386398432 p^7 q^9+1918642200 p^8 q^9+101882148 p^9 q^9+3313752 p^10 q^9+54192 p^11 q^9+432 p^12 q^9+2917656216576 q^10+3462563450880 p q^10+1455391430352 p^2 q^10+119403032976 p^3 q^10-129479605938 p^4 q^10-61110119376 p^5 q^10-12900267984 p^6 q^10-1384797096 p^7 q^10-62024754 p^8 q^10-443232 p^9 q^10-37104 p^10 q^10-621594011520 q^11-471991548384 p q^11-58443871344 p^2 q^11+49270963740 p^3 q^11+24463441536 p^4 q^11+5440961808 p^5 q^11+655372056 p^6 q^11+33593664 p^7 q^11-23520 p^8 q^11+7920 p^9 q^11+107556479696 q^12+45846207120 p q^12-10823161011 p^2 q^12-9081180680 p^3 q^12-1961010804 p^4 q^12-208227840 p^5 q^12-11021888 p^6 q^12-64128 p^7 q^12-432 p^8 q^12-13696470360 q^13-2200216374 p q^13+2255637960 p^2 q^13+705296016 p^3 q^13+61151856 p^4 q^13+1485792 p^5 q^13+38208 p^6 q^13+1042774293 q^14-190649760 p q^14-211666704 p^2 q^14-24378048 p^3 q^14+97632 p^4 q^14-7104 p^5 q^14-21358464 q^15+38295216 p q^15+8818944 p^2 q^15-13824 p^3 q^15+576 p^4 q^15-2848944 q^16-1848768 p q^16-13056 p^2 q^16+167616 q^17+2304 p q^17+64 q^18);
