这是个用渐开线精确画直齿圆柱齿轮的例子

xcb

这个例子里面包含几个子程序，子程序这两天放上来。

原帖地址：http://www.ugufun.com/?p=77

$$ 定义参数：-----------------------------------------------------------------

NUMBER/RESP,R,RB,RA,RF,B,I,HA,HF,MAT(12),COL,CEN(3),P,FD,ZMIN
8 P9 K. k) s. G5 m9 Y2 zENTITY/RFC,SPLN1,SLL1,SL1,SPLN2,SLL2,SL2,LN1,ARCC,SOLIDZ,SOLID(200),CSYS0
STRING/DIR(50),FNAME(50),TEMP(100),COLO(10),JTYPES(10)

$$ ---------------------------------------------------------------------------
0 J) F2 l0 X, Z$$ 取文件目录和文件名---------------------------------------------------------

DIR=&PSPEC $$ 取出文件目录
ANS=LENF(DIR)
FNAME=SUBSTR(DIR,1,ANS-4,)+'.txt' $$ 取出文件名

$$ ---------------------------------------------------------------------------
8 h, l+ B; B* w& Y$ n( b$$ 默认值---------------------------------------------------------------------

M=2.5 $$ 模数
Z=20 $$ 齿数
: X: \- w7 J. Z* bA=20 $$ 压力角
% _2 x- S2 W5 E8 M* [' {TB=15 $$ 齿宽
% C+ Q% O- c# j! _4 f5 w5 p3 rHAC=1 $$ 齿顶高系数
4 [) \* [$ j9 {) Q& ZCC=0.25 $$ 顶隙系数
! D: Z/ U( m9 gXX=0 $$ 变位系数

$$ ---------------------------------------------------------------------------
" @8 n3 M, B0 V* x  G$$ 定义界面-------------------------------------------------------------------
L10:
PARAM/'请输入渐开线直齿圆柱齿轮的各项基本参数:','模数',M,'齿数',INT,Z,$
; }. G5 W8 n' n9 o  W2 ^# U'压力角',A,'齿宽',TB,'齿顶高系数',HAC,'齿侧间隙系数',CC,'变位系数',$
  [2 Y, H9 Y8 eXX,RESP
JUMP/L10:,TERM:,,,RESP

L20:
CHOOSE/'请选择齿轮键的形式:','平键','花键','无',RESP
5 n! |/ [  a. C% i* C1 p6 uJUMP/L10:,TERM:,,,L30:,L40:,L50:,RESP
L30:
JTYPE=1
; t) K+ t, x+ h0 R- sJUMP/L60:
L40:
/ [" o7 e3 ?. ~9 r. hJTYPE=2
JUMP/L60:
% W0 x1 E" R+ _: r% F' f* wL50:
6 d9 [2 M( g6 ^4 a9 H* WJTYPE=0
8 W6 `( y$ z% J( s- b7 l; @L60:

$$ ---------------------------------------------------------------------------
$$ 基本几何参数计算-----------------------------------------------------------

PI=3.1415926 $$ 圆周率
- F- z/ f/ f6 b/ p1 HR=M*Z/2 $$ 分度圆半径
9 M/ Y. d1 _/ T0 `9 o/ m, v& uRB=R*COSF(A) $$ 基圆半径
HA=M*(HAC+XX) $$ 齿顶高
HF=M*(HAC+CC-XX) $$ 齿根高
RA=R+HA $$ 齿顶圆半径
RF=R-HF $$ 齿根圆半径
- Q% S6 C3 @/ w7 S, H: s! z, qP=PI*M $$ 周节
+ O1 D9 f$ a3 xPB=PI*M*COSF(A) $$ 基节
6 h  z5 p% u1 L' z3 D: L+ SSS=PI*M/2+2*XX*M*SINF(A)/COSF(A) $$ 分度圆弧齿厚
. c9 U6 A' e+ A5 S0 i6 u- pFD=HA+HF $$ 全齿高
* y" M0 ?" D5 hZMIN=INTF(2*HAC/(SINF(A)*SINF(A)))+1 $$ 最小齿数
) ?- P; U) W' U3 ^* A: Z) a! LXMIN=HAC-Z*SINF(A)*SINF(A)/2 $$ 最小变位系数

$$ ---------------------------------------------------------------------------
$$ 画出齿轮-------------------------------------------------------------------

CALL/'SUB1',A,XX,M,R,RB,HA,HF,RA,RF,Z,RFC,SPLN1,SLL1,SL1,ARCC,SPLN2,SLL2,$
9 l$ \1 ~( S; P) I/ Y6 K+ l0 fSL2,LN1 $$ 调用渐开线子程序

SOLIDZ=SOLEXT/RFC,HEIGHT,TB,AXIS,0,0,1 $$ 拉伸齿根圆柱
SOLID(1)=SOLEXT/SPLN1,ARCC,SPLN2,SLL2,SL2,LN1,SL1,SLL1,HEIGHT,TB,AXIS,$
0,0,1 $$ 拉伸轮齿
MAT=MATRIX/XYROT,360/Z
- E3 D  ^. m7 {4 pI=1
LLL:
, M$ X/ J! s0 n+ h6 YIFTHEN/I<Z
SOLID(I+1)=TRANSF/MAT,SOLID(I) $$ 旋转拷贝轮齿
I=I+1
JUMP/LLL:
! _6 I- i4 [5 N% K& yENDIF

$$ ---------------------------------------------------------------------------
8 B6 P6 X8 n. T) b2 \+ i5 `$$ 画出键---------------------------------------------------------------------

IFTHEN/JTYPE==1
CALL/'SUB5',TB,SOLIDZ $$ 调用平键子程序
3 f$ ~% ]& W- q/ i9 O6 gELSEIF/JTYPE==2
CALL/'SUB11',TB,SOLIDZ $$ 调用花键子程序
ELSE
0 `5 U2 e, S/ V% u' u3 aENDIF

$$ ---------------------------------------------------------------------------
$$ 建立齿轮信息文件-----------------------------------------------------------

COL=&COLOR(SOLIDZ) $$ 取出实体颜色
CSYS0=&WCS
&WCS=&ABS
CEN=&CENTER(RFC) $$ 取出齿轮位置中心
&WCS=CSYS0

IFTHEN/JTYPE==0
JTYPES='无'
5 ^! ^$ R; m. m4 ?. M4 e3 hELSEIF/JTYPE==1
JTYPES='平键'
ELSE
JTYPES='花键'
0 j4 ]- b7 Y% O) U0 SENDIF

IFTHEN/COL==1
. k# k2 y- x( y. w8 x# fCOLO='BLUE'
7 A+ w$ Z8 O# u5 `$ o# B2 _ELSEIF/COL==2
COLO='GREEN'
ELSEIF/COL==3
' f3 m7 f! f9 OCOLO='CYAN'
ELSEIF/COL==4
9 G/ j' }0 e" N# W9 K& NCOLO='RED'
ELSEIF/COL==5
  ?- Z2 K& N- }  U2 L( OCOLO='MAGENT'
7 @" O+ p* f' J: K, c, V7 x: BELSEIF/COL==6
COLO='YELLOW'
+ Y. v; o$ P: _: y' TELSEIF/COL==7
COLO='WHITE'
7 ?. t7 Y9 c: }5 k7 \( \4 ]ELSEIF/COL==8
4 M- _- |1 ?% r* G, TCOLO='OLIVE'
ELSEIF/COL==9
+ t! m) j+ m! W( PCOLO='PINK'
ELSEIF/COL==10
* g% {6 r( a  c) N9 }! N) C! dCOLO='BROWN'
. G3 C) P$ I. b( {  r6 X$ rELSEIF/COL==11
. O$ O% P" t. V+ P: G4 V7 C: |COLO='ORANGE'
ELSEIF/COL==12
7 r2 q5 p" A& zCOLO='PURPLE'
5 M) F6 J" e- H2 wELSEIF/COL==13
COLO='DKRED'
ELSEIF/COL==14
0 N5 A! I$ l% b* ?COLO='AQUAMR'
: w" A) G6 y% p  v. K0 E$ YELSE
COLO='GRAY'
1 R. K: Q6 P4 Q2 ?3 g) WENDIF

FETCH/TXT,1,FNAME,IFERR,FL10:
9 e) t1 D  \3 r1 y/ C( k! i2 e8 ORESET/1
$ o. q1 g# i, M0 |3 RNUM1=1
FL40:
READ/1,IFEND,FL20:,TEMP
IFTHEN/TEMP=='#END#'
/ q6 `- Z2 ^5 @) A) ENUM1=NUM1+1
ENDIF
# M- L0 C) d2 z! A0 a( KJUMP/FL40:

FL10:
CREATE/TXT,1,FNAME
& D5 z& E/ x0 m1 O3 |/ JNUM1=1

FL20:
0 O# ~* q9 `. Y# D9 a3 B9 x0 YWRITE/1,'----------------------------------------------------------------- '
WRITE/1,'有问题，请到http://ugapi.com 论坛上提问! '
WRITE/1,' '
WRITE/1,'齿轮编号： ('+ISTR(NUM1)+') :'
5 \4 ?( S' W! r3 C$ F6 j. GWRITE/1,' '
WRITE/1,' 齿轮形式 : '+'渐开线直齿圆柱齿轮'
& K. w9 z; t( }" sWRITE/1,' 齿轮信息文件 : '+FNAME
WRITE/1,' 齿轮颜色 : '+COLO
0 U! |8 a  q8 C$ x0 B5 G7 H3 JWRITE/1,' 齿轮键的形式 : '+JTYPES
1 q4 [/ r$ F- l) aWRITE/1,' 齿轮中心坐标 ( X,Y,Z) : '
, d8 c" y. y% `1 y$ m1 SWRITE/1,' '+FSTR(CEN(1))+' ,'+FSTR(CEN(2))+$
' ,'+FSTR(CEN(3))
WRITE/1,' '
WRITE/1,' 齿轮几何参数 :'
4 ?/ g% n) O# c' S' O( s$ PWRITE/1,' 模数 : '+FSTR(M)
WRITE/1,' 齿数 : '+ISTR(Z)
WRITE/1,' 压力角 : '+FSTR(A)
WRITE/1,' 齿宽 : '+FSTR(TB)
WRITE/1,' 齿顶高系数 : '+FSTR(HAC)
WRITE/1,' 齿侧间隙系数 : '+FSTR(CC)
2 b3 L  r& ~6 Z3 c. g! E. O3 @, WWRITE/1,' 变位系数 : '+FSTR(XX)
9 c' z3 [9 H: z% K$ [& |$ EWRITE/1,' '
WRITE/1,' 分度圆直径 : '+FSTR(2*R)
- e: l7 Y% v! D4 N, V4 e2 ZWRITE/1,' 基圆直径 : '+FSTR(2*RB)
WRITE/1,' 齿顶高 : '+FSTR(HA)
6 p' g( [" a: X5 W8 P0 BWRITE/1,' 齿根高 : '+FSTR(HF)
) K# s1 s  A2 b: F; \' p+ fWRITE/1,' 齿顶圆直径 : '+FSTR(2*RA)
0 v& ~3 y- O8 NWRITE/1,' 齿根圆直径 : '+FSTR(2*RF)
WRITE/1,' 周节 : '+FSTR(P)
6 n8 L# t/ b6 O; r9 NWRITE/1,' 基节 : '+FSTR(PB)
/ M: r0 D2 A( J; `. T+ t3 H" W9 sWRITE/1,' 分度圆弧齿厚 : '+FSTR(SS)
2 a0 C7 `- ~; @% ]! `8 i: kWRITE/1,' 全齿高 : '+FSTR(FD)
" d$ Z1 S5 \  B9 b, W  HWRITE/1,' 最小齿数 : '+ISTR(ZMIN)
WRITE/1,' 最小变位系数 : '+FSTR(XMIN)
WRITE/1,' '
  \3 y. w' G2 y! @. R/ ]" |1 c; FWRITE/1,'#END#'

FILE/TXT,1
RESET/1
/ B( [. l" N5 EFPRINT/1 $$ 将齿轮信息显示在窗口上
FTERM/TXT,1

$$ ---------------------------------------------------------------------------
&WCS=CSYS0
& A8 M6 U  a2 LTERM:
HALT
: X; w' c1 @, ~$$ 建模结束-------------------------------------------------------------------

' J! i; T6 d/ u4 X0 }

ab1025950132

楼主直接把二次开发的程序给大家共享吧！

xcb

$$ 渐开线子程序_sub1
  X8 `. Y* S5 @+ k" r

