あー勿論
FindRoot[{K1[a,b]=0,K2[a,b]=0},{a,-1},{b,2}]
としてます。。。。。

サンプルプログラム載ってるサイトってないですかねえ・・・・。。。