Quad het?

I was wondering if it was possible to make a quad het? IE if I was to breed a Albino Pied to a axanthic Ghost (Just an example) would the offspring be het for 4 morphs?

Yes...

Im surprised no one has done that then.

When they do, they usually keep the offspring and breed them together. And generally don't publicize it. :D

Quote:

---

Originally Posted by Raverthug

Im surprised no one has done that then.

---

I am sure someone out there is trying, but if you breed a pair of quad hets together your chance of hitting the quad visual is 1 in 256. It wpould be a VERY long term project to eventually get the quad visual unless you are ridiculously lucky.

Can someone illustrate this? Or at least show me how to set it up?

You have to set up a punnet square for it. If you don't know how to run one go to www.geneticswizard.com. They will do it for you.

I'd love to have a pair of quad hets. But unfortunatly I don't expect to see any for sale soon or when we do for them to be within my price range. If I had the money to buy a snow male and a hypo stripe female and a hypo pied female to breed him to (the animals for these pairings actually exist) it would be a hard sell to breed them together and produce normal looking offspring when they could be bred to thier own types and produce clutches of 100% double homozygous. I don't think many would be willing to pay as much for a quad het as say for a hypo stripe or a hypo pied.

But the cool thing about having a pair of quadrouple hets would be the mind boggling variety they could produce. Sure it might take a lifetime to hit the 1 in 256 quadrouple recessive (if you could even tell by looking) but you could produce a huge variety of single, double, and even triple morphs. Also, the chance of each egg containing a non visual would fall to 81/256, less than 1 in 3.

Here is the Punnett for breeding quadrouple het albino (a), axanthic (x), stripe (s), and hypo (h) together:

Sorry, looks like the format changed since the version of my Excel to html Punnett macro that I was able to find.

Hi,

Part of the problem is we do not allow html code on the forum.

Here's a post I made after I finally aowrked out how to make the tables work.

Quote:

---

Originally Posted by dr del

Hi,

I think I've worked out how to use tables (it took me long enough :oops: ) on here - is this what you were trying to post?


If I've messed it up during the learning curve let me know and I'll try and fix it.

And here is the code to do it to save anyone else having the same problems I did;

[TABLE] |[B]PS[/B] |[B]Ps[/B] |[B]pS [/B]|[B]ps[/B]
[B]PS[/B] |PPSS |PPSs |PpSS |PpSs
[B]Ps [/B]|PPSs |PPss |PpSs |Ppss
[B]pS[/B] |PpSS |PpSs |ppSS |ppSs
[B]ps[/B] |PpSs |Ppss |ppSs |ppss[/TABLE]


dr del

---

As you can see I can't do the actual tables very well but that should at least let you get the format. :gj:


dr del

Trying the forum code. If this works if an admin could remove the html code in my post above it will make this thread not so wide.

Here is the modified Excel macro. Just select your area in the worksheet and then run this macro to get the forum code into the clipboard for paste. Now I just need a macro to fill in the worksheet!

Sub forumPunnett()
'
' forumPunnett Macro
' Ball-Pythons.net Forum Code Macro
'
Dim strBL As String
Dim strBR As String
Dim strTS As String
Dim strTE As String
Dim strBS As String
Dim strBE As String
Dim strDS As String
Dim strDE As String
Dim strTable As String
Dim strCell As String
Dim lgnFRow As Long
Dim lgnFColumn As Long
Dim lgnRows As Long
Dim lgnColumns As Long
Dim r As Long
Dim c As Long
Dim objTable As New DataObject

strBL = "["
strBR = "]"
strTS = strBL & "table" & strBR
strTE = strBL & "/table" & strBR
strBS = strBL & "b" & strBR
strBE = strBL & "/b" & strBR
strDS = "|"
strTable = ""
strCell = ""
lgnFRow = ActiveWindow.RangeSelection.Row
lgnFColumn = ActiveWindow.RangeSelection.Column
lgnRows = ActiveWindow.RangeSelection.Rows.Count
lgnColumns = ActiveWindow.RangeSelection.Columns.Count

For r = lgnFRow To lgnRows + lgnFRow - 1
For c = lgnFColumn To lgnColumns + lgnFColumn - 1
If r = lgnFRow Or c = lgnFColumn Then strCell = strBS & Cells(r, c).Value & strBE Else strCell = Cells(r, c).Value
strTable = strTable & strCell & strDS
Next c
strTable = Mid(strTable, 1, Len(strTable) - Len(strDS)) & Chr(13) & Chr(10)
Next r

strTable = strTS & strTable & strTE

objTable.SetText strTable
objTable.PutInClipboard
Set objTable = Nothing

'
End Sub