$$ 传递参数-------------------------------------------------------------------

2 d: |1 W5 L6 o" B9 o' T; r7 qPROC/A,XX,M,R,RB,HA,HF,RA,RF,Z,RFC,SPLN1,SLL1,SL1,ARCC,SPLN2,SLL2,SL2,LN1

$$ ---------------------------------------------------------------------------


: z+ p' P% s1 |' {1 L$$ 定义参数-------------------------------------------------------------------

. y9 F( N2 m& n9 ?" x: ]) YNUMBER/A,XX,M,R,RB,RA,RF,B,I,HA,HF,Z,X(200),Y(200),MAT(12),NU,K1,K2
" O6 F; Q( g: ^% B! j0 @ENTITY/RFC,SPLN1,SL1,SPLN2,SL2,LN1,ARCC,P(200),PT(2),PTT(2),SLL1,SLL2

$$ ---------------------------------------------------------------------------


$$ 画出渐开线-----------------------------------------------------------------
( D6 Q' u; y$ n
# [& N4 Y* k" }7 T5 RPI=3.1415926
B=0
! o' ^9 z( W  t$ jI=1
RFC=CIRCLE/0,0,RF      $$ 画齿顶圆
L10:
X(I)=RB*COSF((SINF(B)/COSF(B))*180/PI-B)/COSF(B)  
Y(I)=RB*SINF((SINF(B)/COSF(B))*180/PI-B)/COSF(B)  
- u" r: o0 |: i4 r; x
IFTHEN/(RB/COSF(B))>RA
JUMP/L20:
/ l, s" M" u) V. B+ o+ CELSE
3 X6 k9 H  m0 A# gP(I)=POINT/X(I),Y(I)   $$ 渐开线上的点
I=I+1
4 k9 v; y4 t) P8 _( `4 gB=B+0.5
: r5 f9 }- z$ k5 K: ?" l8 WENDIF
JUMP/L10:

L20:
. ~3 G$ D$ y# ~6 Y+ Q3 @B=ACOSF(RB/RA)
+ [& D( O" W& ]X(I)=RB*COSF((SINF(B)/COSF(B))*180/PI-B)/COSF(B)
& b8 |+ b* P& ~# XY(I)=RB*SINF((SINF(B)/COSF(B))*180/PI-B)/COSF(B)
P(I)=POINT/X(I),Y(I)
, a: h) o2 O% g' dSPLN1=SPLINE/P(1..I)   $$ 轮齿一侧渐开线
3 z$ p$ ]* `: c5 l) {: n" h
+ g# [5 f5 v" _0 E& r) mIFTHEN/RB>RF
     PT(1)=POINT/RB,-(RB*RB-RF*RF)/(2*RF)
. V8 R5 f& S% V     SL1=FILLET/SPLN1,RFC,CENTER,PT(1),RADIUS,$
               (RB*RB-RF*RF)/(2*RF),NOTRIM
+ b! u" `0 K# p) F6 {& I5 OELSE
     NU1=SQRTF((RF+0.38*M)**2-RB**2)
     NU2=ATANF((NU1-0.38*M)/RB)
     NU3=(NU1-0.38*M)/RB*180/PI-NU2
     NU4=NU2+NU3-ACOSF(RB/(RF+0.38*M))
6 E& J: k0 q* O0 s" ]5 v# S! @     PT(1)=POINT/(RF+0.38*M)*COSF(NU4),(RF+0.38*M)*SINF(NU4)
& l0 K3 e+ x# |' u& j. @7 u     SL1=FILLET/SPLN1,RFC,CENTER,PT(1),RADIUS,0.38*M
     DELETE/RFC
     RFC=CIRCLE/0,0,RF
+ v6 b4 s  Y8 K, K. f! D% WENDIF                  $$ 轮齿一侧倒角圆

6 f* j4 W# ]$ W' N2 Z$ O  B2 EPTT(1)=POINT/ENDOF,XSMALL,SPLN1
PTT(2)=POINT/ENDOF,XLARGE,SL1
SLL1=LINE/PTT(1),PTT(2)$$ 轮齿一侧倒角圆与渐开线的连线
* l1 g: s: u6 _/ g; z
B=(SINF(ACOSF(RB/R))/COSF(ACOSF(RB/R)))*180/PI-ACOSF(RB/R)+$
# U4 b7 p0 g$ m0 L, Z1 o  90/Z+(2*XX*SINF(A)/COSF(A))*180/PI/Z
7 s$ e4 o1 b. aDELETE/PT(1)
PT(1)=POINT/0,0
# s- Q! n6 r# R+ X5 \9 tLN1=LINE/PT(1),ATANGL,B
, t; I6 c, R* G3 R( ZB=2*B-((SINF(ACOSF(RB/RA))/COSF(ACOSF(RB/RA)))*180/PI-ACOSF(RB/RA))
K1=ACOSF(RB/RA)
8 p  D, f- _7 V8 @; pK2=(SINF(K1)/COSF(K1))*180/PI-K1
$ h6 Y( `/ |4 f) q; uARCC=CIRCLE/0,0,RA,START,K2,END,B
MAT=MATRIX/MIRROR,LN1
SPLN2=TRANSF/MAT,SPLN1 $$ 轮齿另一侧渐开线
SL2=TRANSF/MAT,SL1     $$ 轮齿另一侧倒角圆
' }# D; P. \$ m; |SLL2=TRANSF/MAT,SLL1   $$ 轮齿另一侧倒角圆与渐开线的连线
DELETE/LN1,P(1..I),PT(1)

: c; P7 g+ g8 [  ]) Y  J. h8 OPT(1)=POINT/ENDOF,YLARGE,SL2
PT(2)=POINT/ENDOF,YSMALL,SL1
LN1=LINE/PT(1),PT(2)   $$ 齿根连线
DELETE/PT(1..2)
DELETE/PTT(1..2)
% {7 p. l2 r; NRETURN
/ o( \  }: l9 S) m4 k# A  j
$$ 返回-----------------------------------------------------------------------

xcb

/ y; F2 v  Y( Y# @+ ]$$ 渐开线子程序_sub5

$$ 传递参数-------------------------------------------------------------------

# F% C* U9 n4 L9 p0 W7 ]$ N# zPROC/TB,SOLIDZ

) m' A/ f# L, Q! q& Z$$ ---------------------------------------------------------------------------

( [: M4 L7 \) Q7 n$ c
8 z5 [/ x$ g, K; Q' x* v$$ 定义参数-------------------------------------------------------------------

! H/ U/ u+ b' B; U- qNUMBER/G1(3),MAT(12),RESP
ENTITY/CRH,OBJJ,OBJJ1,PTA,PTB,PTC,LNA,LNB,LNC,SOLIDD,SOLIDZ,SOLIDE
( V) ^5 r$ }; u+ R! M1 c
, A5 R; Y( k7 }' y/ v+ ?$$ ---------------------------------------------------------------------------

5 f6 ]7 J9 G, ?
$$ 输入界面参数---------------------------------------------------------------
* |) J6 Z/ [& h; o& h0 J# c7 ]
L70:
PARAM/'请输入键参数.','圆半径',RH,$
       '键高',HH,'键宽',HR,RESP
/ p; n7 g' @- W9 wJUMP/L70:,L80:,,,RESP
1 N% H2 d; C2 t: T9 t- l4 y0 f! i9 @
" B" p  p/ Q/ V' q$$ ---------------------------------------------------------------------------
& i; W6 }* G+ o& ?% a
" n: v) [$ P3 Q6 ]6 P
$$ 画出键---------------------------------------------------------------------
! T9 z  z/ @2 p# a3 |
& d9 V# r2 W5 X3 PBT=ASINF(HR/(2*RH))
% _: b  w1 L# FCRH=CIRCLE/0,0,RH,START,180,END,360-BT
6 A5 c; F" _6 L* }9 N" h1 p+ x$ TPTA=POINT/ENDOF,XLARGE,CRH
& Z. k% x  J2 _1 Z3 `G1=&POINT(PTA)
PTB=POINT/G1(1)+HH,G1(2)
0 H4 y+ B3 v. t, R  m% t4 iLNA=LINE/PTA,PTB
PTC=POINT/G1(1)+HH,0
$ T# S  \) s) O8 TLNB=LINE/PTB,PTC
& y: E5 h  |4 u7 x& L; }OBJJ=SPLINE/APPROX,DELETE,CRH,LNA,LNB
LNC=LINE/0,0,10,0
7 f4 \" ~6 E. U8 E0 gMAT=MATRIX/MIRROR,LNC
OBJJ1=TRANSF/MAT,OBJJ
4 F0 Z: C6 q# ^1 o" Y6 rSOLIDD=SOLEXT/OBJJ,OBJJ1,HEIGHT,TB,AXIS,0,0,1
: J: C- t0 Y) u+ O5 wSOLIDE=SUBTRA/SOLIDZ,WITH,SOLIDD

L80:
RETURN
5 n+ Y  M, d. B( j( r- X8 h: k7 W
3 S2 o; T1 x$ C: O$$ 返回-----------------------------------------------------------------------

xcb

$$ 渐开线子程序_sub11

$$ 传递参数-------------------------------------------------------------------

PROC/TB,SOLIDZ
2 c. l/ R2 r, m; |3 o9 K
  `0 w: h1 }- b  C$$ ---------------------------------------------------------------------------
  P/ {7 ?- X% b* e: x, v
+ L4 w& H0 m* g8 [
$$ ---------------------------------------------------------------------------
0 T0 d* r3 W* u; G5 f! \
: @4 z1 _5 y7 s2 Y- z6 A6 I3 ONUMBER/RESP,R,RB,RA,RF,B,I,HA,HF,MAT(12),BC,COL,CEN(3),P,FD,ZMIN
1 z4 ?0 z% }3 u0 ]" G( jENTITY/RFC,SPLN1,SLL1,SL1,SPLN2,SLL2,SL2,LN1,ARCC,SOLIDZ,SOLID(200),CSYS0,$
5 ~* `+ J# d6 ~3 E2 m' c) u9 C       SOLIDK,SOLIDL,SOLIDM

$$ ---------------------------------------------------------------------------
, s" f  @( d2 A+ U. O
  z$ w" M' u3 e/ D2 p
$$ 输入界面参数---------------------------------------------------------------

- ?) y" G+ `9 V, X% Z3 AL10:
: f- r" P+ J& g9 W! ePARAM/'请输入花键参数 ','模数',M,'齿数',INT,Z,'压力角',A,'齿顶高系数',HAC,$
      '齿侧间隙系数',CC,'变位系数',XX,RESP
5 A, h1 a( v6 _JUMP/L10:,TERM:,,,RESP

$$ ---------------------------------------------------------------------------
" ~6 c5 O2 b4 X

$$ 画出花键-------------------------------------------------------------------
& h1 r9 Z3 n7 H# o. H
PI=3.1415926
R=M*Z/2
5 }, R, S3 D7 q& E1 }  gRB=R*COSF(A)
HA=M*(HAC+XX)
HF=M*(HAC+CC-XX)
RA=R+HA
RF=R-HF
BC=0
P=PI*M
FD=HA+HF
ZMIN=INTF(2*HAC/(SINF(A)*SINF(A)))+1
/ Q& S+ j& J+ y
CALL/'SUB1',A,XX,M,R,RB,HA,HF,RA,RF,Z,RFC,SPLN1,SLL1,SL1,ARCC,SPLN2,SLL2,$
     SL2,LN1          $$ 调用渐开线子程序

, c1 g# U: M% P, b/ y9 tSOLIDM=SOLEXT/RFC,HEIGHT,TB,AXIS,0,0,1
SOLID(1)=SOLEXT/SPLN1,ARCC,SPLN2,SLL2,SL2,LN1,SL1,SLL1,HEIGHT,TB,AXIS,0,0,1
MAT=MATRIX/XYROT,360/Z
J=1
' O6 w2 ^. q0 p$ `LLL:
IFTHEN/J<Z
4 ^3 S2 K) V* _/ xSOLID(J+1)=TRANSF/MAT,SOLID(J)
) l2 a4 w5 P) d  W! |J=J+1
" Z) J' i0 z$ Y( K, F. D% A5 i9 uJUMP/LLL:
ENDIF

SOLIDK=SUBTRA/SOLIDZ,WITH,SOLIDM
8 `; l6 T" `* h% S0 lSOLIDL=SUBTRA/SOLIDK,WITH,SOLID(1..J)
TERM:
RETURN
; l' B% y& M+ c% u% B
$$ 返回-----------------------------------------------------------------------

xcb

这个是编译好的程序：大家可以试一下。
# ^* i- S8 d4 C6 t% v7 {4 f

6 Y& ^5 l; v" c5 ~. ?( N  Z