to NMR_Aufbau ; dies ist ein aUCBLogo-4.66 Programm hT perspective setLightAmbient rgb .4 .4 .4 setPenSize [6 6] enableCylinderLines ; enableRoundLineEnds rot=RGB 1 0 0 blau=HSB 240 .5 .5 zyan=RGB 0 1 1 grün=RGB 0 1 0 setPC blau l=400 r=200 Spule r l 6 back l/2 rt 90 fd r PD fd r/10 lt 90 fd l lt 90 fd r/10 PU Home rt 90 r2=r/8 l2=l/4 setPC grün Sphere r2*0.8 setPC rot setPenSize [4 4] Spule r2 l2 10 back l2/2 rt 90 fd r2 dhf=150 dc=r2 PD back r2 left 90 back r-l2/2+dhf Sphere 5 PU Home rt 90 fd l2/2 rt 90 fd r2 PD fd 3*r2 rt 90 fd l2/2-dc/2 PU fd dc PD fd r-dc/2+dhf Sphere 5 PU back r+dhf Kondensator 2*dc dc setPenSize [6 6] Home setPC blau fd l/4 rt 90 fd r*1.2 lt 90 Pfeil l/5 fd l/50 rt 90 fd l/30 setLabelSize (list l/8 l/8) setLabelAlign 1 1 Label [B] B=first LabelSize [B] fd B*3/2 rt 90 fd B/3 lt 90 setLabelSize (list l/16 l/16) Label [0] Home setPC rot rt 90 fd r*1.2 Pfeil l/5 lt 90 fd l/20 rt 90 setLabelSize (list l/8 l/8) setLabelAlign 1 1 Label [B] B=first LabelSize [B] fd B*3/2 rt 90 fd B/3 lt 90 setLabelSize (list l/16 l/16) Label [HF] Home setPC rot back r2*2 lt 90 fd r+dhf rt 180 setLabelSize (list l/8 l/8) setLabelAlign 0 0 Label [HF] ;sT rotatescene end to Spule r l N local [phi dphi o p] dphi=10 PU back l/2 right 90 fd r o=PosXYZ back r left 90 for [phi dphi n*360 dphi] [ rr dphi fd dphi/360*l/n right 90 fd r p=PosXYZ setPosXYZ o PD setPosXYZ p o=p PU back r left 90 ] back l/2 end to xcirc r down 90 fillCircle r uP 90 end to Kondensator r d PU back d/2 ; PolyStart ; PD circle r ; PolyEnd setFC zyan xcirc r enableCylinderLines disableRoundLineEnds setPenSize (list 2*r 2*r) PD back d/4 xcirc r PU fd d+d/4 xcirc r PD fd d/4 xcirc r PU back d/2 end to Pfeil l lSpitze=l/4 p=PosXYZ ori=Orientation PD fd l-lSpitze/2 PU back lSpitze/2 rt 90 fd l/10 SurfaceStart back l/10 dphi=10 for [r 1 0 -.1] [ for [phi 0 360 dphi] [ down dphi PD fd r*l/10 PU back r*l/10 ] lt 90 fd lSpitze/9 rt 90 SurfaceColumn ] SurfaceEnd setPosXYZ p setOrientation ori end