//本程序只給出了算法思想
//讀者可以自己完善本程序
Status Insert_BiThrTree(BiThrTree &T,BiThrTree &p,BiThrTree &x)
//在中序線索二叉樹T的結點p下插入子樹x
{
	if(!p->ltag&&!p->rtag) 
		return INFEASIBLE; //無法插入
	if(p->ltag) //x作為p的左子樹
	{
		s=p->lchild; //s為p的前驅
		p->ltag=Link;
		p->lchild=x;
		q=x;
		while(q->lchild) 
			q=q->lchild;
		q->lchild=s; //找到子樹中的最左結點,并修改其前驅指向s
		q=x;
		while(q->rchild) 
			q=q->rchild;
		q->rchild=p; //找到子樹中的最右結點,并修改其前驅指向p
	}
	else //x作為p的右子樹
	{
		s=p->rchild; //s為p的后繼
		p->rtag=Link;
		p->rchild=x;
		q=x;
		while(q->rchild) 
			q=q->rchild;
		q->rchild=s; //找到子樹中的最右結點,并修改其前驅指向s
		q=x;
		while(q->lchild) 
			q=q->lchild;
		q->lchild=p; //找到子樹中的最左結點,并修改其前驅指向p
	}
	return OK;
}//Insert_BiThrTree