R version 2.15.3 (2013-03-01) -- "Security Blanket" Copyright (C) 2013 The R Foundation for Statistical Computing ISBN 3-900051-07-0 Platform: i386-w64-mingw32/i386 (32-bit) R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. Natural language support but running in an English locale R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. [Previously saved workspace restored] > # R SCRIPT FOR CONSTRUCTING PLOTS OF COST AND REVENUE CURVES > # OF THE FIRM UNDER OLIGOPOLY LEADING TO COURNOT EQUILIBRIUM > # > X <- -500:500 > Y <- -sqrt(25000000 - X^2)+5010 # BOTTOM PART OF A CIRCLE > Q <- X+600 # ADJUST THE SCALE OF X TO CREAT THE QUANTITY > AVC <- Y+10 # AVERAGE VARIABLE COST > TVC <- AVC*Q # CALCULATE TOTAL VARIABLE COST > FC <- 5000 # FIXED COST > TC <- TVC+FC # CALCULATE TOTAL COST > ATC <- TC/Q # CALCULATE AVERAGE TOTAL COST > MC <- diff(TVC) # CALCULATE MARGINAL COST > ISEQ <- 1:1000 # CONSTRUCT SEQUENCE OF INTEGERS FROM 1 to 1000 > PL <- rep(1,1000)*min(ATC) #MAKE A HORIZONTAL PRICE LINE TANGENT TO THE MINIMUM POINT > # ON THE AVERAGE TOTAL COST CURVE > DC <- 70-0.065*ISEQ # COLLUSIVE DEMAND CURVE OF COLLUDING FIRM > MR <- 70-0.13*ISEQ # MARGINAL REVENUE CURVE OF COLLUDING FIRM > cat(min(abs(MR-MC)));cat("\n") # WRITE MINIMUM OF ABSOLUTE VALUE OF THE 0.0234825 > # > MRMMC <- MR-MC # EXCESS OF MARGINAL REVENUE OVER MARGINAL COST TO SCREEN > MRMCMAT <- rbind(ISEQ, MR-MC) > cat(MRMCMAT) 1 34.94781 2 34.99791 3 35.0474 4 35.09628 5 35.14455 6 35.19222 7 35.23927 8 35.28572 9 35.33157 10 35.3768 11 35.42143 12 35.46545 13 35.50886 14 35.55166 15 35.59386 16 35.63545 17 35.67644 18 35.71681 19 35.75658 20 35.79574 21 35.8343 22 35.87225 23 35.90959 24 35.94632 25 35.98245 26 36.01797 27 36.05289 28 36.08719 29 36.1209 30 36.15399 31 36.18648 32 36.21836 33 36.24963 34 36.2803 35 36.31036 36 36.33982 37 36.36867 38 36.39691 39 36.42455 40 36.45158 41 36.478 42 36.50382 43 36.52903 44 36.55364 45 36.57764 46 36.60103 47 36.62382 48 36.646 49 36.66758 50 36.68855 51 36.70892 52 36.72868 53 36.74783 54 36.76638 55 36.78432 56 36.80166 57 36.81839 58 36.83452 59 36.85004 60 36.86495 61 36.87926 62 36.89297 63 36.90607 64 36.91856 65 36.93045 66 36.94174 67 36.95241 68 36.96249 69 36.97196 70 36.98082 71 36.98908 72 36.99673 73 37.00378 74 37.01023 75 37.01607 76 37.0213 77 37.02593 78 37.02996 79 37.03338 80 37.03619 81 37.03841 82 37.04001 83 37.04101 84 37.04141 85 37.04121 86 37.04039 87 37.03898 88 37.03696 89 37.03434 90 37.03111 91 37.02728 92 37.02284 93 37.0178 94 37.01215 95 37.0059 96 36.99905 97 36.99159 98 36.98353 99 36.97487 100 36.9656 101 36.95573 102 36.94525 103 36.93417 104 36.92249 105 36.9102 106 36.89731 107 36.88381 108 36.86971 109 36.85501 110 36.83971 111 36.8238 112 36.80728 113 36.79017 114 36.77245 115 36.75412 116 36.7352 117 36.71567 118 36.69553 119 36.6748 120 36.65346 121 36.63151 122 36.60897 123 36.58582 124 36.56207 125 36.53771 126 36.51275 127 36.48719 128 36.46102 129 36.43426 130 36.40689 131 36.37891 132 36.35034 133 36.32116 134 36.29137 135 36.26099 136 36.23 137 36.19841 138 36.16622 139 36.13342 140 36.10002 141 36.06602 142 36.03142 143 35.99621 144 35.96041 145 35.92399 146 35.88698 147 35.84936 148 35.81115 149 35.77233 150 35.7329 151 35.69288 152 35.65225 153 35.61102 154 35.56919 155 35.52675 156 35.48372 157 35.44008 158 35.39584 159 35.35099 160 35.30555 161 35.2595 162 35.21285 163 35.1656 164 35.11775 165 35.06929 166 35.02023 167 34.97058 168 34.92031 169 34.86945 170 34.81799 171 34.76592 172 34.71325 173 34.65998 174 34.60611 175 34.55164 176 34.49656 177 34.44089 178 34.38461 179 34.32773 180 34.27025 181 34.21216 182 34.15348 183 34.09419 184 34.03431 185 33.97382 186 33.91273 187 33.85104 188 33.78874 189 33.72585 190 33.66235 191 33.59826 192 33.53356 193 33.46826 194 33.40236 195 33.33586 196 33.26875 197 33.20105 198 33.13274 199 33.06384 200 32.99433 201 32.92422 202 32.85351 203 32.7822 204 32.71029 205 32.63777 206 32.56466 207 32.49094 208 32.41663 209 32.34171 210 32.26619 211 32.19007 212 32.11336 213 32.03604 214 31.95811 215 31.87959 216 31.80047 217 31.72075 218 31.64042 219 31.5595 220 31.47797 221 31.39585 222 31.31312 223 31.22979 224 31.14586 225 31.06133 226 30.9762 227 30.89048 228 30.80414 229 30.71721 230 30.62968 231 30.54155 232 30.45282 233 30.36349 234 30.27355 235 30.18302 236 30.09188 237 30.00015 238 29.90781 239 29.81488 240 29.72134 241 29.62721 242 29.53247 243 29.43714 244 29.3412 245 29.24466 246 29.14752 247 29.04979 248 28.95145 249 28.85251 250 28.75297 251 28.65284 252 28.5521 253 28.45076 254 28.34882 255 28.24628 256 28.14314 257 28.03941 258 27.93507 259 27.83013 260 27.72459 261 27.61845 262 27.51171 263 27.40437 264 27.29643 265 27.1879 266 27.07876 267 26.96902 268 26.85868 269 26.74774 270 26.6362 271 26.52407 272 26.41133 273 26.29799 274 26.18405 275 26.06952 276 25.95438 277 25.83864 278 25.7223 279 25.60537 280 25.48783 281 25.3697 282 25.25096 283 25.13162 284 25.01169 285 24.89115 286 24.77002 287 24.64829 288 24.52595 289 24.40302 290 24.27949 291 24.15535 292 24.03062 293 23.90529 294 23.77936 295 23.65283 296 23.5257 297 23.39797 298 23.26964 299 23.14071 300 23.01118 301 22.88105 302 22.75032 303 22.61899 304 22.48707 305 22.35454 306 22.22142 307 22.08769 308 21.95337 309 21.81844 310 21.68292 311 21.5468 312 21.41007 313 21.27275 314 21.13483 315 20.99631 316 20.85719 317 20.71747 318 20.57715 319 20.43623 320 20.29472 321 20.1526 322 20.00988 323 19.86657 324 19.72265 325 19.57814 326 19.43302 327 19.28731 328 19.141 329 18.99409 330 18.84658 331 18.69847 332 18.54976 333 18.40045 334 18.25054 335 18.10003 336 17.94893 337 17.79722 338 17.64492 339 17.49201 340 17.33851 341 17.18441 342 17.02971 343 16.8744 344 16.7185 345 16.56201 346 16.40491 347 16.24721 348 16.08891 349 15.93002 350 15.77052 351 15.61043 352 15.44973 353 15.28844 354 15.12655 355 14.96406 356 14.80096 357 14.63727 358 14.47299 359 14.3081 360 14.14261 361 13.97652 362 13.80984 363 13.64255 364 13.47467 365 13.30619 366 13.13711 367 12.96742 368 12.79714 369 12.62626 370 12.45479 371 12.28271 372 12.11003 373 11.93675 374 11.76288 375 11.58841 376 11.41333 377 11.23766 378 11.06139 379 10.88452 380 10.70705 381 10.52898 382 10.35031 383 10.17104 384 9.991175 385 9.810709 386 9.629644 387 9.44798 388 9.265717 389 9.082855 390 8.899394 391 8.715333 392 8.530673 393 8.345415 394 8.159557 395 7.9731 396 7.786043 397 7.598388 398 7.410133 399 7.22128 400 7.031827 401 6.841775 402 6.651124 403 6.459873 404 6.268024 405 6.075575 406 5.882527 407 5.68888 408 5.494634 409 5.299788 410 5.104344 411 4.9083 412 4.711657 413 4.514415 414 4.316574 415 4.118133 416 3.919093 417 3.719454 418 3.519216 419 3.318379 420 3.116942 421 2.914906 422 2.712271 423 2.509037 424 2.305203 425 2.100771 426 1.895739 427 1.690107 428 1.483877 429 1.277047 430 1.069618 431 0.8615892 432 0.6529614 433 0.4437344 434 0.2339081 435 0.0234825 436 -0.1875424 437 -0.3991667 438 -0.6113903 439 -0.8242132 440 -1.037635 441 -1.251657 442 -1.466278 443 -1.681498 444 -1.897318 445 -2.113737 446 -2.330756 447 -2.548373 448 -2.766591 449 -2.985407 450 -3.204823 451 -3.424839 452 -3.645454 453 -3.866668 454 -4.088482 455 -4.310895 456 -4.533908 457 -4.75752 458 -4.981732 459 -5.206543 460 -5.431954 461 -5.657964 462 -5.884574 463 -6.111783 464 -6.339592 465 -6.568001 466 -6.797009 467 -7.026616 468 -7.256823 469 -7.48763 470 -7.719036 471 -7.951042 472 -8.183648 473 -8.416853 474 -8.650658 475 -8.885062 476 -9.120066 477 -9.35567 478 -9.591874 479 -9.828677 480 -10.06608 481 -10.30408 482 -10.54269 483 -10.78189 484 -11.02169 485 -11.26209 486 -11.50309 487 -11.74469 488 -11.9869 489 -12.2297 490 -12.4731 491 -12.7171 492 -12.9617 493 -13.2069 494 -13.4527 495 -13.6991 496 -13.9461 497 -14.1937 498 -14.4419 499 -14.6907 500 -14.9401 501 -15.1901 502 -15.4407 503 -15.6919 504 -15.9437 505 -16.1961 506 -16.4491 507 -16.7027 508 -16.9569 509 -17.2117 510 -17.4671 511 -17.7231 512 -17.9797 513 -18.2369 514 -18.49471 515 -18.75311 516 -19.01211 517 -19.27171 518 -19.53191 519 -19.79272 520 -20.05412 521 -20.31612 522 -20.57872 523 -20.84193 524 -21.10573 525 -21.37014 526 -21.63514 527 -21.90075 528 -22.16695 529 -22.43376 530 -22.70117 531 -22.96917 532 -23.23778 533 -23.50699 534 -23.7768 535 -24.04721 536 -24.31822 537 -24.58983 538 -24.86204 539 -25.13485 540 -25.40826 541 -25.68227 542 -25.95689 543 -26.2321 544 -26.50792 545 -26.78433 546 -27.06135 547 -27.33896 548 -27.61718 549 -27.896 550 -28.17542 551 -28.45544 552 -28.73606 553 -29.01729 554 -29.29911 555 -29.58153 556 -29.86456 557 -30.14818 558 -30.43241 559 -30.71724 560 -31.00267 561 -31.2887 562 -31.57533 563 -31.86256 564 -32.1504 565 -32.43883 566 -32.72787 567 -33.0175 568 -33.30774 569 -33.59858 570 -33.89002 571 -34.18206 572 -34.47471 573 -34.76795 574 -35.0618 575 -35.35625 576 -35.6513 577 -35.94695 578 -36.2432 579 -36.54005 580 -36.83751 581 -37.13556 582 -37.43422 583 -37.73348 584 -38.03334 585 -38.3338 586 -38.63487 587 -38.93653 588 -39.2388 589 -39.54167 590 -39.84514 591 -40.14921 592 -40.45389 593 -40.75917 594 -41.06504 595 -41.37152 596 -41.67861 597 -41.98629 598 -42.29458 599 -42.60347 600 -42.91296 601 -43.22305 602 -43.53374 603 -43.84504 604 -44.15694 605 -44.46944 606 -44.78254 607 -45.09624 608 -45.41055 609 -45.72546 610 -46.04097 611 -46.35709 612 -46.6738 613 -46.99112 614 -47.30904 615 -47.62756 616 -47.94669 617 -48.26642 618 -48.58675 619 -48.90768 620 -49.22922 621 -49.55136 622 -49.8741 623 -50.19744 624 -50.52139 625 -50.84594 626 -51.17109 627 -51.49684 628 -51.8232 629 -52.15016 630 -52.47772 631 -52.80589 632 -53.13466 633 -53.46403 634 -53.794 635 -54.12458 636 -54.45576 637 -54.78754 638 -55.11993 639 -55.45292 640 -55.78651 641 -56.12071 642 -56.45551 643 -56.79091 644 -57.12692 645 -57.46353 646 -57.80074 647 -58.13856 648 -58.47698 649 -58.816 650 -59.15562 651 -59.49585 652 -59.83669 653 -60.17812 654 -60.52016 655 -60.86281 656 -61.20606 657 -61.54991 658 -61.89436 659 -62.23942 660 -62.58508 661 -62.93135 662 -63.27822 663 -63.6257 664 -63.97377 665 -64.32246 666 -64.67174 667 -65.02163 668 -65.37213 669 -65.72323 670 -66.07493 671 -66.42723 672 -66.78015 673 -67.13366 674 -67.48778 675 -67.8425 676 -68.19783 677 -68.55377 678 -68.9103 679 -69.26744 680 -69.62519 681 -69.98354 682 -70.3425 683 -70.70205 684 -71.06222 685 -71.42299 686 -71.78436 687 -72.14634 688 -72.50892 689 -72.87211 690 -73.2359 691 -73.6003 692 -73.9653 693 -74.33091 694 -74.69712 695 -75.06394 696 -75.43137 697 -75.79939 698 -76.16803 699 -76.53726 700 -76.90711 701 -77.27756 702 -77.64861 703 -78.02027 704 -78.39254 705 -78.76541 706 -79.13888 707 -79.51296 708 -79.88765 709 -80.26294 710 -80.63884 711 -81.01534 712 -81.39245 713 -81.77017 714 -82.14849 715 -82.52742 716 -82.90695 717 -83.28709 718 -83.66783 719 -84.04918 720 -84.43114 721 -84.8137 722 -85.19687 723 -85.58065 724 -85.96503 725 -86.35002 726 -86.73561 727 -87.12181 728 -87.50862 729 -87.89603 730 -88.28405 731 -88.67267 732 -89.06191 733 -89.45175 734 -89.84219 735 -90.23324 736 -90.6249 737 -91.01717 738 -91.41004 739 -91.80352 740 -92.19761 741 -92.5923 742 -92.9876 743 -93.38351 744 -93.78002 745 -94.17714 746 -94.57487 747 -94.9732 748 -95.37215 749 -95.7717 750 -96.17185 751 -96.57262 752 -96.97399 753 -97.37597 754 -97.77856 755 -98.18175 756 -98.58556 757 -98.98997 758 -99.39498 759 -99.80061 760 -100.2068 761 -100.6137 762 -101.0211 763 -101.4292 764 -101.8379 765 -102.2471 766 -102.657 767 -103.0675 768 -103.4786 769 -103.8903 770 -104.3026 771 -104.7155 772 -105.1291 773 -105.5432 774 -105.9579 775 -106.3733 776 -106.7893 777 -107.2058 778 -107.623 779 -108.0408 780 -108.4592 781 -108.8782 782 -109.2978 783 -109.7181 784 -110.1389 785 -110.5603 786 -110.9824 787 -111.405 788 -111.8283 789 -112.2522 790 -112.6767 791 -113.1018 792 -113.5275 793 -113.9538 794 -114.3807 795 -114.8083 796 -115.2364 797 -115.6652 798 -116.0945 799 -116.5245 800 -116.9551 801 -117.3863 802 -117.8181 803 -118.2505 804 -118.6835 805 -119.1171 806 -119.5514 807 -119.9862 808 -120.4217 809 -120.8578 810 -121.2945 811 -121.7318 812 -122.1697 813 -122.6082 814 -123.0473 815 -123.487 816 -123.9274 817 -124.3683 818 -124.8099 819 -125.2521 820 -125.6949 821 -126.1383 822 -126.5823 823 -127.0269 824 -127.4721 825 -127.918 826 -128.3644 827 -128.8115 828 -129.2592 829 -129.7075 830 -130.1564 831 -130.6059 832 -131.056 833 -131.5067 834 -131.9581 835 -132.41 836 -132.8626 837 -133.3158 838 -133.7696 839 -134.224 840 -134.679 841 -135.1346 842 -135.5908 843 -136.0477 844 -136.5052 845 -136.9632 846 -137.4219 847 -137.8812 848 -138.3411 849 -138.8017 850 -139.2628 851 -139.7245 852 -140.1869 853 -140.6499 854 -141.1135 855 -141.5777 856 -142.0425 857 -142.5079 858 -142.9739 859 -143.4406 860 -143.9079 861 -144.3757 862 -144.8442 863 -145.3133 864 -145.7831 865 -146.2534 866 -146.7243 867 -147.1959 868 -147.6681 869 -148.1408 870 -148.6142 871 -149.0882 872 -149.5629 873 -150.0381 874 -150.514 875 -150.9904 876 -151.4675 877 -151.9452 878 -152.4235 879 -152.9024 880 -153.382 881 -153.8621 882 -154.3429 883 -154.8243 884 -155.3063 885 -155.7889 886 -156.2721 887 -156.7559 888 -157.2404 889 -157.7255 890 -158.2111 891 -158.6974 892 -159.1843 893 -159.6719 894 -160.16 895 -160.6488 896 -161.1382 897 -161.6281 898 -162.1187 899 -162.61 900 -163.1018 901 -163.5942 902 -164.0873 903 -164.581 904 -165.0753 905 -165.5702 906 -166.0657 907 -166.5619 908 -167.0586 909 -167.556 910 -168.054 911 -168.5526 912 -169.0518 913 -169.5517 914 -170.0521 915 -170.5532 916 -171.0549 917 -171.5572 918 -172.0601 919 -172.5637 920 -173.0678 921 -173.5726 922 -174.078 923 -174.584 924 -175.0906 925 -175.5979 926 -176.1057 927 -176.6142 928 -177.1233 929 -177.633 930 -178.1433 931 -178.6543 932 -179.1659 933 -179.678 934 -180.1908 935 -180.7042 936 -181.2183 937 -181.7329 938 -182.2482 939 -182.7641 940 -183.2806 941 -183.7977 942 -184.3155 943 -184.8338 944 -185.3528 945 -185.8724 946 -186.3926 947 -186.9135 948 -187.4349 949 -187.957 950 -188.4797 951 -189.003 952 -189.5269 953 -190.0515 954 -190.5766 955 -191.1024 956 -191.6288 957 -192.1559 958 -192.6835 959 -193.2118 960 -193.7407 961 -194.2702 962 -194.8003 963 -195.331 964 -195.8624 965 -196.3944 966 -196.927 967 -197.4602 968 -197.994 969 -198.5285 970 -199.0636 971 -199.5993 972 -200.1356 973 -200.6726 974 -201.2101 975 -201.7483 976 -202.2871 977 -202.8266 978 -203.3666 979 -203.9073 980 -204.4486 981 -204.9905 982 -205.533 983 -206.0762 984 -206.6199 985 -207.1643 986 -207.7094 987 -208.255 988 -208.8013 989 -209.3481 990 -209.8956 991 -210.4438 992 -210.9925 993 -211.5419 994 -212.0919 995 -212.6425 996 -213.1937 997 -213.7456 998 -214.2981 999 -214.8512 1000 -215.4049> MPROF <- sum(MRMMC[1:435]) > cat(MPROF);cat("\n") 11702.33 > # > QMON <- 435 # QUANTITY PRODUCED BY COLLUDING FIRM > PMON <- DC[435] # PRICE RECEIVED BY COLLUDING FIRM > ATCMON <- ATC[435] # AVERAGE TOTAL COST OF COLLUDING FIRM > MONPROF <- (DC[QMON]-ATC[QMON])*QMON # COLLUDING FIRM'S PROFIT > cat(QMON);cat("\n") #WRITE VARIABLES TO THE SCREEN 435 > cat(PMON);cat("\n") 41.725 > cat(ATCMON);cat("\n") 29.79891 > cat(MONPROF);cat("\n") 5187.847 > # > # SEEK EQUILIBRIUM WITH SINGLE DEVIANT FIRM > # > ISALTDC <- PMON + (0.065/2)*435 # INTERSECTION OF DEVIANT FIRM'S DEMAND CURVE WITH PRICE AXIS > ALTDC <- ISALTDC -(0.065/2)*ISEQ # DEMAND CURVE OF THE DEVIANT FIRM > ALTMR <- ISALTDC -(0.13/2)*ISEQ # MARGINAL REVENUE CURVE OF SINGLE DEVIANT FIRM > AAMRMMC <- abs(ALTMR-MC) > AAMRMMCMAT <- rbind(ISEQ, ALTMR-MC) > cat(AAMRMMCMAT) 1 20.87531 2 20.99041 3 21.1049 4 21.21878 5 21.33205 6 21.44472 7 21.55677 8 21.66822 9 21.77907 10 21.8893 11 21.99893 12 22.10795 13 22.21636 14 22.32416 15 22.43136 16 22.53795 17 22.64394 18 22.74931 19 22.85408 20 22.95824 21 23.0618 22 23.16475 23 23.26709 24 23.36882 25 23.46995 26 23.57047 27 23.67039 28 23.76969 29 23.8684 30 23.96649 31 24.06398 32 24.16086 33 24.25713 34 24.3528 35 24.44786 36 24.54232 37 24.63617 38 24.72941 39 24.82205 40 24.91408 41 25.0055 42 25.09632 43 25.18653 44 25.27614 45 25.36514 46 25.45353 47 25.54132 48 25.6285 49 25.71508 50 25.80105 51 25.88642 52 25.97118 53 26.05533 54 26.13888 55 26.22182 56 26.30416 57 26.38589 58 26.46702 59 26.54754 60 26.62745 61 26.70676 62 26.78547 63 26.86357 64 26.94106 65 27.01795 66 27.09424 67 27.16991 68 27.24499 69 27.31946 70 27.39332 71 27.46658 72 27.53923 73 27.61128 74 27.68273 75 27.75357 76 27.8238 77 27.89343 78 27.96246 79 28.03088 80 28.09869 81 28.16591 82 28.23251 83 28.29851 84 28.36391 85 28.42871 86 28.49289 87 28.55648 88 28.61946 89 28.68184 90 28.74361 91 28.80478 92 28.86534 93 28.9253 94 28.98465 95 29.0434 96 29.10155 97 29.15909 98 29.21603 99 29.27237 100 29.3281 101 29.38323 102 29.43775 103 29.49167 104 29.54499 105 29.5977 106 29.64981 107 29.70131 108 29.75221 109 29.80251 110 29.85221 111 29.9013 112 29.94978 113 29.99767 114 30.04495 115 30.09162 116 30.1377 117 30.18317 118 30.22803 119 30.2723 120 30.31596 121 30.35901 122 30.40147 123 30.44332 124 30.48457 125 30.52521 126 30.56525 127 30.60469 128 30.64352 129 30.68176 130 30.71939 131 30.75641 132 30.79284 133 30.82866 134 30.86387 135 30.89849 136 30.9325 137 30.96591 138 30.99872 139 31.03092 140 31.06252 141 31.09352 142 31.12392 143 31.15371 144 31.18291 145 31.21149 146 31.23948 147 31.26686 148 31.29365 149 31.31983 150 31.3454 151 31.37038 152 31.39475 153 31.41852 154 31.44169 155 31.46425 156 31.48622 157 31.50758 158 31.52834 159 31.54849 160 31.56805 161 31.587 162 31.60535 163 31.6231 164 31.64025 165 31.65679 166 31.67273 167 31.68808 168 31.70281 169 31.71695 170 31.73049 171 31.74342 172 31.75575 173 31.76748 174 31.77861 175 31.78914 176 31.79906 177 31.80839 178 31.81711 179 31.82523 180 31.83275 181 31.83966 182 31.84598 183 31.85169 184 31.85681 185 31.86132 186 31.86523 187 31.86854 188 31.87124 189 31.87335 190 31.87485 191 31.87576 192 31.87606 193 31.87576 194 31.87486 195 31.87336 196 31.87125 197 31.86855 198 31.86524 199 31.86134 200 31.85683 201 31.85172 202 31.84601 203 31.8397 204 31.83279 205 31.82527 206 31.81716 207 31.80844 208 31.79913 209 31.78921 210 31.77869 211 31.76757 212 31.75586 213 31.74354 214 31.73061 215 31.71709 216 31.70297 217 31.68825 218 31.67292 219 31.657 220 31.64047 221 31.62335 222 31.60562 223 31.58729 224 31.56836 225 31.54883 226 31.5287 227 31.50798 228 31.48664 229 31.46471 230 31.44218 231 31.41905 232 31.39532 233 31.37099 234 31.34605 235 31.32052 236 31.29438 237 31.26765 238 31.24031 239 31.21238 240 31.18384 241 31.15471 242 31.12497 243 31.09464 244 31.0637 245 31.03216 246 31.00002 247 30.96729 248 30.93395 249 30.90001 250 30.86547 251 30.83034 252 30.7946 253 30.75826 254 30.72132 255 30.68378 256 30.64564 257 30.60691 258 30.56757 259 30.52763 260 30.48709 261 30.44595 262 30.40421 263 30.36187 264 30.31893 265 30.2754 266 30.23126 267 30.18652 268 30.14118 269 30.09524 270 30.0487 271 30.00157 272 29.95383 273 29.90549 274 29.85655 275 29.80702 276 29.75688 277 29.70614 278 29.6548 279 29.60287 280 29.55033 281 29.4972 282 29.44346 283 29.38912 284 29.33419 285 29.27865 286 29.22252 287 29.16579 288 29.10845 289 29.05052 290 28.99199 291 28.93285 292 28.87312 293 28.81279 294 28.75186 295 28.69033 296 28.6282 297 28.56547 298 28.50214 299 28.43821 300 28.37368 301 28.30855 302 28.24282 303 28.17649 304 28.10957 305 28.04204 306 27.97392 307 27.90519 308 27.83587 309 27.76594 310 27.69542 311 27.6243 312 27.55257 313 27.48025 314 27.40733 315 27.33381 316 27.25969 317 27.18497 318 27.10965 319 27.03373 320 26.95722 321 26.8801 322 26.80238 323 26.72407 324 26.64515 325 26.56564 326 26.48552 327 26.40481 328 26.3235 329 26.24159 330 26.15908 331 26.07597 332 25.99226 333 25.90795 334 25.82304 335 25.73753 336 25.65143 337 25.56472 338 25.47742 339 25.38951 340 25.30101 341 25.21191 342 25.12221 343 25.0319 344 24.941 345 24.84951 346 24.75741 347 24.66471 348 24.57141 349 24.47752 350 24.38302 351 24.28793 352 24.19223 353 24.09594 354 23.99905 355 23.90156 356 23.80346 357 23.70477 358 23.60549 359 23.5056 360 23.40511 361 23.30402 362 23.20234 363 23.10005 364 22.99717 365 22.89369 366 22.78961 367 22.68492 368 22.57964 369 22.47376 370 22.36729 371 22.26021 372 22.15253 373 22.04425 374 21.93538 375 21.82591 376 21.71583 377 21.60516 378 21.49389 379 21.38202 380 21.26955 381 21.15648 382 21.04281 383 20.92854 384 20.81368 385 20.69821 386 20.58214 387 20.46548 388 20.34822 389 20.23036 390 20.11189 391 19.99283 392 19.87317 393 19.75291 394 19.63206 395 19.5106 396 19.38854 397 19.26589 398 19.14263 399 19.01878 400 18.89433 401 18.76927 402 18.64362 403 18.51737 404 18.39052 405 18.26307 406 18.13503 407 18.00638 408 17.87713 409 17.74729 410 17.61684 411 17.4858 412 17.35416 413 17.22192 414 17.08907 415 16.95563 416 16.82159 417 16.68695 418 16.55172 419 16.41588 420 16.27944 421 16.14241 422 16.00477 423 15.86654 424 15.7277 425 15.58827 426 15.44824 427 15.30761 428 15.16638 429 15.02455 430 14.88212 431 14.73909 432 14.59546 433 14.45123 434 14.30641 435 14.16098 436 14.01496 437 13.86833 438 13.72111 439 13.57329 440 13.42486 441 13.27584 442 13.12622 443 12.976 444 12.82518 445 12.67376 446 12.52174 447 12.36913 448 12.21591 449 12.06209 450 11.90768 451 11.75266 452 11.59705 453 11.44083 454 11.28402 455 11.1266 456 10.96859 457 10.80998 458 10.65077 459 10.49096 460 10.33055 461 10.16954 462 10.00793 463 9.845717 464 9.682908 465 9.519499 466 9.355491 467 9.190884 468 9.025677 469 8.85987 470 8.693464 471 8.526458 472 8.358852 473 8.190647 474 8.021842 475 7.852438 476 7.682434 477 7.51183 478 7.340626 479 7.168823 480 6.99642 481 6.823417 482 6.649815 483 6.475612 484 6.30081 485 6.125409 486 5.949407 487 5.772806 488 5.595605 489 5.417804 490 5.239403 491 5.060402 492 4.880801 493 4.700601 494 4.519801 495 4.3384 496 4.1564 497 3.9738 498 3.7906 499 3.6068 500 3.4224 501 3.2374 502 3.0518 503 2.8656 504 2.6788 505 2.4914 506 2.3034 507 2.114799 508 1.925599 509 1.735798 510 1.545398 511 1.354397 512 1.162796 513 0.9705952 514 0.7777939 515 0.5843925 516 0.3903908 517 0.1957888 518 0.0005866574 519 -0.1952158 520 -0.3916185 521 -0.5886216 522 -0.7862249 523 -0.9844286 524 -1.183233 525 -1.382637 526 -1.582642 527 -1.783247 528 -1.984453 529 -2.186259 530 -2.388665 531 -2.591672 532 -2.79528 533 -2.999488 534 -3.204297 535 -3.409706 536 -3.615715 537 -3.822326 538 -4.029536 539 -4.237348 540 -4.44576 541 -4.654773 542 -4.864386 543 -5.074601 544 -5.285415 545 -5.496831 546 -5.708848 547 -5.921465 548 -6.134683 549 -6.348502 550 -6.562921 551 -6.777942 552 -6.993563 553 -7.209785 554 -7.426609 555 -7.644033 556 -7.862058 557 -8.080684 558 -8.299911 559 -8.519739 560 -8.740168 561 -8.961199 562 -9.18283 563 -9.405062 564 -9.627896 565 -9.851331 566 -10.07537 567 -10.3 568 -10.52524 569 -10.75108 570 -10.97752 571 -11.20456 572 -11.43221 573 -11.66045 574 -11.8893 575 -12.11875 576 -12.3488 577 -12.57945 578 -12.8107 579 -13.04255 580 -13.27501 581 -13.50806 582 -13.74172 583 -13.97598 584 -14.21084 585 -14.4463 586 -14.68237 587 -14.91903 588 -15.1563 589 -15.39417 590 -15.63264 591 -15.87171 592 -16.11139 593 -16.35167 594 -16.59254 595 -16.83402 596 -17.07611 597 -17.31879 598 -17.56208 599 -17.80597 600 -18.05046 601 -18.29555 602 -18.54124 603 -18.78754 604 -19.03444 605 -19.28194 606 -19.53004 607 -19.77874 608 -20.02805 609 -20.27796 610 -20.52847 611 -20.77959 612 -21.0313 613 -21.28362 614 -21.53654 615 -21.79006 616 -22.04419 617 -22.29892 618 -22.55425 619 -22.81018 620 -23.06672 621 -23.32386 622 -23.5816 623 -23.83994 624 -24.09889 625 -24.35844 626 -24.61859 627 -24.87934 628 -25.1407 629 -25.40266 630 -25.66522 631 -25.92839 632 -26.19216 633 -26.45653 634 -26.7215 635 -26.98708 636 -27.25326 637 -27.52004 638 -27.78743 639 -28.05542 640 -28.32401 641 -28.59321 642 -28.86301 643 -29.13341 644 -29.40442 645 -29.67603 646 -29.94824 647 -30.22106 648 -30.49448 649 -30.7685 650 -31.04312 651 -31.31835 652 -31.59419 653 -31.87062 654 -32.14766 655 -32.42531 656 -32.70356 657 -32.98241 658 -33.26186 659 -33.54192 660 -33.82258 661 -34.10385 662 -34.38572 663 -34.6682 664 -34.95127 665 -35.23496 666 -35.51924 667 -35.80413 668 -36.08963 669 -36.37573 670 -36.66243 671 -36.94973 672 -37.23765 673 -37.52616 674 -37.81528 675 -38.105 676 -38.39533 677 -38.68627 678 -38.9778 679 -39.26994 680 -39.56269 681 -39.85604 682 -40.15 683 -40.44455 684 -40.73972 685 -41.03549 686 -41.33186 687 -41.62884 688 -41.92642 689 -42.22461 690 -42.5234 691 -42.8228 692 -43.1228 693 -43.42341 694 -43.72462 695 -44.02644 696 -44.32887 697 -44.63189 698 -44.93553 699 -45.23976 700 -45.54461 701 -45.85006 702 -46.15611 703 -46.46277 704 -46.77004 705 -47.07791 706 -47.38638 707 -47.69546 708 -48.00515 709 -48.31544 710 -48.62634 711 -48.93784 712 -49.24995 713 -49.56267 714 -49.87599 715 -50.18992 716 -50.50445 717 -50.81959 718 -51.13533 719 -51.45168 720 -51.76864 721 -52.0862 722 -52.40437 723 -52.72315 724 -53.04253 725 -53.36252 726 -53.68311 727 -54.00431 728 -54.32612 729 -54.64853 730 -54.97155 731 -55.29517 732 -55.61941 733 -55.94425 734 -56.26969 735 -56.59574 736 -56.9224 737 -57.24967 738 -57.57754 739 -57.90602 740 -58.23511 741 -58.5648 742 -58.8951 743 -59.22601 744 -59.55752 745 -59.88964 746 -60.22237 747 -60.5557 748 -60.88965 749 -61.2242 750 -61.55935 751 -61.89512 752 -62.23149 753 -62.56847 754 -62.90606 755 -63.24425 756 -63.58306 757 -63.92247 758 -64.26248 759 -64.60311 760 -64.94434 761 -65.28618 762 -65.62863 763 -65.97169 764 -66.31535 765 -66.65962 766 -67.00451 767 -67.34999 768 -67.69609 769 -68.0428 770 -68.39011 771 -68.73803 772 -69.08656 773 -69.4357 774 -69.78545 775 -70.1358 776 -70.48677 777 -70.83834 778 -71.19052 779 -71.54331 780 -71.89671 781 -72.25071 782 -72.60533 783 -72.96056 784 -73.31639 785 -73.67283 786 -74.02988 787 -74.38754 788 -74.74581 789 -75.10469 790 -75.46418 791 -75.82428 792 -76.18499 793 -76.5463 794 -76.90823 795 -77.27076 796 -77.63391 797 -77.99766 798 -78.36203 799 -78.727 800 -79.09258 801 -79.45878 802 -79.82558 803 -80.19299 804 -80.56101 805 -80.92965 806 -81.29889 807 -81.66874 808 -82.0392 809 -82.41028 810 -82.78196 811 -83.15425 812 -83.52716 813 -83.90067 814 -84.2748 815 -84.64953 816 -85.02488 817 -85.40083 818 -85.7774 819 -86.15458 820 -86.53237 821 -86.91077 822 -87.28978 823 -87.6694 824 -88.04963 825 -88.43047 826 -88.81193 827 -89.19399 828 -89.57667 829 -89.95996 830 -90.34386 831 -90.72837 832 -91.11349 833 -91.49922 834 -91.88557 835 -92.27252 836 -92.66009 837 -93.04827 838 -93.43706 839 -93.82647 840 -94.21648 841 -94.60711 842 -94.99835 843 -95.3902 844 -95.78266 845 -96.17574 846 -96.56942 847 -96.96372 848 -97.35864 849 -97.75416 850 -98.1503 851 -98.54705 852 -98.94441 853 -99.34238 854 -99.74097 855 -100.1402 856 -100.54 857 -100.9404 858 -101.3414 859 -101.7431 860 -102.1454 861 -102.5482 862 -102.9517 863 -103.3558 864 -103.7606 865 -104.1659 866 -104.5718 867 -104.9784 868 -105.3856 869 -105.7933 870 -106.2017 871 -106.6107 872 -107.0204 873 -107.4306 874 -107.8415 875 -108.2529 876 -108.665 877 -109.0777 878 -109.491 879 -109.9049 880 -110.3195 881 -110.7346 882 -111.1504 883 -111.5668 884 -111.9838 885 -112.4014 886 -112.8196 887 -113.2384 888 -113.6579 889 -114.078 890 -114.4986 891 -114.9199 892 -115.3418 893 -115.7644 894 -116.1875 895 -116.6113 896 -117.0357 897 -117.4606 898 -117.8862 899 -118.3125 900 -118.7393 901 -119.1667 902 -119.5948 903 -120.0235 904 -120.4528 905 -120.8827 906 -121.3132 907 -121.7444 908 -122.1761 909 -122.6085 910 -123.0415 911 -123.4751 912 -123.9093 913 -124.3442 914 -124.7796 915 -125.2157 916 -125.6524 917 -126.0897 918 -126.5276 919 -126.9662 920 -127.4053 921 -127.8451 922 -128.2855 923 -128.7265 924 -129.1681 925 -129.6104 926 -130.0532 927 -130.4967 928 -130.9408 929 -131.3855 930 -131.8308 931 -132.2768 932 -132.7234 933 -133.1705 934 -133.6183 935 -134.0667 936 -134.5158 937 -134.9654 938 -135.4157 939 -135.8666 940 -136.3181 941 -136.7702 942 -137.223 943 -137.6763 944 -138.1303 945 -138.5849 946 -139.0401 947 -139.496 948 -139.9524 949 -140.4095 950 -140.8672 951 -141.3255 952 -141.7844 953 -142.244 954 -142.7041 955 -143.1649 956 -143.6263 957 -144.0884 958 -144.551 959 -145.0143 960 -145.4782 961 -145.9427 962 -146.4078 963 -146.8735 964 -147.3399 965 -147.8069 966 -148.2745 967 -148.7427 968 -149.2115 969 -149.681 970 -150.1511 971 -150.6218 972 -151.0931 973 -151.5651 974 -152.0376 975 -152.5108 976 -152.9846 977 -153.4591 978 -153.9341 979 -154.4098 980 -154.8861 981 -155.363 982 -155.8405 983 -156.3187 984 -156.7974 985 -157.2768 986 -157.7569 987 -158.2375 988 -158.7188 989 -159.2006 990 -159.6831 991 -160.1663 992 -160.65 993 -161.1344 994 -161.6194 995 -162.105 996 -162.5912 997 -163.0781 998 -163.5656 999 -164.0537 1000 -164.5424> # > QALT <- 518 # ENTER THE QUANTITY PRODUCED BY DEVIANT FIRM --- VALUE OBTAINED > # BY PRINTING OUT ABOVE AND LOOKING AT ABSOLUTE VALUE OF THE EXCESS > # OF MARGINAL REVENUE OVER MARGINAL COST FOR EACH OUTPUT > PALT <- ALTDC[QALT] # CALCULATE SELLING PRICE CHOSEN BY DEVIANT FIRM > ATCALT <- ATC[QALT] # CALCULATE DEVIANT FIRM'S AVERAGE TOTAL COST > ALTPROF <- (PALT-ATCALT)*QALT # CALCULATE PROFIT OF DEVIANT FIRM > PROFOFIRM <- (PALT-ATCMON)*QMON # CALCULATE PROFIT OF OTHER FIRM > OALOSS <- (2*MONPROF)-ALTPROF-PROFOFIRM # CALCULATE COMBINED LOSS OF THE TWO > # FIRMS AS A RESULT OF THE DEVIANT FIRM'S ACTIONS > cat(QALT);cat("\n") # PRINT OUT THE ABOVE VARIABLES RESULTING FROM DEVIATION 518 > cat(PALT);cat("\n") 39.0275 > cat(ATCALT);cat("\n") 28.13263 > cat(ALTPROF);cat("\n") 5643.544 > cat(PROFOFIRM);cat("\n") 4014.435 > cat(OALOSS);cat("\n") 717.7157 > > # > # SEEK COURNOT EQUILIBRIUM > # > DCCRN <- (70 - (.065/2)*ISEQ) - (.065/2)*ISEQ # FIRM'S DEMAND CURVE UNDER COURNOT EQUILIBRIUM > MRCRN <- (70 - (.065/2)*ISEQ) - .065*ISEQ # FIRM'S MARGINAL REVENUE CURVE UNDER COURNOT EQLM. > # > CRNMRMCMAT <- rbind(ISEQ, MRCRN-MC) > cat(CRNMRMCMAT) 1 34.98031 2 35.06291 3 35.1449 4 35.22628 5 35.30705 6 35.38722 7 35.46677 8 35.54572 9 35.62407 10 35.7018 11 35.77893 12 35.85545 13 35.93136 14 36.00666 15 36.08136 16 36.15545 17 36.22894 18 36.30181 19 36.37408 20 36.44574 21 36.5168 22 36.58725 23 36.65709 24 36.72632 25 36.79495 26 36.86297 27 36.93039 28 36.99719 29 37.0634 30 37.12899 31 37.19398 32 37.25836 33 37.32213 34 37.3853 35 37.44786 36 37.50982 37 37.57117 38 37.63191 39 37.69205 40 37.75158 41 37.8105 42 37.86882 43 37.92653 44 37.98364 45 38.04014 46 38.09603 47 38.15132 48 38.206 49 38.26008 50 38.31355 51 38.36642 52 38.41868 53 38.47033 54 38.52138 55 38.57182 56 38.62166 57 38.67089 58 38.71952 59 38.76754 60 38.81495 61 38.86176 62 38.90797 63 38.95357 64 38.99856 65 39.04295 66 39.08674 67 39.12991 68 39.17249 69 39.21446 70 39.25582 71 39.29658 72 39.33673 73 39.37628 74 39.41523 75 39.45357 76 39.4913 77 39.52843 78 39.56496 79 39.60088 80 39.63619 81 39.67091 82 39.70501 83 39.73851 84 39.77141 85 39.80371 86 39.83539 87 39.86648 88 39.89696 89 39.92684 90 39.95611 91 39.98478 92 40.01284 93 40.0403 94 40.06715 95 40.0934 96 40.11905 97 40.14409 98 40.16853 99 40.19237 100 40.2156 101 40.23823 102 40.26025 103 40.28167 104 40.30249 105 40.3227 106 40.34231 107 40.36131 108 40.37971 109 40.39751 110 40.41471 111 40.4313 112 40.44728 113 40.46267 114 40.47745 115 40.49162 116 40.5052 117 40.51817 118 40.53053 119 40.5423 120 40.55346 121 40.56401 122 40.57397 123 40.58332 124 40.59207 125 40.60021 126 40.60775 127 40.61469 128 40.62102 129 40.62676 130 40.63189 131 40.63641 132 40.64034 133 40.64366 134 40.64637 135 40.64849 136 40.65 137 40.65091 138 40.65122 139 40.65092 140 40.65002 141 40.64852 142 40.64642 143 40.64371 144 40.64041 145 40.63649 146 40.63198 147 40.62686 148 40.62115 149 40.61483 150 40.6079 151 40.60038 152 40.59225 153 40.58352 154 40.57419 155 40.56425 156 40.55372 157 40.54258 158 40.53084 159 40.51849 160 40.50555 161 40.492 162 40.47785 163 40.4631 164 40.44775 165 40.43179 166 40.41523 167 40.39808 168 40.38031 169 40.36195 170 40.34299 171 40.32342 172 40.30325 173 40.28248 174 40.26111 175 40.23914 176 40.21656 177 40.19339 178 40.16961 179 40.14523 180 40.12025 181 40.09466 182 40.06848 183 40.04169 184 40.01431 185 39.98632 186 39.95773 187 39.92854 188 39.89874 189 39.86835 190 39.83735 191 39.80576 192 39.77356 193 39.74076 194 39.70736 195 39.67336 196 39.63875 197 39.60355 198 39.56774 199 39.53134 200 39.49433 201 39.45672 202 39.41851 203 39.3797 204 39.34029 205 39.30027 206 39.25966 207 39.21844 208 39.17663 209 39.13421 210 39.09119 211 39.04757 212 39.00336 213 38.95854 214 38.91311 215 38.86709 216 38.82047 217 38.77325 218 38.72542 219 38.677 220 38.62797 221 38.57835 222 38.52812 223 38.47729 224 38.42586 225 38.37383 226 38.3212 227 38.26798 228 38.21414 229 38.15971 230 38.10468 231 38.04905 232 37.99282 233 37.93599 234 37.87855 235 37.82052 236 37.76188 237 37.70265 238 37.64281 239 37.58238 240 37.52134 241 37.45971 242 37.39747 243 37.33464 244 37.2712 245 37.20716 246 37.14252 247 37.07729 248 37.01145 249 36.94501 250 36.87797 251 36.81034 252 36.7421 253 36.67326 254 36.60382 255 36.53378 256 36.46314 257 36.39191 258 36.32007 259 36.24763 260 36.17459 261 36.10095 262 36.02671 263 35.95187 264 35.87643 265 35.8004 266 35.72376 267 35.64652 268 35.56868 269 35.49024 270 35.4112 271 35.33157 272 35.25133 273 35.17049 274 35.08905 275 35.00702 276 34.92438 277 34.84114 278 34.7573 279 34.67287 280 34.58783 281 34.5022 282 34.41596 283 34.32912 284 34.24169 285 34.15365 286 34.06502 287 33.97579 288 33.88595 289 33.79552 290 33.70449 291 33.61285 292 33.52062 293 33.42779 294 33.33436 295 33.24033 296 33.1457 297 33.05047 298 32.95464 299 32.85821 300 32.76118 301 32.66355 302 32.56532 303 32.46649 304 32.36707 305 32.26704 306 32.16642 307 32.06519 308 31.96337 309 31.86094 310 31.75792 311 31.6543 312 31.55007 313 31.44525 314 31.33983 315 31.23381 316 31.12719 317 31.01997 318 30.91215 319 30.80373 320 30.69472 321 30.5851 322 30.47488 323 30.36407 324 30.25265 325 30.14064 326 30.02802 327 29.91481 328 29.801 329 29.68659 330 29.57158 331 29.45597 332 29.33976 333 29.22295 334 29.10554 335 28.98753 336 28.86893 337 28.74972 338 28.62992 339 28.50951 340 28.38851 341 28.26691 342 28.14471 343 28.0219 344 27.8985 345 27.77451 346 27.64991 347 27.52471 348 27.39891 349 27.27252 350 27.14552 351 27.01793 352 26.88973 353 26.76094 354 26.63155 355 26.50156 356 26.37096 357 26.23977 358 26.10799 359 25.9756 360 25.84261 361 25.70902 362 25.57484 363 25.44005 364 25.30467 365 25.16869 366 25.03211 367 24.89492 368 24.75714 369 24.61876 370 24.47979 371 24.34021 372 24.20003 373 24.05925 374 23.91788 375 23.77591 376 23.63333 377 23.49016 378 23.34639 379 23.20202 380 23.05705 381 22.91148 382 22.76531 383 22.61854 384 22.47118 385 22.32321 386 22.17464 387 22.02548 388 21.87572 389 21.72536 390 21.57439 391 21.42283 392 21.27067 393 21.11791 394 20.96456 395 20.8106 396 20.65604 397 20.50089 398 20.34513 399 20.18878 400 20.03183 401 19.87427 402 19.71612 403 19.55737 404 19.39802 405 19.23807 406 19.07753 407 18.91638 408 18.75463 409 18.59229 410 18.42934 411 18.2658 412 18.10166 413 17.93692 414 17.77157 415 17.60563 416 17.43909 417 17.27195 418 17.10422 419 16.93588 420 16.76694 421 16.59741 422 16.42727 423 16.25654 424 16.0852 425 15.91327 426 15.74074 427 15.56761 428 15.39388 429 15.21955 430 15.04462 431 14.86909 432 14.69296 433 14.51623 434 14.33891 435 14.16098 436 13.98246 437 13.80333 438 13.62361 439 13.44329 440 13.26236 441 13.08084 442 12.89872 443 12.716 444 12.53268 445 12.34876 446 12.16424 447 11.97913 448 11.79341 449 11.60709 450 11.42018 451 11.23266 452 11.04455 453 10.85583 454 10.66652 455 10.4766 456 10.28609 457 10.09498 458 9.903268 459 9.710957 460 9.518046 461 9.324536 462 9.130426 463 8.935717 464 8.740408 465 8.544499 466 8.347991 467 8.150884 468 7.953177 469 7.75487 470 7.555964 471 7.356458 472 7.156352 473 6.955647 474 6.754342 475 6.552438 476 6.349934 477 6.14683 478 5.943126 479 5.738823 480 5.53392 481 5.328417 482 5.122315 483 4.915612 484 4.70831 485 4.500409 486 4.291907 487 4.082806 488 3.873105 489 3.662804 490 3.451903 491 3.240402 492 3.028301 493 2.815601 494 2.602301 495 2.3884 496 2.1739 497 1.9588 498 1.7431 499 1.5268 500 1.3099 501 1.0924 502 0.8743 503 0.6556 504 0.4362999 505 0.2163998 506 -0.004100407 507 -0.2252007 508 -0.446901 509 -0.6692015 510 -0.8921021 511 -1.115603 512 -1.339704 513 -1.564405 514 -1.789706 515 -2.015608 516 -2.242109 517 -2.469211 518 -2.696913 519 -2.925216 520 -3.154119 521 -3.383622 522 -3.613725 523 -3.844429 524 -4.075733 525 -4.307637 526 -4.540142 527 -4.773247 528 -5.006953 529 -5.241259 530 -5.476165 531 -5.711672 532 -5.94778 533 -6.184488 534 -6.421797 535 -6.659706 536 -6.898215 537 -7.137326 538 -7.377036 539 -7.617348 540 -7.85826 541 -8.099773 542 -8.341886 543 -8.584601 544 -8.827915 545 -9.071831 546 -9.316348 547 -9.561465 548 -9.807183 549 -10.0535 550 -10.30042 551 -10.54794 552 -10.79606 553 -11.04479 554 -11.29411 555 -11.54403 556 -11.79456 557 -12.04568 558 -12.29741 559 -12.54974 560 -12.80267 561 -13.0562 562 -13.31033 563 -13.56506 564 -13.8204 565 -14.07633 566 -14.33287 567 -14.59 568 -14.84774 569 -15.10608 570 -15.36502 571 -15.62456 572 -15.88471 573 -16.14545 574 -16.4068 575 -16.66875 576 -16.9313 577 -17.19445 578 -17.4582 579 -17.72255 580 -17.98751 581 -18.25306 582 -18.51922 583 -18.78598 584 -19.05334 585 -19.3213 586 -19.58987 587 -19.85903 588 -20.1288 589 -20.39917 590 -20.67014 591 -20.94171 592 -21.21389 593 -21.48667 594 -21.76004 595 -22.03402 596 -22.30861 597 -22.58379 598 -22.85958 599 -23.13597 600 -23.41296 601 -23.69055 602 -23.96874 603 -24.24754 604 -24.52694 605 -24.80694 606 -25.08754 607 -25.36874 608 -25.65055 609 -25.93296 610 -26.21597 611 -26.49959 612 -26.7838 613 -27.06862 614 -27.35404 615 -27.64006 616 -27.92669 617 -28.21392 618 -28.50175 619 -28.79018 620 -29.07922 621 -29.36886 622 -29.6591 623 -29.94994 624 -30.24139 625 -30.53344 626 -30.82609 627 -31.11934 628 -31.4132 629 -31.70766 630 -32.00272 631 -32.29839 632 -32.59466 633 -32.89153 634 -33.189 635 -33.48708 636 -33.78576 637 -34.08504 638 -34.38493 639 -34.68542 640 -34.98651 641 -35.28821 642 -35.59051 643 -35.89341 644 -36.19692 645 -36.50103 646 -36.80574 647 -37.11106 648 -37.41698 649 -37.7235 650 -38.03062 651 -38.33835 652 -38.64669 653 -38.95562 654 -39.26516 655 -39.57531 656 -39.88606 657 -40.19741 658 -40.50936 659 -40.82192 660 -41.13508 661 -41.44885 662 -41.76322 663 -42.0782 664 -42.39377 665 -42.70996 666 -43.02674 667 -43.34413 668 -43.66213 669 -43.98073 670 -44.29993 671 -44.61973 672 -44.94015 673 -45.26116 674 -45.58278 675 -45.905 676 -46.22783 677 -46.55127 678 -46.8753 679 -47.19994 680 -47.52519 681 -47.85104 682 -48.1775 683 -48.50455 684 -48.83222 685 -49.16049 686 -49.48936 687 -49.81884 688 -50.14892 689 -50.47961 690 -50.8109 691 -51.1428 692 -51.4753 693 -51.80841 694 -52.14212 695 -52.47644 696 -52.81137 697 -53.14689 698 -53.48303 699 -53.81976 700 -54.15711 701 -54.49506 702 -54.83361 703 -55.17277 704 -55.51254 705 -55.85291 706 -56.19388 707 -56.53546 708 -56.87765 709 -57.22044 710 -57.56384 711 -57.90784 712 -58.25245 713 -58.59767 714 -58.94349 715 -59.28992 716 -59.63695 717 -59.98459 718 -60.33283 719 -60.68168 720 -61.03114 721 -61.3812 722 -61.73187 723 -62.08315 724 -62.43503 725 -62.78752 726 -63.14061 727 -63.49431 728 -63.84862 729 -64.20353 730 -64.55905 731 -64.91517 732 -65.27191 733 -65.62925 734 -65.98719 735 -66.34574 736 -66.7049 737 -67.06467 738 -67.42504 739 -67.78602 740 -68.14761 741 -68.5098 742 -68.8726 743 -69.23601 744 -69.60002 745 -69.96464 746 -70.32987 747 -70.6957 748 -71.06215 749 -71.4292 750 -71.79685 751 -72.16512 752 -72.53399 753 -72.90347 754 -73.27356 755 -73.64425 756 -74.01556 757 -74.38747 758 -74.75998 759 -75.13311 760 -75.50684 761 -75.88118 762 -76.25613 763 -76.63169 764 -77.00785 765 -77.38462 766 -77.76201 767 -78.13999 768 -78.51859 769 -78.8978 770 -79.27761 771 -79.65803 772 -80.03906 773 -80.4207 774 -80.80295 775 -81.1858 776 -81.56927 777 -81.95334 778 -82.33802 779 -82.72331 780 -83.10921 781 -83.49571 782 -83.88283 783 -84.27056 784 -84.65889 785 -85.04783 786 -85.43738 787 -85.82754 788 -86.21831 789 -86.60969 790 -87.00168 791 -87.39428 792 -87.78749 793 -88.1813 794 -88.57573 795 -88.97076 796 -89.36641 797 -89.76266 798 -90.15953 799 -90.557 800 -90.95508 801 -91.35378 802 -91.75308 803 -92.15299 804 -92.55351 805 -92.95465 806 -93.35639 807 -93.75874 808 -94.1617 809 -94.56528 810 -94.96946 811 -95.37425 812 -95.77966 813 -96.18567 814 -96.5923 815 -96.99953 816 -97.40738 817 -97.81583 818 -98.2249 819 -98.63458 820 -99.04487 821 -99.45577 822 -99.86728 823 -100.2794 824 -100.6921 825 -101.1055 826 -101.5194 827 -101.934 828 -102.3492 829 -102.765 830 -103.1814 831 -103.5984 832 -104.016 833 -104.4342 834 -104.8531 835 -105.2725 836 -105.6926 837 -106.1133 838 -106.5346 839 -106.9565 840 -107.379 841 -107.8021 842 -108.2258 843 -108.6502 844 -109.0752 845 -109.5007 846 -109.9269 847 -110.3537 848 -110.7811 849 -111.2092 850 -111.6378 851 -112.067 852 -112.4969 853 -112.9274 854 -113.3585 855 -113.7902 856 -114.2225 857 -114.6554 858 -115.0889 859 -115.5231 860 -115.9579 861 -116.3932 862 -116.8292 863 -117.2658 864 -117.7031 865 -118.1409 866 -118.5793 867 -119.0184 868 -119.4581 869 -119.8983 870 -120.3392 871 -120.7807 872 -121.2229 873 -121.6656 874 -122.109 875 -122.5529 876 -122.9975 877 -123.4427 878 -123.8885 879 -124.3349 880 -124.782 881 -125.2296 882 -125.6779 883 -126.1268 884 -126.5763 885 -127.0264 886 -127.4771 887 -127.9284 888 -128.3804 889 -128.833 890 -129.2861 891 -129.7399 892 -130.1943 893 -130.6494 894 -131.105 895 -131.5613 896 -132.0182 897 -132.4756 898 -132.9337 899 -133.3925 900 -133.8518 901 -134.3117 902 -134.7723 903 -135.2335 904 -135.6953 905 -136.1577 906 -136.6207 907 -137.0844 908 -137.5486 909 -138.0135 910 -138.479 911 -138.9451 912 -139.4118 913 -139.8792 914 -140.3471 915 -140.8157 916 -141.2849 917 -141.7547 918 -142.2251 919 -142.6962 920 -143.1678 921 -143.6401 922 -144.113 923 -144.5865 924 -145.0606 925 -145.5354 926 -146.0107 927 -146.4867 928 -146.9633 929 -147.4405 930 -147.9183 931 -148.3968 932 -148.8759 933 -149.3555 934 -149.8358 935 -150.3167 936 -150.7983 937 -151.2804 938 -151.7632 939 -152.2466 940 -152.7306 941 -153.2152 942 -153.7005 943 -154.1863 944 -154.6728 945 -155.1599 946 -155.6476 947 -156.136 948 -156.6249 949 -157.1145 950 -157.6047 951 -158.0955 952 -158.5869 953 -159.079 954 -159.5716 955 -160.0649 956 -160.5588 957 -161.0534 958 -161.5485 959 -162.0443 960 -162.5407 961 -163.0377 962 -163.5353 963 -164.0335 964 -164.5324 965 -165.0319 966 -165.532 967 -166.0327 968 -166.534 969 -167.036 970 -167.5386 971 -168.0418 972 -168.5456 973 -169.0501 974 -169.5551 975 -170.0608 976 -170.5671 977 -171.0741 978 -171.5816 979 -172.0898 980 -172.5986 981 -173.108 982 -173.618 983 -174.1287 984 -174.6399 985 -175.1518 986 -175.6644 987 -176.1775 988 -176.6913 989 -177.2056 990 -177.7206 991 -178.2363 992 -178.7525 993 -179.2694 994 -179.7869 995 -180.305 996 -180.8237 997 -181.3431 998 -181.8631 999 -182.3837 1000 -182.9049> # > QCRN <- 506 > PCRN <- (70 - (.065/2)*506) - (.065/2)*506 > ATCCRN <- ATC[QCRN] > PROFFCRN <- (PCRN-ATCCRN)*QCRN > cat(QCRN);cat("\n") 506 > cat(PCRN);cat("\n") 37.11 > cat(ATCCRN);cat("\n") 28.26696 > cat(PROFFCRN);cat("\n") 4474.577 > # > PLTDC <- (70 - (.065/2)*QCRN) - (.065/2)*ISEQ > PLTMR <- (70 - (.065/2)*QCRN) - .065*ISEQ > cat(PLTMR);cat("\n") 53.49 53.425 53.36 53.295 53.23 53.165 53.1 53.035 52.97 52.905 52.84 52.775 52.71 52.645 52.58 52.515 52.45 52.385 52.32 52.255 52.19 52.125 52.06 51.995 51.93 51.865 51.8 51.735 51.67 51.605 51.54 51.475 51.41 51.345 51.28 51.215 51.15 51.085 51.02 50.955 50.89 50.825 50.76 50.695 50.63 50.565 50.5 50.435 50.37 50.305 50.24 50.175 50.11 50.045 49.98 49.915 49.85 49.785 49.72 49.655 49.59 49.525 49.46 49.395 49.33 49.265 49.2 49.135 49.07 49.005 48.94 48.875 48.81 48.745 48.68 48.615 48.55 48.485 48.42 48.355 48.29 48.225 48.16 48.095 48.03 47.965 47.9 47.835 47.77 47.705 47.64 47.575 47.51 47.445 47.38 47.315 47.25 47.185 47.12 47.055 46.99 46.925 46.86 46.795 46.73 46.665 46.6 46.535 46.47 46.405 46.34 46.275 46.21 46.145 46.08 46.015 45.95 45.885 45.82 45.755 45.69 45.625 45.56 45.495 45.43 45.365 45.3 45.235 45.17 45.105 45.04 44.975 44.91 44.845 44.78 44.715 44.65 44.585 44.52 44.455 44.39 44.325 44.26 44.195 44.13 44.065 44 43.935 43.87 43.805 43.74 43.675 43.61 43.545 43.48 43.415 43.35 43.285 43.22 43.155 43.09 43.025 42.96 42.895 42.83 42.765 42.7 42.635 42.57 42.505 42.44 42.375 42.31 42.245 42.18 42.115 42.05 41.985 41.92 41.855 41.79 41.725 41.66 41.595 41.53 41.465 41.4 41.335 41.27 41.205 41.14 41.075 41.01 40.945 40.88 40.815 40.75 40.685 40.62 40.555 40.49 40.425 40.36 40.295 40.23 40.165 40.1 40.035 39.97 39.905 39.84 39.775 39.71 39.645 39.58 39.515 39.45 39.385 39.32 39.255 39.19 39.125 39.06 38.995 38.93 38.865 38.8 38.735 38.67 38.605 38.54 38.475 38.41 38.345 38.28 38.215 38.15 38.085 38.02 37.955 37.89 37.825 37.76 37.695 37.63 37.565 37.5 37.435 37.37 37.305 37.24 37.175 37.11 37.045 36.98 36.915 36.85 36.785 36.72 36.655 36.59 36.525 36.46 36.395 36.33 36.265 36.2 36.135 36.07 36.005 35.94 35.875 35.81 35.745 35.68 35.615 35.55 35.485 35.42 35.355 35.29 35.225 35.16 35.095 35.03 34.965 34.9 34.835 34.77 34.705 34.64 34.575 34.51 34.445 34.38 34.315 34.25 34.185 34.12 34.055 33.99 33.925 33.86 33.795 33.73 33.665 33.6 33.535 33.47 33.405 33.34 33.275 33.21 33.145 33.08 33.015 32.95 32.885 32.82 32.755 32.69 32.625 32.56 32.495 32.43 32.365 32.3 32.235 32.17 32.105 32.04 31.975 31.91 31.845 31.78 31.715 31.65 31.585 31.52 31.455 31.39 31.325 31.26 31.195 31.13 31.065 31 30.935 30.87 30.805 30.74 30.675 30.61 30.545 30.48 30.415 30.35 30.285 30.22 30.155 30.09 30.025 29.96 29.895 29.83 29.765 29.7 29.635 29.57 29.505 29.44 29.375 29.31 29.245 29.18 29.115 29.05 28.985 28.92 28.855 28.79 28.725 28.66 28.595 28.53 28.465 28.4 28.335 28.27 28.205 28.14 28.075 28.01 27.945 27.88 27.815 27.75 27.685 27.62 27.555 27.49 27.425 27.36 27.295 27.23 27.165 27.1 27.035 26.97 26.905 26.84 26.775 26.71 26.645 26.58 26.515 26.45 26.385 26.32 26.255 26.19 26.125 26.06 25.995 25.93 25.865 25.8 25.735 25.67 25.605 25.54 25.475 25.41 25.345 25.28 25.215 25.15 25.085 25.02 24.955 24.89 24.825 24.76 24.695 24.63 24.565 24.5 24.435 24.37 24.305 24.24 24.175 24.11 24.045 23.98 23.915 23.85 23.785 23.72 23.655 23.59 23.525 23.46 23.395 23.33 23.265 23.2 23.135 23.07 23.005 22.94 22.875 22.81 22.745 22.68 22.615 22.55 22.485 22.42 22.355 22.29 22.225 22.16 22.095 22.03 21.965 21.9 21.835 21.77 21.705 21.64 21.575 21.51 21.445 21.38 21.315 21.25 21.185 21.12 21.055 20.99 20.925 20.86 20.795 20.73 20.665 20.6 20.535 20.47 20.405 20.34 20.275 20.21 20.145 20.08 20.015 19.95 19.885 19.82 19.755 19.69 19.625 19.56 19.495 19.43 19.365 19.3 19.235 19.17 19.105 19.04 18.975 18.91 18.845 18.78 18.715 18.65 18.585 18.52 18.455 18.39 18.325 18.26 18.195 18.13 18.065 18 17.935 17.87 17.805 17.74 17.675 17.61 17.545 17.48 17.415 17.35 17.285 17.22 17.155 17.09 17.025 16.96 16.895 16.83 16.765 16.7 16.635 16.57 16.505 16.44 16.375 16.31 16.245 16.18 16.115 16.05 15.985 15.92 15.855 15.79 15.725 15.66 15.595 15.53 15.465 15.4 15.335 15.27 15.205 15.14 15.075 15.01 14.945 14.88 14.815 14.75 14.685 14.62 14.555 14.49 14.425 14.36 14.295 14.23 14.165 14.1 14.035 13.97 13.905 13.84 13.775 13.71 13.645 13.58 13.515 13.45 13.385 13.32 13.255 13.19 13.125 13.06 12.995 12.93 12.865 12.8 12.735 12.67 12.605 12.54 12.475 12.41 12.345 12.28 12.215 12.15 12.085 12.02 11.955 11.89 11.825 11.76 11.695 11.63 11.565 11.5 11.435 11.37 11.305 11.24 11.175 11.11 11.045 10.98 10.915 10.85 10.785 10.72 10.655 10.59 10.525 10.46 10.395 10.33 10.265 10.2 10.135 10.07 10.005 9.94 9.875 9.81 9.745 9.68 9.615 9.55 9.485 9.42 9.355 9.29 9.225 9.16 9.095 9.03 8.965 8.9 8.835 8.77 8.705 8.64 8.575 8.51 8.445 8.38 8.315 8.25 8.185 8.12 8.055 7.99 7.925 7.86 7.795 7.73 7.665 7.6 7.535 7.47 7.405 7.34 7.275 7.21 7.145 7.08 7.015 6.95 6.885 6.82 6.755 6.69 6.625 6.56 6.495 6.43 6.365 6.3 6.235 6.17 6.105 6.04 5.975 5.91 5.845 5.78 5.715 5.65 5.585 5.52 5.455 5.39 5.325 5.26 5.195 5.13 5.065 5 4.935 4.87 4.805 4.74 4.675 4.61 4.545 4.48 4.415 4.35 4.285 4.22 4.155 4.09 4.025 3.96 3.895 3.83 3.765 3.7 3.635 3.57 3.505 3.44 3.375 3.31 3.245 3.18 3.115 3.05 2.985 2.92 2.855 2.79 2.725 2.66 2.595 2.53 2.465 2.4 2.335 2.27 2.205 2.14 2.075 2.01 1.945 1.88 1.815 1.75 1.685 1.62 1.555 1.49 1.425 1.36 1.295 1.23 1.165 1.1 1.035 0.97 0.905 0.84 0.775 0.71 0.645 0.58 0.515 0.45 0.385 0.32 0.255 0.19 0.125 0.06 -0.005 -0.07 -0.135 -0.2 -0.265 -0.33 -0.395 -0.46 -0.525 -0.59 -0.655 -0.72 -0.785 -0.85 -0.915 -0.98 -1.045 -1.11 -1.175 -1.24 -1.305 -1.37 -1.435 -1.5 -1.565 -1.63 -1.695 -1.76 -1.825 -1.89 -1.955 -2.02 -2.085 -2.15 -2.215 -2.28 -2.345 -2.41 -2.475 -2.54 -2.605 -2.67 -2.735 -2.8 -2.865 -2.93 -2.995 -3.06 -3.125 -3.19 -3.255 -3.32 -3.385 -3.45 -3.515 -3.58 -3.645 -3.71 -3.775 -3.84 -3.905 -3.97 -4.035 -4.1 -4.165 -4.23 -4.295 -4.36 -4.425 -4.49 -4.555 -4.62 -4.685 -4.75 -4.815 -4.88 -4.945 -5.01 -5.075 -5.14 -5.205 -5.27 -5.335 -5.4 -5.465 -5.53 -5.595 -5.66 -5.725 -5.79 -5.855 -5.92 -5.985 -6.05 -6.115 -6.18 -6.245 -6.31 -6.375 -6.44 -6.505 -6.57 -6.635 -6.7 -6.765 -6.83 -6.895 -6.96 -7.025 -7.09 -7.155 -7.22 -7.285 -7.35 -7.415 -7.48 -7.545 -7.61 -7.675 -7.74 -7.805 -7.87 -7.935 -8 -8.065 -8.13 -8.195 -8.26 -8.325 -8.39 -8.455 -8.52 -8.585 -8.65 -8.715 -8.78 -8.845 -8.91 -8.975 -9.04 -9.105 -9.17 -9.235 -9.3 -9.365 -9.43 -9.495 -9.56 -9.625 -9.69 -9.755 -9.82 -9.885 -9.95 -10.015 -10.08 -10.145 -10.21 -10.275 -10.34 -10.405 -10.47 -10.535 -10.6 -10.665 -10.73 -10.795 -10.86 -10.925 -10.99 -11.055 -11.12 -11.185 -11.25 -11.315 -11.38 -11.445 > > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + main="Collusive Firm Equilibrium") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(DC,lty=1) > lines(MR,lty=1) > abline(v=435,lty=3) > > > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + main="Cournot Firm Equilibrium") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(PLTDC,lty=1) > lines(PLTMR,lty=1) > abline(v=QCRN,lty=3) > abline(v=435,lty=3) > > > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + main="Deviant Firm Equilibrium") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(ALTDC,lty=1) > lines(ALTMR,lty=1) > lines(DC,lty=2) > lines(MR,lty=2) > abline(v=518,lty=3) > abline(v=435,lty=3) > > # > dev.off() null device 1 > jpg("colplot.jpg") Error: could not find function "jpg" > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + main="The Firm's Total Revenue, Marginal Revenue and Cost Curves") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(DC,lty=1) > lines(MR,lty=1) > abline(v=435,lty=3) > dev.off() null device 1 > # > jpg("plotdevf2.jpg") Error: could not find function "jpg" > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + #ylab="Average and Marginal Cost: Price and Marginal Revenue", + main="The Deviant Firm's Equilibrium") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(ALTDC,lty=1) > lines(ALTMR,lty=1) > lines(DC,lty=2) > lines(MR,lty=2) > abline(v=518,lty=3) > abline(v=435,lty=3) > dev.off() null device 1 > # > jpg("pltcourn2.jpg") Error: could not find function "jpg" > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + main="The Cournot Firm's Equilibrium") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(PLTDC,lty=1) > lines(PLTMR,lty=1) > abline(v=QCRN,lty=3) > abline(v=435,lty=3) > dev.off( ) null device 1 > # > #OPTIMUM OUTPUT OF EACH FIRM > # > OODCMMC <- (DC-MC) > OODCMMCMAT <- rbind(ISEQ, OODCMMC) > cat(OODCMMCMAT);cat("\n") 1 35.01281 2 35.12791 3 35.2424 4 35.35628 5 35.46955 6 35.58222 7 35.69427 8 35.80572 9 35.91657 10 36.0268 11 36.13643 12 36.24545 13 36.35386 14 36.46166 15 36.56886 16 36.67545 17 36.78144 18 36.88681 19 36.99158 20 37.09574 21 37.1993 22 37.30225 23 37.40459 24 37.50632 25 37.60745 26 37.70797 27 37.80789 28 37.90719 29 38.0059 30 38.10399 31 38.20148 32 38.29836 33 38.39463 34 38.4903 35 38.58536 36 38.67982 37 38.77367 38 38.86691 39 38.95955 40 39.05158 41 39.143 42 39.23382 43 39.32403 44 39.41364 45 39.50264 46 39.59103 47 39.67882 48 39.766 49 39.85258 50 39.93855 51 40.02392 52 40.10868 53 40.19283 54 40.27638 55 40.35932 56 40.44166 57 40.52339 58 40.60452 59 40.68504 60 40.76495 61 40.84426 62 40.92297 63 41.00107 64 41.07856 65 41.15545 66 41.23174 67 41.30741 68 41.38249 69 41.45696 70 41.53082 71 41.60408 72 41.67673 73 41.74878 74 41.82023 75 41.89107 76 41.9613 77 42.03093 78 42.09996 79 42.16838 80 42.23619 81 42.30341 82 42.37001 83 42.43601 84 42.50141 85 42.56621 86 42.63039 87 42.69398 88 42.75696 89 42.81934 90 42.88111 91 42.94228 92 43.00284 93 43.0628 94 43.12215 95 43.1809 96 43.23905 97 43.29659 98 43.35353 99 43.40987 100 43.4656 101 43.52073 102 43.57525 103 43.62917 104 43.68249 105 43.7352 106 43.78731 107 43.83881 108 43.88971 109 43.94001 110 43.98971 111 44.0388 112 44.08728 113 44.13517 114 44.18245 115 44.22912 116 44.2752 117 44.32067 118 44.36553 119 44.4098 120 44.45346 121 44.49651 122 44.53897 123 44.58082 124 44.62207 125 44.66271 126 44.70275 127 44.74219 128 44.78102 129 44.81926 130 44.85689 131 44.89391 132 44.93034 133 44.96616 134 45.00137 135 45.03599 136 45.07 137 45.10341 138 45.13622 139 45.16842 140 45.20002 141 45.23102 142 45.26142 143 45.29121 144 45.32041 145 45.34899 146 45.37698 147 45.40436 148 45.43115 149 45.45733 150 45.4829 151 45.50788 152 45.53225 153 45.55602 154 45.57919 155 45.60175 156 45.62372 157 45.64508 158 45.66584 159 45.68599 160 45.70555 161 45.7245 162 45.74285 163 45.7606 164 45.77775 165 45.79429 166 45.81023 167 45.82558 168 45.84031 169 45.85445 170 45.86799 171 45.88092 172 45.89325 173 45.90498 174 45.91611 175 45.92664 176 45.93656 177 45.94589 178 45.95461 179 45.96273 180 45.97025 181 45.97716 182 45.98348 183 45.98919 184 45.99431 185 45.99882 186 46.00273 187 46.00604 188 46.00874 189 46.01085 190 46.01235 191 46.01326 192 46.01356 193 46.01326 194 46.01236 195 46.01086 196 46.00875 197 46.00605 198 46.00274 199 45.99884 200 45.99433 201 45.98922 202 45.98351 203 45.9772 204 45.97029 205 45.96277 206 45.95466 207 45.94594 208 45.93663 209 45.92671 210 45.91619 211 45.90507 212 45.89336 213 45.88104 214 45.86811 215 45.85459 216 45.84047 217 45.82575 218 45.81042 219 45.7945 220 45.77797 221 45.76085 222 45.74312 223 45.72479 224 45.70586 225 45.68633 226 45.6662 227 45.64548 228 45.62414 229 45.60221 230 45.57968 231 45.55655 232 45.53282 233 45.50849 234 45.48355 235 45.45802 236 45.43188 237 45.40515 238 45.37781 239 45.34988 240 45.32134 241 45.29221 242 45.26247 243 45.23214 244 45.2012 245 45.16966 246 45.13752 247 45.10479 248 45.07145 249 45.03751 250 45.00297 251 44.96784 252 44.9321 253 44.89576 254 44.85882 255 44.82128 256 44.78314 257 44.74441 258 44.70507 259 44.66513 260 44.62459 261 44.58345 262 44.54171 263 44.49937 264 44.45643 265 44.4129 266 44.36876 267 44.32402 268 44.27868 269 44.23274 270 44.1862 271 44.13907 272 44.09133 273 44.04299 274 43.99405 275 43.94452 276 43.89438 277 43.84364 278 43.7923 279 43.74037 280 43.68783 281 43.6347 282 43.58096 283 43.52662 284 43.47169 285 43.41615 286 43.36002 287 43.30329 288 43.24595 289 43.18802 290 43.12949 291 43.07035 292 43.01062 293 42.95029 294 42.88936 295 42.82783 296 42.7657 297 42.70297 298 42.63964 299 42.57571 300 42.51118 301 42.44605 302 42.38032 303 42.31399 304 42.24707 305 42.17954 306 42.11142 307 42.04269 308 41.97337 309 41.90344 310 41.83292 311 41.7618 312 41.69007 313 41.61775 314 41.54483 315 41.47131 316 41.39719 317 41.32247 318 41.24715 319 41.17123 320 41.09472 321 41.0176 322 40.93988 323 40.86157 324 40.78265 325 40.70314 326 40.62302 327 40.54231 328 40.461 329 40.37909 330 40.29658 331 40.21347 332 40.12976 333 40.04545 334 39.96054 335 39.87503 336 39.78893 337 39.70222 338 39.61492 339 39.52701 340 39.43851 341 39.34941 342 39.25971 343 39.1694 344 39.0785 345 38.98701 346 38.89491 347 38.80221 348 38.70891 349 38.61502 350 38.52052 351 38.42543 352 38.32973 353 38.23344 354 38.13655 355 38.03906 356 37.94096 357 37.84227 358 37.74299 359 37.6431 360 37.54261 361 37.44152 362 37.33984 363 37.23755 364 37.13467 365 37.03119 366 36.92711 367 36.82242 368 36.71714 369 36.61126 370 36.50479 371 36.39771 372 36.29003 373 36.18175 374 36.07288 375 35.96341 376 35.85333 377 35.74266 378 35.63139 379 35.51952 380 35.40705 381 35.29398 382 35.18031 383 35.06604 384 34.95118 385 34.83571 386 34.71964 387 34.60298 388 34.48572 389 34.36786 390 34.24939 391 34.13033 392 34.01067 393 33.89041 394 33.76956 395 33.6481 396 33.52604 397 33.40339 398 33.28013 399 33.15628 400 33.03183 401 32.90677 402 32.78112 403 32.65487 404 32.52802 405 32.40057 406 32.27253 407 32.14388 408 32.01463 409 31.88479 410 31.75434 411 31.6233 412 31.49166 413 31.35942 414 31.22657 415 31.09313 416 30.95909 417 30.82445 418 30.68922 419 30.55338 420 30.41694 421 30.27991 422 30.14227 423 30.00404 424 29.8652 425 29.72577 426 29.58574 427 29.44511 428 29.30388 429 29.16205 430 29.01962 431 28.87659 432 28.73296 433 28.58873 434 28.44391 435 28.29848 436 28.15246 437 28.00583 438 27.85861 439 27.71079 440 27.56236 441 27.41334 442 27.26372 443 27.1135 444 26.96268 445 26.81126 446 26.65924 447 26.50663 448 26.35341 449 26.19959 450 26.04518 451 25.89016 452 25.73455 453 25.57833 454 25.42152 455 25.2641 456 25.10609 457 24.94748 458 24.78827 459 24.62846 460 24.46805 461 24.30704 462 24.14543 463 23.98322 464 23.82041 465 23.657 466 23.49299 467 23.32838 468 23.16318 469 22.99737 470 22.83096 471 22.66396 472 22.49635 473 22.32815 474 22.15934 475 21.98994 476 21.81993 477 21.64933 478 21.47813 479 21.30632 480 21.13392 481 20.96092 482 20.78731 483 20.61311 484 20.43831 485 20.26291 486 20.08691 487 19.91031 488 19.7331 489 19.5553 490 19.3769 491 19.1979 492 19.0183 493 18.8381 494 18.6573 495 18.4759 496 18.2939 497 18.1113 498 17.9281 499 17.7443 500 17.5599 501 17.3749 502 17.1893 503 17.0031 504 16.8163 505 16.6289 506 16.4409 507 16.2523 508 16.0631 509 15.8733 510 15.6829 511 15.4919 512 15.3003 513 15.1081 514 14.91529 515 14.72189 516 14.52789 517 14.33329 518 14.13809 519 13.94228 520 13.74588 521 13.54888 522 13.35128 523 13.15307 524 12.95427 525 12.75486 526 12.55486 527 12.35425 528 12.15305 529 11.95124 530 11.74883 531 11.54583 532 11.34222 533 11.13801 534 10.9332 535 10.72779 536 10.52178 537 10.31517 538 10.10796 539 9.900152 540 9.69174 541 9.482727 542 9.273114 543 9.062899 544 8.852085 545 8.640669 546 8.428652 547 8.216035 548 8.002817 549 7.788998 550 7.574579 551 7.359558 552 7.143937 553 6.927715 554 6.710891 555 6.493467 556 6.275442 557 6.056816 558 5.837589 559 5.617761 560 5.397332 561 5.176301 562 4.95467 563 4.732438 564 4.509604 565 4.286169 566 4.062133 567 3.837496 568 3.612258 569 3.386418 570 3.159977 571 2.932935 572 2.705292 573 2.477047 574 2.248201 575 2.018753 576 1.788704 577 1.558054 578 1.326802 579 1.094949 580 0.862494 581 0.6294377 582 0.3957798 583 0.1615204 584 -0.07334071 585 -0.3088034 586 -0.5448677 587 -0.7815337 588 -1.018801 589 -1.256671 590 -1.495142 591 -1.734215 592 -1.97389 593 -2.214166 594 -2.455045 595 -2.696525 596 -2.938607 597 -3.181291 598 -3.424577 599 -3.668465 600 -3.912955 601 -4.158047 602 -4.403741 603 -4.650038 604 -4.896936 605 -5.144436 606 -5.392539 607 -5.641244 608 -5.890551 609 -6.14046 610 -6.390971 611 -6.642085 612 -6.893801 613 -7.14612 614 -7.399041 615 -7.652564 616 -7.90669 617 -8.161418 618 -8.416749 619 -8.672682 620 -8.929217 621 -9.186356 622 -9.444097 623 -9.70244 624 -9.961387 625 -10.22094 626 -10.48109 627 -10.74184 628 -11.0032 629 -11.26516 630 -11.52772 631 -11.79089 632 -12.05466 633 -12.31903 634 -12.584 635 -12.84958 636 -13.11576 637 -13.38254 638 -13.64993 639 -13.91792 640 -14.18651 641 -14.45571 642 -14.72551 643 -14.99591 644 -15.26692 645 -15.53853 646 -15.81074 647 -16.08356 648 -16.35698 649 -16.631 650 -16.90562 651 -17.18085 652 -17.45669 653 -17.73312 654 -18.01016 655 -18.28781 656 -18.56606 657 -18.84491 658 -19.12436 659 -19.40442 660 -19.68508 661 -19.96635 662 -20.24822 663 -20.5307 664 -20.81377 665 -21.09746 666 -21.38174 667 -21.66663 668 -21.95213 669 -22.23823 670 -22.52493 671 -22.81223 672 -23.10015 673 -23.38866 674 -23.67778 675 -23.9675 676 -24.25783 677 -24.54877 678 -24.8403 679 -25.13244 680 -25.42519 681 -25.71854 682 -26.0125 683 -26.30705 684 -26.60222 685 -26.89799 686 -27.19436 687 -27.49134 688 -27.78892 689 -28.08711 690 -28.3859 691 -28.6853 692 -28.9853 693 -29.28591 694 -29.58712 695 -29.88894 696 -30.19137 697 -30.49439 698 -30.79803 699 -31.10226 700 -31.40711 701 -31.71256 702 -32.01861 703 -32.32527 704 -32.63254 705 -32.94041 706 -33.24888 707 -33.55796 708 -33.86765 709 -34.17794 710 -34.48884 711 -34.80034 712 -35.11245 713 -35.42517 714 -35.73849 715 -36.05242 716 -36.36695 717 -36.68209 718 -36.99783 719 -37.31418 720 -37.63114 721 -37.9487 722 -38.26687 723 -38.58565 724 -38.90503 725 -39.22502 726 -39.54561 727 -39.86681 728 -40.18862 729 -40.51103 730 -40.83405 731 -41.15767 732 -41.48191 733 -41.80675 734 -42.13219 735 -42.45824 736 -42.7849 737 -43.11217 738 -43.44004 739 -43.76852 740 -44.09761 741 -44.4273 742 -44.7576 743 -45.08851 744 -45.42002 745 -45.75214 746 -46.08487 747 -46.4182 748 -46.75215 749 -47.0867 750 -47.42185 751 -47.75762 752 -48.09399 753 -48.43097 754 -48.76856 755 -49.10675 756 -49.44556 757 -49.78497 758 -50.12498 759 -50.46561 760 -50.80684 761 -51.14868 762 -51.49113 763 -51.83419 764 -52.17785 765 -52.52212 766 -52.86701 767 -53.21249 768 -53.55859 769 -53.9053 770 -54.25261 771 -54.60053 772 -54.94906 773 -55.2982 774 -55.64795 775 -55.9983 776 -56.34927 777 -56.70084 778 -57.05302 779 -57.40581 780 -57.75921 781 -58.11321 782 -58.46783 783 -58.82306 784 -59.17889 785 -59.53533 786 -59.89238 787 -60.25004 788 -60.60831 789 -60.96719 790 -61.32668 791 -61.68678 792 -62.04749 793 -62.4088 794 -62.77073 795 -63.13326 796 -63.49641 797 -63.86016 798 -64.22453 799 -64.5895 800 -64.95508 801 -65.32128 802 -65.68808 803 -66.05549 804 -66.42351 805 -66.79215 806 -67.16139 807 -67.53124 808 -67.9017 809 -68.27278 810 -68.64446 811 -69.01675 812 -69.38966 813 -69.76317 814 -70.1373 815 -70.51203 816 -70.88738 817 -71.26333 818 -71.6399 819 -72.01708 820 -72.39487 821 -72.77327 822 -73.15228 823 -73.5319 824 -73.91213 825 -74.29297 826 -74.67443 827 -75.05649 828 -75.43917 829 -75.82246 830 -76.20636 831 -76.59087 832 -76.97599 833 -77.36172 834 -77.74807 835 -78.13502 836 -78.52259 837 -78.91077 838 -79.29956 839 -79.68897 840 -80.07898 841 -80.46961 842 -80.86085 843 -81.2527 844 -81.64516 845 -82.03824 846 -82.43192 847 -82.82622 848 -83.22114 849 -83.61666 850 -84.0128 851 -84.40955 852 -84.80691 853 -85.20488 854 -85.60347 855 -86.00267 856 -86.40248 857 -86.80291 858 -87.20395 859 -87.6056 860 -88.00786 861 -88.41074 862 -88.81423 863 -89.21833 864 -89.62305 865 -90.02838 866 -90.43432 867 -90.84088 868 -91.24805 869 -91.65584 870 -92.06423 871 -92.47325 872 -92.88287 873 -93.29311 874 -93.70396 875 -94.11543 876 -94.52751 877 -94.9402 878 -95.35351 879 -95.76744 880 -96.18197 881 -96.59712 882 -97.01289 883 -97.42927 884 -97.84626 885 -98.26387 886 -98.6821 887 -99.10094 888 -99.52039 889 -99.94046 890 -100.3611 891 -100.7824 892 -101.2043 893 -101.6269 894 -102.05 895 -102.4738 896 -102.8982 897 -103.3231 898 -103.7487 899 -104.175 900 -104.6018 901 -105.0292 902 -105.4573 903 -105.886 904 -106.3153 905 -106.7452 906 -107.1757 907 -107.6069 908 -108.0386 909 -108.471 910 -108.904 911 -109.3376 912 -109.7718 913 -110.2067 914 -110.6421 915 -111.0782 916 -111.5149 917 -111.9522 918 -112.3901 919 -112.8287 920 -113.2678 921 -113.7076 922 -114.148 923 -114.589 924 -115.0306 925 -115.4729 926 -115.9157 927 -116.3592 928 -116.8033 929 -117.248 930 -117.6933 931 -118.1393 932 -118.5859 933 -119.033 934 -119.4808 935 -119.9292 936 -120.3783 937 -120.8279 938 -121.2782 939 -121.7291 940 -122.1806 941 -122.6327 942 -123.0855 943 -123.5388 944 -123.9928 945 -124.4474 946 -124.9026 947 -125.3585 948 -125.8149 949 -126.272 950 -126.7297 951 -127.188 952 -127.6469 953 -128.1065 954 -128.5666 955 -129.0274 956 -129.4888 957 -129.9509 958 -130.4135 959 -130.8768 960 -131.3407 961 -131.8052 962 -132.2703 963 -132.736 964 -133.2024 965 -133.6694 966 -134.137 967 -134.6052 968 -135.074 969 -135.5435 970 -136.0136 971 -136.4843 972 -136.9556 973 -137.4276 974 -137.9001 975 -138.3733 976 -138.8471 977 -139.3216 978 -139.7966 979 -140.2723 980 -140.7486 981 -141.2255 982 -141.703 983 -142.1812 984 -142.6599 985 -143.1393 986 -143.6194 987 -144.1 988 -144.5813 989 -145.0631 990 -145.5456 991 -146.0288 992 -146.5125 993 -146.9969 994 -147.4819 995 -147.9675 996 -148.4537 997 -148.9406 998 -149.4281 999 -149.9162 1000 -150.4049 > # > POPT <- DC[583] > COPT <- ATC[583] > EXCESS <- (POPT - COPT) > PROF <- (EXCESS*583) > cat(POPT);cat("\n") 32.105 > cat(COPT);cat("\n") 28.00382 > cat(PROF);cat("\n") 2390.986 > # > > > #OLIGOPOLY WITH 4 FIRMS > #********************** > # > Collusive equilibrium is the same as with 2 firms assuming that the market Error: unexpected symbol in "Collusive equilibrium" > is twice as big. Error: unexpected symbol in "is twice" > # > ISALTDC <- PMON + (0.065/4)*435 # INTERSECTION OF DEVIANT FIRM'S DEMAND CURVE WITH PRICE AXIS > ALTDC <- ISALTDC -(0.065/4)*ISEQ # DEMAND CURVE OF THE DEVIANT FIRM > ALTMR <- ISALTDC -(0.065/2)*ISEQ # MARGINAL REVENUE CURVE OF SINGLE DEVIANT FIRM > AAMRMMC <- (ALTMR-MC) > > AAMRMMCMAT <- rbind(ISEQ, ALTMR-MC) > cat(AAMRMMCMAT);cat("\n") 1 13.83906 2 13.98666 3 14.13365 4 14.28003 5 14.4258 6 14.57097 7 14.71552 8 14.85947 9 15.00282 10 15.14555 11 15.28768 12 15.4292 13 15.57011 14 15.71041 15 15.85011 16 15.9892 17 16.12769 18 16.26556 19 16.40283 20 16.53949 21 16.67555 22 16.811 23 16.94584 24 17.08007 25 17.2137 26 17.34672 27 17.47914 28 17.61094 29 17.74215 30 17.87274 31 18.00273 32 18.13211 33 18.26088 34 18.38905 35 18.51661 36 18.64357 37 18.76992 38 18.89566 39 19.0208 40 19.14533 41 19.26925 42 19.39257 43 19.51528 44 19.63739 45 19.75889 46 19.87978 47 20.00007 48 20.11975 49 20.23883 50 20.3573 51 20.47517 52 20.59243 53 20.70908 54 20.82513 55 20.94057 56 21.05541 57 21.16964 58 21.28327 59 21.39629 60 21.5087 61 21.62051 62 21.73172 63 21.84232 64 21.95231 65 22.0617 66 22.17049 67 22.27866 68 22.38624 69 22.49321 70 22.59957 71 22.70533 72 22.81048 73 22.91503 74 23.01898 75 23.12232 76 23.22505 77 23.32718 78 23.42871 79 23.52963 80 23.62994 81 23.72966 82 23.82876 83 23.92726 84 24.02516 85 24.12246 86 24.21914 87 24.31523 88 24.41071 89 24.50559 90 24.59986 91 24.69353 92 24.78659 93 24.87905 94 24.9709 95 25.06215 96 25.1528 97 25.24284 98 25.33228 99 25.42112 100 25.50935 101 25.59698 102 25.684 103 25.77042 104 25.85624 105 25.94145 106 26.02606 107 26.11006 108 26.19346 109 26.27626 110 26.35846 111 26.44005 112 26.52103 113 26.60142 114 26.6812 115 26.76037 116 26.83895 117 26.91692 118 26.99428 119 27.07105 120 27.14721 121 27.22276 122 27.29772 123 27.37207 124 27.44582 125 27.51896 126 27.5915 127 27.66344 128 27.73477 129 27.80551 130 27.87564 131 27.94516 132 28.01409 133 28.08241 134 28.15012 135 28.21724 136 28.28375 137 28.34966 138 28.41497 139 28.47967 140 28.54377 141 28.60727 142 28.67017 143 28.73246 144 28.79416 145 28.85524 146 28.91573 147 28.97561 148 29.0349 149 29.09358 150 29.15165 151 29.20913 152 29.266 153 29.32227 154 29.37794 155 29.433 156 29.48747 157 29.54133 158 29.59459 159 29.64724 160 29.6993 161 29.75075 162 29.8016 163 29.85185 164 29.9015 165 29.95054 166 29.99898 167 30.04683 168 30.09406 169 30.1407 170 30.18674 171 30.23217 172 30.277 173 30.32123 174 30.36486 175 30.40789 176 30.45031 177 30.49214 178 30.53336 179 30.57398 180 30.614 181 30.65341 182 30.69223 183 30.73044 184 30.76806 185 30.80507 186 30.84148 187 30.87729 188 30.91249 189 30.9471 190 30.9811 191 31.01451 192 31.04731 193 31.07951 194 31.11111 195 31.14211 196 31.1725 197 31.2023 198 31.23149 199 31.26009 200 31.28808 201 31.31547 202 31.34226 203 31.36845 204 31.39404 205 31.41902 206 31.44341 207 31.46719 208 31.49038 209 31.51296 210 31.53494 211 31.55632 212 31.57711 213 31.59729 214 31.61686 215 31.63584 216 31.65422 217 31.672 218 31.68917 219 31.70575 220 31.72172 221 31.7371 222 31.75187 223 31.76604 224 31.77961 225 31.79258 226 31.80495 227 31.81673 228 31.82789 229 31.83846 230 31.84843 231 31.8578 232 31.86657 233 31.87474 234 31.8823 235 31.88927 236 31.89563 237 31.9014 238 31.90656 239 31.91113 240 31.91509 241 31.91846 242 31.92122 243 31.92339 244 31.92495 245 31.92591 246 31.92627 247 31.92604 248 31.9252 249 31.92376 250 31.92172 251 31.91909 252 31.91585 253 31.91201 254 31.90757 255 31.90253 256 31.89689 257 31.89066 258 31.88382 259 31.87638 260 31.86834 261 31.8597 262 31.85046 263 31.84062 264 31.83018 265 31.81915 266 31.80751 267 31.79527 268 31.78243 269 31.76899 270 31.75495 271 31.74032 272 31.72508 273 31.70924 274 31.6928 275 31.67577 276 31.65813 277 31.63989 278 31.62105 279 31.60162 280 31.58158 281 31.56095 282 31.53971 283 31.51787 284 31.49544 285 31.4724 286 31.44877 287 31.42454 288 31.3997 289 31.37427 290 31.34824 291 31.3216 292 31.29437 293 31.26654 294 31.23811 295 31.20908 296 31.17945 297 31.14922 298 31.11839 299 31.08696 300 31.05493 301 31.0223 302 30.98907 303 30.95524 304 30.92082 305 30.88579 306 30.85017 307 30.81394 308 30.77712 309 30.73969 310 30.70167 311 30.66305 312 30.62382 313 30.584 314 30.54358 315 30.50256 316 30.46094 317 30.41872 318 30.3759 319 30.33248 320 30.28847 321 30.24385 322 30.19863 323 30.15282 324 30.1064 325 30.05939 326 30.01177 327 29.96356 328 29.91475 329 29.86534 330 29.81533 331 29.76472 332 29.71351 333 29.6617 334 29.60929 335 29.55628 336 29.50268 337 29.44847 338 29.39367 339 29.33826 340 29.28226 341 29.22566 342 29.16846 343 29.11065 344 29.05225 345 28.99326 346 28.93366 347 28.87346 348 28.81266 349 28.75127 350 28.68927 351 28.62668 352 28.56348 353 28.49969 354 28.4353 355 28.37031 356 28.30471 357 28.23852 358 28.17174 359 28.10435 360 28.03636 361 27.96777 362 27.89859 363 27.8288 364 27.75842 365 27.68744 366 27.61586 367 27.54367 368 27.47089 369 27.39751 370 27.32354 371 27.24896 372 27.17378 373 27.098 374 27.02163 375 26.94466 376 26.86708 377 26.78891 378 26.71014 379 26.63077 380 26.5508 381 26.47023 382 26.38906 383 26.30729 384 26.22493 385 26.14196 386 26.05839 387 25.97423 388 25.88947 389 25.80411 390 25.71814 391 25.63158 392 25.54442 393 25.45666 394 25.36831 395 25.27935 396 25.18979 397 25.09964 398 25.00888 399 24.91753 400 24.82558 401 24.73302 402 24.63987 403 24.54612 404 24.45177 405 24.35682 406 24.26128 407 24.16513 408 24.06838 409 23.97104 410 23.87309 411 23.77455 412 23.67541 413 23.57567 414 23.47532 415 23.37438 416 23.27284 417 23.1707 418 23.06797 419 22.96463 420 22.86069 421 22.75616 422 22.65102 423 22.54529 424 22.43895 425 22.33202 426 22.22449 427 22.11636 428 22.00763 429 21.8983 430 21.78837 431 21.67784 432 21.56671 433 21.45498 434 21.34266 435 21.22973 436 21.11621 437 21.00208 438 20.88736 439 20.77204 440 20.65611 441 20.53959 442 20.42247 443 20.30475 444 20.18643 445 20.06751 446 19.94799 447 19.82788 448 19.70716 449 19.58584 450 19.46393 451 19.34141 452 19.2183 453 19.09458 454 18.97027 455 18.84535 456 18.71984 457 18.59373 458 18.46702 459 18.33971 460 18.2118 461 18.08329 462 17.95418 463 17.82447 464 17.69416 465 17.56325 466 17.43174 467 17.29963 468 17.16693 469 17.03362 470 16.89971 471 16.76521 472 16.6301 473 16.4944 474 16.35809 475 16.22119 476 16.08368 477 15.94558 478 15.80688 479 15.66757 480 15.52767 481 15.38717 482 15.24606 483 15.10436 484 14.96206 485 14.81916 486 14.67566 487 14.53156 488 14.38685 489 14.24155 490 14.09565 491 13.94915 492 13.80205 493 13.65435 494 13.50605 495 13.35715 496 13.20765 497 13.05755 498 12.90685 499 12.75555 500 12.60365 501 12.45115 502 12.29805 503 12.14435 504 11.99005 505 11.83515 506 11.67965 507 11.52355 508 11.36685 509 11.20955 510 11.05165 511 10.89315 512 10.73405 513 10.57435 514 10.41404 515 10.25314 516 10.09164 517 9.929539 518 9.766837 519 9.603534 520 9.439631 521 9.275128 522 9.110025 523 8.944321 524 8.778017 525 8.611113 526 8.443608 527 8.275503 528 8.106797 529 7.937491 530 7.767585 531 7.597078 532 7.42597 533 7.254262 534 7.081953 535 6.909044 536 6.735535 537 6.561424 538 6.386714 539 6.211402 540 6.03549 541 5.858977 542 5.681864 543 5.504149 544 5.325835 545 5.146919 546 4.967402 547 4.787285 548 4.606567 549 4.425248 550 4.243329 551 4.060808 552 3.877687 553 3.693965 554 3.509641 555 3.324717 556 3.139192 557 2.953066 558 2.766339 559 2.579011 560 2.391082 561 2.202551 562 2.01342 563 1.823688 564 1.633354 565 1.442419 566 1.250883 567 1.058746 568 0.8660079 569 0.6726683 570 0.4787275 571 0.2841853 572 0.08904185 573 -0.1067029 574 -0.3030491 575 -0.4999967 576 -0.6975456 577 -0.895696 578 -1.094448 579 -1.293801 580 -1.493756 581 -1.694312 582 -1.89547 583 -2.09723 584 -2.299591 585 -2.502553 586 -2.706118 587 -2.910284 588 -3.115051 589 -3.320421 590 -3.526392 591 -3.732965 592 -3.94014 593 -4.147916 594 -4.356295 595 -4.565275 596 -4.774857 597 -4.985041 598 -5.195827 599 -5.407215 600 -5.619205 601 -5.831797 602 -6.044991 603 -6.258788 604 -6.473186 605 -6.688186 606 -6.903789 607 -7.119994 608 -7.336801 609 -7.55421 610 -7.772221 611 -7.990835 612 -8.210051 613 -8.42987 614 -8.650291 615 -8.871314 616 -9.09294 617 -9.315168 618 -9.537999 619 -9.761432 620 -9.985467 621 -10.21011 622 -10.43535 623 -10.66119 624 -10.88764 625 -11.11469 626 -11.34234 627 -11.57059 628 -11.79945 629 -12.02891 630 -12.25897 631 -12.48964 632 -12.72091 633 -12.95278 634 -13.18525 635 -13.41833 636 -13.65201 637 -13.88629 638 -14.12118 639 -14.35667 640 -14.59276 641 -14.82946 642 -15.06676 643 -15.30466 644 -15.54317 645 -15.78228 646 -16.02199 647 -16.26231 648 -16.50323 649 -16.74475 650 -16.98687 651 -17.2296 652 -17.47294 653 -17.71687 654 -17.96141 655 -18.20656 656 -18.45231 657 -18.69866 658 -18.94561 659 -19.19317 660 -19.44133 661 -19.6901 662 -19.93947 663 -20.18945 664 -20.44002 665 -20.69121 666 -20.94299 667 -21.19538 668 -21.44838 669 -21.70198 670 -21.95618 671 -22.21098 672 -22.4664 673 -22.72241 674 -22.97903 675 -23.23625 676 -23.49408 677 -23.75252 678 -24.01155 679 -24.27119 680 -24.53144 681 -24.79229 682 -25.05375 683 -25.3158 684 -25.57847 685 -25.84174 686 -26.10561 687 -26.37009 688 -26.63517 689 -26.90086 690 -27.16715 691 -27.43405 692 -27.70155 693 -27.96966 694 -28.23837 695 -28.50769 696 -28.77762 697 -29.04814 698 -29.31928 699 -29.59101 700 -29.86336 701 -30.13631 702 -30.40986 703 -30.68402 704 -30.95879 705 -31.23416 706 -31.51013 707 -31.78671 708 -32.0639 709 -32.34169 710 -32.62009 711 -32.89909 712 -33.1787 713 -33.45892 714 -33.73974 715 -34.02117 716 -34.3032 717 -34.58584 718 -34.86908 719 -35.15293 720 -35.43739 721 -35.72245 722 -36.00812 723 -36.2944 724 -36.58128 725 -36.86877 726 -37.15686 727 -37.44556 728 -37.73487 729 -38.02478 730 -38.3153 731 -38.60642 732 -38.89816 733 -39.1905 734 -39.48344 735 -39.77699 736 -40.07115 737 -40.36592 738 -40.66129 739 -40.95727 740 -41.25386 741 -41.55105 742 -41.84885 743 -42.14726 744 -42.44627 745 -42.74589 746 -43.04612 747 -43.34695 748 -43.6484 749 -43.95045 750 -44.2531 751 -44.55637 752 -44.86024 753 -45.16472 754 -45.46981 755 -45.7755 756 -46.08181 757 -46.38872 758 -46.69623 759 -47.00436 760 -47.31309 761 -47.62243 762 -47.93238 763 -48.24294 764 -48.5541 765 -48.86587 766 -49.17826 767 -49.49124 768 -49.80484 769 -50.11905 770 -50.43386 771 -50.74928 772 -51.06531 773 -51.38195 774 -51.6992 775 -52.01705 776 -52.33552 777 -52.65459 778 -52.97427 779 -53.29456 780 -53.61546 781 -53.93696 782 -54.25908 783 -54.58181 784 -54.90514 785 -55.22908 786 -55.55363 787 -55.87879 788 -56.20456 789 -56.53094 790 -56.85793 791 -57.18553 792 -57.51374 793 -57.84255 794 -58.17198 795 -58.50201 796 -58.83266 797 -59.16391 798 -59.49578 799 -59.82825 800 -60.16133 801 -60.49503 802 -60.82933 803 -61.16424 804 -61.49976 805 -61.8359 806 -62.17264 807 -62.50999 808 -62.84795 809 -63.18653 810 -63.52571 811 -63.8655 812 -64.20591 813 -64.54692 814 -64.88855 815 -65.23078 816 -65.57363 817 -65.91708 818 -66.26115 819 -66.60583 820 -66.95112 821 -67.29702 822 -67.64353 823 -67.99065 824 -68.33838 825 -68.68672 826 -69.03568 827 -69.38524 828 -69.73542 829 -70.08621 830 -70.43761 831 -70.78962 832 -71.14224 833 -71.49547 834 -71.84932 835 -72.20377 836 -72.55884 837 -72.91452 838 -73.27081 839 -73.62772 840 -73.98523 841 -74.34336 842 -74.7021 843 -75.06145 844 -75.42141 845 -75.78199 846 -76.14317 847 -76.50497 848 -76.86739 849 -77.23041 850 -77.59405 851 -77.9583 852 -78.32316 853 -78.68863 854 -79.05472 855 -79.42142 856 -79.78873 857 -80.15666 858 -80.5252 859 -80.89435 860 -81.26411 861 -81.63449 862 -82.00548 863 -82.37708 864 -82.7493 865 -83.12213 866 -83.49557 867 -83.86963 868 -84.2443 869 -84.61959 870 -84.99548 871 -85.372 872 -85.74912 873 -86.12686 874 -86.50521 875 -86.88418 876 -87.26376 877 -87.64395 878 -88.02476 879 -88.40619 880 -88.78822 881 -89.17087 882 -89.55414 883 -89.93802 884 -90.32251 885 -90.70762 886 -91.09335 887 -91.47969 888 -91.86664 889 -92.25421 890 -92.64239 891 -93.03119 892 -93.4206 893 -93.81063 894 -94.20127 895 -94.59253 896 -94.9844 897 -95.37689 898 -95.76999 899 -96.16371 900 -96.55805 901 -96.953 902 -97.34856 903 -97.74474 904 -98.14154 905 -98.53895 906 -98.93698 907 -99.33562 908 -99.73489 909 -100.1348 910 -100.5353 911 -100.9364 912 -101.3381 913 -101.7404 914 -102.1434 915 -102.547 916 -102.9512 917 -103.356 918 -103.7614 919 -104.1674 920 -104.5741 921 -104.9814 922 -105.3892 923 -105.7978 924 -106.2069 925 -106.6166 926 -107.027 927 -107.438 928 -107.8496 929 -108.2618 930 -108.6746 931 -109.088 932 -109.5021 933 -109.9168 934 -110.3321 935 -110.748 936 -111.1645 937 -111.5817 938 -111.9995 939 -112.4178 940 -112.8369 941 -113.2565 942 -113.6767 943 -114.0976 944 -114.5191 945 -114.9412 946 -115.3639 947 -115.7872 948 -116.2112 949 -116.6357 950 -117.0609 951 -117.4867 952 -117.9132 953 -118.3402 954 -118.7679 955 -119.1962 956 -119.6251 957 -120.0546 958 -120.4848 959 -120.9155 960 -121.3469 961 -121.7789 962 -122.2115 963 -122.6448 964 -123.0786 965 -123.5131 966 -123.9482 967 -124.384 968 -124.8203 969 -125.2573 970 -125.6948 971 -126.133 972 -126.5719 973 -127.0113 974 -127.4514 975 -127.8921 976 -128.3334 977 -128.7753 978 -129.2179 979 -129.661 980 -130.1048 981 -130.5492 982 -130.9943 983 -131.4399 984 -131.8862 985 -132.3331 986 -132.7806 987 -133.2287 988 -133.6775 989 -134.1269 990 -134.5769 991 -135.0275 992 -135.4788 993 -135.9306 994 -136.3831 995 -136.8362 996 -137.29 997 -137.7443 998 -138.1993 999 -138.6549 1000 -139.1112 > QDEVF <- 572 > ADDPROF <- sum(AAMRMMC[436:572]) > cat(ADDPROF);cat("\n") 1578.348 > TOTPROF <- sum(AAMRMMC[1:572]) > PROFTO435 <- sum(AAMRMMC[1:435] + cat(TOTPROF);cat("\n") Error: unexpected symbol in: "PROFTO435 <- sum(AAMRMMC[1:435] cat" > cat(PROFTO435);cat("\n") Error in cat(PROFTO435) : object 'PROFTO435' not found > PROFTO435+ADDPROF Error: object 'PROFTO435' not found > # > PDEVF <- ALTDC[572] > ATCDEVF <- ATC[572] > ATCOTHF <- ATC[435] > cat(QDEVF);cat("\n") 572 > cat(PDEVF);cat("\n") 39.49875 > cat(ATCDEVF);cat("\n") 27.95569 > cat(ATCOTHF);cat("\n") 29.79891 > DFPROF <- (PDEVF - ATCDEVF)*573 > OFPROF <- (PDEVF - ATCOTHF)*435 > cat(DFPROF);cat("\n") 6614.173 > cat(OFPROF);cat("\n") 4219.428 > cat(MONPROF);cat("\n") 5187.847 > # > # COURNOT EQUILIBRIUM > # > DCCRN <- (70 - (.065/4)*3*ISEQ) - (.065/4)*ISEQ # FIRM'S DEMAND CURVE UNDER COURNOT EQUILIBRIUM > MRCRN <- (70 - (.065/4)*3*ISEQ) - (.065/2)*ISEQ # FIRM'S MARGINAL REVENUE CURVE UNDER COURNOT EQLM. > # > CRNMRMCMAT <- rbind(ISEQ, MRCRN-MC) > cat(CRNMRMCMAT) 1 34.99656 2 35.09541 3 35.19365 4 35.29128 5 35.3883 6 35.48472 7 35.58052 8 35.67572 9 35.77032 10 35.8643 11 35.95768 12 36.05045 13 36.14261 14 36.23416 15 36.32511 16 36.41545 17 36.50519 18 36.59431 19 36.68283 20 36.77074 21 36.85805 22 36.94475 23 37.03084 24 37.11632 25 37.2012 26 37.28547 27 37.36914 28 37.45219 29 37.53465 30 37.61649 31 37.69773 32 37.77836 33 37.85838 34 37.9378 35 38.01661 36 38.09482 37 38.17242 38 38.24941 39 38.3258 40 38.40158 41 38.47675 42 38.55132 43 38.62528 44 38.69864 45 38.77139 46 38.84353 47 38.91507 48 38.986 49 39.05633 50 39.12605 51 39.19517 52 39.26368 53 39.33158 54 39.39888 55 39.46557 56 39.53166 57 39.59714 58 39.66202 59 39.72629 60 39.78995 61 39.85301 62 39.91547 63 39.97732 64 40.03856 65 40.0992 66 40.15924 67 40.21866 68 40.27749 69 40.33571 70 40.39332 71 40.45033 72 40.50673 73 40.56253 74 40.61773 75 40.67232 76 40.7263 77 40.77968 78 40.83246 79 40.88463 80 40.93619 81 40.98716 82 41.03751 83 41.08726 84 41.13641 85 41.18496 86 41.23289 87 41.28023 88 41.32696 89 41.37309 90 41.41861 91 41.46353 92 41.50784 93 41.55155 94 41.59465 95 41.63715 96 41.67905 97 41.72034 98 41.76103 99 41.80112 100 41.8406 101 41.87948 102 41.91775 103 41.95542 104 41.99249 105 42.02895 106 42.06481 107 42.10006 108 42.13471 109 42.16876 110 42.20221 111 42.23505 112 42.26728 113 42.29892 114 42.32995 115 42.36037 116 42.3902 117 42.41942 118 42.44803 119 42.47605 120 42.50346 121 42.53026 122 42.55647 123 42.58207 124 42.60707 125 42.63146 126 42.65525 127 42.67844 128 42.70102 129 42.72301 130 42.74439 131 42.76516 132 42.78534 133 42.80491 134 42.82387 135 42.84224 136 42.86 137 42.87716 138 42.89372 139 42.90967 140 42.92502 141 42.93977 142 42.95392 143 42.96746 144 42.98041 145 42.99274 146 43.00448 147 43.01561 148 43.02615 149 43.03608 150 43.0454 151 43.05413 152 43.06225 153 43.06977 154 43.07669 155 43.083 156 43.08872 157 43.09383 158 43.09834 159 43.10224 160 43.10555 161 43.10825 162 43.11035 163 43.11185 164 43.11275 165 43.11304 166 43.11273 167 43.11183 168 43.11031 169 43.1082 170 43.10549 171 43.10217 172 43.09825 173 43.09373 174 43.08861 175 43.08289 176 43.07656 177 43.06964 178 43.06211 179 43.05398 180 43.04525 181 43.03591 182 43.02598 183 43.01544 184 43.00431 185 42.99257 186 42.98023 187 42.96729 188 42.95374 189 42.9396 190 42.92485 191 42.90951 192 42.89356 193 42.87701 194 42.85986 195 42.84211 196 42.82375 197 42.8048 198 42.78524 199 42.76509 200 42.74433 201 42.72297 202 42.70101 203 42.67845 204 42.65529 205 42.63152 206 42.60716 207 42.58219 208 42.55663 209 42.53046 210 42.50369 211 42.47632 212 42.44836 213 42.41979 214 42.39061 215 42.36084 216 42.33047 217 42.2995 218 42.26792 219 42.23575 220 42.20297 221 42.1696 222 42.13562 223 42.10104 224 42.06586 225 42.03008 226 41.9937 227 41.95673 228 41.91914 229 41.88096 230 41.84218 231 41.8028 232 41.76282 233 41.72224 234 41.68105 235 41.63927 236 41.59688 237 41.5539 238 41.51031 239 41.46613 240 41.42134 241 41.37596 242 41.32997 243 41.28339 244 41.2362 245 41.18841 246 41.14002 247 41.09104 248 41.04145 249 40.99126 250 40.94047 251 40.88909 252 40.8371 253 40.78451 254 40.73132 255 40.67753 256 40.62314 257 40.56816 258 40.51257 259 40.45638 260 40.39959 261 40.3422 262 40.28421 263 40.22562 264 40.16643 265 40.10665 266 40.04626 267 39.98527 268 39.92368 269 39.86149 270 39.7987 271 39.73532 272 39.67133 273 39.60674 274 39.54155 275 39.47577 276 39.40938 277 39.34239 278 39.2748 279 39.20662 280 39.13783 281 39.06845 282 38.99846 283 38.92787 284 38.85669 285 38.7849 286 38.71252 287 38.63954 288 38.56595 289 38.49177 290 38.41699 291 38.3416 292 38.26562 293 38.18904 294 38.11186 295 38.03408 296 37.9557 297 37.87672 298 37.79714 299 37.71696 300 37.63618 301 37.5548 302 37.47282 303 37.39024 304 37.30707 305 37.22329 306 37.13892 307 37.05394 308 36.96837 309 36.88219 310 36.79542 311 36.70805 312 36.62007 313 36.5315 314 36.44233 315 36.35256 316 36.26219 317 36.17122 318 36.07965 319 35.98748 320 35.89472 321 35.80135 322 35.70738 323 35.61282 324 35.51765 325 35.42189 326 35.32552 327 35.22856 328 35.131 329 35.03284 330 34.93408 331 34.83472 332 34.73476 333 34.6342 334 34.53304 335 34.43128 336 34.32893 337 34.22597 338 34.12242 339 34.01826 340 33.91351 341 33.80816 342 33.70221 343 33.59565 344 33.4885 345 33.38076 346 33.27241 347 33.16346 348 33.05391 349 32.94377 350 32.83302 351 32.72168 352 32.60973 353 32.49719 354 32.38405 355 32.27031 356 32.15596 357 32.04102 358 31.92549 359 31.80935 360 31.69261 361 31.57527 362 31.45734 363 31.3388 364 31.21967 365 31.09994 366 30.97961 367 30.85867 368 30.73714 369 30.61501 370 30.49229 371 30.36896 372 30.24503 373 30.1205 374 29.99538 375 29.86966 376 29.74333 377 29.61641 378 29.48889 379 29.36077 380 29.23205 381 29.10273 382 28.97281 383 28.84229 384 28.71118 385 28.57946 386 28.44714 387 28.31423 388 28.18072 389 28.04661 390 27.91189 391 27.77658 392 27.64067 393 27.50416 394 27.36706 395 27.22935 396 27.09104 397 26.95214 398 26.81263 399 26.67253 400 26.53183 401 26.39052 402 26.24862 403 26.10612 404 25.96302 405 25.81932 406 25.67503 407 25.53013 408 25.38463 409 25.23854 410 25.09184 411 24.94455 412 24.79666 413 24.64817 414 24.49907 415 24.34938 416 24.19909 417 24.0482 418 23.89672 419 23.74463 420 23.59194 421 23.43866 422 23.28477 423 23.13029 424 22.9752 425 22.81952 426 22.66324 427 22.50636 428 22.34888 429 22.1908 430 22.03212 431 21.87284 432 21.71296 433 21.55248 434 21.39141 435 21.22973 436 21.06746 437 20.90458 438 20.74111 439 20.57704 440 20.41236 441 20.24709 442 20.08122 443 19.91475 444 19.74768 445 19.58001 446 19.41174 447 19.24288 448 19.07341 449 18.90334 450 18.73268 451 18.56141 452 18.38955 453 18.21708 454 18.04402 455 17.87035 456 17.69609 457 17.52123 458 17.34577 459 17.16971 460 16.99305 461 16.81579 462 16.63793 463 16.45947 464 16.28041 465 16.10075 466 15.92049 467 15.73963 468 15.55818 469 15.37612 470 15.19346 471 15.01021 472 14.82635 473 14.6419 474 14.45684 475 14.27119 476 14.08493 477 13.89808 478 13.71063 479 13.52257 480 13.33392 481 13.14467 482 12.95481 483 12.76436 484 12.57331 485 12.38166 486 12.18941 487 11.99656 488 11.8031 489 11.60905 490 11.4144 491 11.21915 492 11.0233 493 10.82685 494 10.6298 495 10.43215 496 10.2339 497 10.03505 498 9.8356 499 9.63555 500 9.4349 501 9.23365 502 9.0318 503 8.82935 504 8.6263 505 8.42265 506 8.2184 507 8.013549 508 7.808099 509 7.602048 510 7.395398 511 7.188147 512 6.980296 513 6.771845 514 6.562794 515 6.353142 516 6.142891 517 5.932039 518 5.720587 519 5.508534 520 5.295881 521 5.082628 522 4.868775 523 4.654321 524 4.439267 525 4.223613 526 4.007358 527 3.790503 528 3.573047 529 3.354991 530 3.136335 531 2.917078 532 2.69722 533 2.476762 534 2.255703 535 2.034044 536 1.811785 537 1.588924 538 1.365464 539 1.141402 540 0.9167399 541 0.6914771 542 0.4656136 543 0.2391494 544 0.0120845 545 -0.2155811 546 -0.4438475 547 -0.6727147 548 -0.9021827 549 -1.132252 550 -1.362921 551 -1.594192 552 -1.826063 553 -2.058535 554 -2.291609 555 -2.525283 556 -2.759558 557 -2.994434 558 -3.229911 559 -3.465989 560 -3.702668 561 -3.939949 562 -4.17783 563 -4.416312 564 -4.655396 565 -4.895081 566 -5.135367 567 -5.376254 568 -5.617742 569 -5.859832 570 -6.102523 571 -6.345815 572 -6.589708 573 -6.834203 574 -7.079299 575 -7.324997 576 -7.571296 577 -7.818196 578 -8.065698 579 -8.313801 580 -8.562506 581 -8.811812 582 -9.06172 583 -9.31223 584 -9.563341 585 -9.815053 586 -10.06737 587 -10.32028 588 -10.5738 589 -10.82792 590 -11.08264 591 -11.33796 592 -11.59389 593 -11.85042 594 -12.10754 595 -12.36527 596 -12.62361 597 -12.88254 598 -13.14208 599 -13.40222 600 -13.66296 601 -13.9243 602 -14.18624 603 -14.44879 604 -14.71194 605 -14.97569 606 -15.24004 607 -15.50499 608 -15.77055 609 -16.03671 610 -16.30347 611 -16.57084 612 -16.8388 613 -17.10737 614 -17.37654 615 -17.64631 616 -17.91669 617 -18.18767 618 -18.45925 619 -18.73143 620 -19.00422 621 -19.27761 622 -19.5516 623 -19.82619 624 -20.10139 625 -20.37719 626 -20.65359 627 -20.93059 628 -21.2082 629 -21.48641 630 -21.76522 631 -22.04464 632 -22.32466 633 -22.60528 634 -22.8865 635 -23.16833 636 -23.45076 637 -23.73379 638 -24.01743 639 -24.30167 640 -24.58651 641 -24.87196 642 -25.15801 643 -25.44466 644 -25.73192 645 -26.01978 646 -26.30824 647 -26.59731 648 -26.88698 649 -27.17725 650 -27.46812 651 -27.7596 652 -28.05169 653 -28.34437 654 -28.63766 655 -28.93156 656 -29.22606 657 -29.52116 658 -29.81686 659 -30.11317 660 -30.41008 661 -30.7076 662 -31.00572 663 -31.30445 664 -31.60377 665 -31.90371 666 -32.20424 667 -32.50538 668 -32.80713 669 -33.10948 670 -33.41243 671 -33.71598 672 -34.02015 673 -34.32491 674 -34.63028 675 -34.93625 676 -35.24283 677 -35.55002 678 -35.8578 679 -36.16619 680 -36.47519 681 -36.78479 682 -37.095 683 -37.4058 684 -37.71722 685 -38.02924 686 -38.34186 687 -38.65509 688 -38.96892 689 -39.28336 690 -39.5984 691 -39.91405 692 -40.2303 693 -40.54716 694 -40.86462 695 -41.18269 696 -41.50137 697 -41.82064 698 -42.14053 699 -42.46101 700 -42.78211 701 -43.10381 702 -43.42611 703 -43.74902 704 -44.07254 705 -44.39666 706 -44.72138 707 -45.04671 708 -45.37265 709 -45.69919 710 -46.02634 711 -46.35409 712 -46.68245 713 -47.01142 714 -47.34099 715 -47.67117 716 -48.00195 717 -48.33334 718 -48.66533 719 -48.99793 720 -49.33114 721 -49.66495 722 -49.99937 723 -50.3344 724 -50.67003 725 -51.00627 726 -51.34311 727 -51.68056 728 -52.01862 729 -52.35728 730 -52.69655 731 -53.03642 732 -53.37691 733 -53.718 734 -54.05969 735 -54.40199 736 -54.7449 737 -55.08842 738 -55.43254 739 -55.77727 740 -56.12261 741 -56.46855 742 -56.8151 743 -57.16226 744 -57.51002 745 -57.85839 746 -58.20737 747 -58.55695 748 -58.90715 749 -59.25795 750 -59.60935 751 -59.96137 752 -60.31399 753 -60.66722 754 -61.02106 755 -61.3755 756 -61.73056 757 -62.08622 758 -62.44248 759 -62.79936 760 -63.15684 761 -63.51493 762 -63.87363 763 -64.23294 764 -64.59285 765 -64.95337 766 -65.31451 767 -65.67624 768 -66.03859 769 -66.40155 770 -66.76511 771 -67.12928 772 -67.49406 773 -67.85945 774 -68.22545 775 -68.59205 776 -68.95927 777 -69.32709 778 -69.69552 779 -70.06456 780 -70.43421 781 -70.80446 782 -71.17533 783 -71.54681 784 -71.91889 785 -72.29158 786 -72.66488 787 -73.03879 788 -73.41331 789 -73.78844 790 -74.16418 791 -74.54053 792 -74.91749 793 -75.29505 794 -75.67323 795 -76.05201 796 -76.43141 797 -76.81141 798 -77.19203 799 -77.57325 800 -77.95508 801 -78.33753 802 -78.72058 803 -79.10424 804 -79.48851 805 -79.8734 806 -80.25889 807 -80.64499 808 -81.0317 809 -81.41903 810 -81.80696 811 -82.1955 812 -82.58466 813 -82.97442 814 -83.3648 815 -83.75578 816 -84.14738 817 -84.53958 818 -84.9324 819 -85.32583 820 -85.71987 821 -86.11452 822 -86.50978 823 -86.90565 824 -87.30213 825 -87.69922 826 -88.09693 827 -88.49524 828 -88.89417 829 -89.29371 830 -89.69386 831 -90.09462 832 -90.49599 833 -90.89797 834 -91.30057 835 -91.70377 836 -92.10759 837 -92.51202 838 -92.91706 839 -93.32272 840 -93.72898 841 -94.13586 842 -94.54335 843 -94.95145 844 -95.36016 845 -95.76949 846 -96.17942 847 -96.58997 848 -97.00114 849 -97.41291 850 -97.8253 851 -98.2383 852 -98.65191 853 -99.06613 854 -99.48097 855 -99.89642 856 -100.3125 857 -100.7292 858 -101.1464 859 -101.5643 860 -101.9829 861 -102.402 862 -102.8217 863 -103.2421 864 -103.6631 865 -104.0846 866 -104.5068 867 -104.9296 868 -105.3531 869 -105.7771 870 -106.2017 871 -106.627 872 -107.0529 873 -107.4794 874 -107.9065 875 -108.3342 876 -108.7625 877 -109.1915 878 -109.621 879 -110.0512 880 -110.482 881 -110.9134 882 -111.3454 883 -111.778 884 -112.2113 885 -112.6451 886 -113.0796 887 -113.5147 888 -113.9504 889 -114.3867 890 -114.8236 891 -115.2612 892 -115.6993 893 -116.1381 894 -116.5775 895 -117.0175 896 -117.4582 897 -117.8994 898 -118.3412 899 -118.7837 900 -119.2268 901 -119.6705 902 -120.1148 903 -120.5597 904 -121.0053 905 -121.4515 906 -121.8982 907 -122.3456 908 -122.7936 909 -123.2423 910 -123.6915 911 -124.1414 912 -124.5918 913 -125.0429 914 -125.4946 915 -125.947 916 -126.3999 917 -126.8535 918 -127.3076 919 -127.7624 920 -128.2178 921 -128.6739 922 -129.1305 923 -129.5878 924 -130.0456 925 -130.5041 926 -130.9632 927 -131.423 928 -131.8833 929 -132.3443 930 -132.8058 931 -133.268 932 -133.7309 933 -134.1943 934 -134.6583 935 -135.123 936 -135.5883 937 -136.0542 938 -136.5207 939 -136.9878 940 -137.4556 941 -137.924 942 -138.393 943 -138.8626 944 -139.3328 945 -139.8037 946 -140.2751 947 -140.7472 948 -141.2199 949 -141.6932 950 -142.1672 951 -142.6417 952 -143.1169 953 -143.5927 954 -144.0691 955 -144.5462 956 -145.0238 957 -145.5021 958 -145.981 959 -146.4605 960 -146.9407 961 -147.4214 962 -147.9028 963 -148.3848 964 -148.8674 965 -149.3506 966 -149.8345 967 -150.319 968 -150.804 969 -151.2898 970 -151.7761 971 -152.263 972 -152.7506 973 -153.2388 974 -153.7276 975 -154.2171 976 -154.7071 977 -155.1978 978 -155.6891 979 -156.181 980 -156.6736 981 -157.1667 982 -157.6605 983 -158.1549 984 -158.6499 985 -159.1456 986 -159.6419 987 -160.1387 988 -160.6363 989 -161.1344 990 -161.6331 991 -162.1325 992 -162.6325 993 -163.1331 994 -163.6344 995 -164.1362 996 -164.6387 997 -165.1418 998 -165.6456 999 -166.1499 1000 -166.6549> # > PLTDC <- (70 - (.065/4)*3*543) - ((.065/4)*ISEQ) > PLTMR <- (70 - (.065/4)*3*543) - ((.065/2)*ISEQ) > PCDF4 <- PLTDC[543] > ATCF4 <- ATC[543] > CFPROF <- 543*(PCDF4-ATCF4) > cat(CFPROF);cat("\n") 3660.056 > # > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + main="Collusive Firm Equilibrium") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(DC,lty=1) > lines(MR,lty=1) > abline(v=435,lty=3) > > > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + main="Cournot Firm Equilibrium") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(PLTDC,lty=1) > lines(PLTMR,lty=1) > abline(v=543,lty=3) > abline(v=435,lty=3) > > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + main="Deviant Firm Equilibrium") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(ALTDC,lty=1) > lines(ALTMR,lty=1) > lines(DC,lty=2) > lines(MR,lty=2) > abline(v=573,lty=3) > abline(v=435,lty=3) > > > > jpg("colplot4.jpg") Error: could not find function "jpg" > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + main="The Firm's Total Revenue, Marginal Revenue and Cost Curves") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(DC,lty=1) > lines(MR,lty=1) > abline(v=435,lty=3) > dev.off() null device 1 > # > jpg("plotdevf4.jpg") Error: could not find function "jpg" > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + #ylab="Average and Marginal Cost: Price and Marginal Revenue", + main="The Deviant Firm's Equilibrium") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(ALTDC,lty=1) > lines(ALTMR,lty=1) > lines(DC,lty=2) > lines(MR,lty=2) > abline(v=518,lty=3) > abline(v=435,lty=3) > dev.off() null device 1 > # > jpg("pltcourn4.jpg") Error: could not find function "jpg" > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + main="The Cournot Firm's Equilibrium") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(PLTDC,lty=1) > lines(PLTMR,lty=1) > abline(v=QCRN,lty=3) > abline(v=435,lty=3) > dev.off( ) null device 1 > # > #OLIGOPOLY WITH 10 FIRMS > #********************** > # > #Collusive equilibrium is the same as with 2 firms assuming that the market > #is five times as big. > # > ISALTDC <- PMON + (0.065/10)*435 # INTERSECTION OF DEVIANT FIRM'S DEMAND CURVE WITH PRICE AXIS > ALTDC <- ISALTDC -(0.065/10)*ISEQ # DEMAND CURVE OF THE DEVIANT FIRM > ALTMR <- ISALTDC -(0.065/5)*ISEQ # MARGINAL REVENUE CURVE OF SINGLE DEVIANT FIRM > AAMRMMC <- abs(ALTMR-MC) > AAMRMMCMAT <- rbind(ISEQ, ALTMR-MC) > cat(AAMRMMCMAT) 1 9.617314 2 9.78441 3 9.950898 4 10.11678 5 10.28205 6 10.44672 7 10.61077 8 10.77422 9 10.93707 10 11.0993 11 11.26093 12 11.42195 13 11.58236 14 11.74216 15 11.90136 16 12.05995 17 12.21794 18 12.37531 19 12.53208 20 12.68824 21 12.8438 22 12.99875 23 13.15309 24 13.30682 25 13.45995 26 13.61247 27 13.76439 28 13.91569 29 14.0664 30 14.21649 31 14.36598 32 14.51486 33 14.66313 34 14.8108 35 14.95786 36 15.10432 37 15.25017 38 15.39541 39 15.54005 40 15.68408 41 15.8275 42 15.97032 43 16.11253 44 16.25414 45 16.39514 46 16.53553 47 16.67532 48 16.8145 49 16.95308 50 17.09105 51 17.22842 52 17.36518 53 17.50133 54 17.63688 55 17.77182 56 17.90616 57 18.03989 58 18.17302 59 18.30554 60 18.43745 61 18.56876 62 18.69947 63 18.82957 64 18.95906 65 19.08795 66 19.21624 67 19.34391 68 19.47099 69 19.59746 70 19.72332 71 19.84858 72 19.97323 73 20.09728 74 20.22073 75 20.34357 76 20.4658 77 20.58743 78 20.70846 79 20.82888 80 20.94869 81 21.06791 82 21.18651 83 21.30451 84 21.42191 85 21.53871 86 21.65489 87 21.77048 88 21.88546 89 21.99984 90 22.11361 91 22.22678 92 22.33934 93 22.4513 94 22.56265 95 22.6734 96 22.78355 97 22.89309 98 23.00203 99 23.11037 100 23.2181 101 23.32523 102 23.43175 103 23.53767 104 23.64299 105 23.7477 106 23.85181 107 23.95531 108 24.05821 109 24.16051 110 24.26221 111 24.3633 112 24.46378 113 24.56367 114 24.66295 115 24.76162 116 24.8597 117 24.95717 118 25.05403 119 25.1503 120 25.24596 121 25.34101 122 25.43547 123 25.52932 124 25.62257 125 25.71521 126 25.80725 127 25.89869 128 25.98952 129 26.07976 130 26.16939 131 26.25841 132 26.34684 133 26.43466 134 26.52187 135 26.60849 136 26.6945 137 26.77991 138 26.86472 139 26.94892 140 27.03252 141 27.11552 142 27.19792 143 27.27971 144 27.36091 145 27.44149 146 27.52148 147 27.60086 148 27.67965 149 27.75783 150 27.8354 151 27.91238 152 27.98875 153 28.06452 154 28.13969 155 28.21425 156 28.28822 157 28.36158 158 28.43434 159 28.50649 160 28.57805 161 28.649 162 28.71935 163 28.7891 164 28.85825 165 28.92679 166 28.99473 167 29.06208 168 29.12881 169 29.19495 170 29.26049 171 29.32542 172 29.38975 173 29.45348 174 29.51661 175 29.57914 176 29.64106 177 29.70239 178 29.76311 179 29.82323 180 29.88275 181 29.94166 182 29.99998 183 30.05769 184 30.11481 185 30.17132 186 30.22723 187 30.28254 188 30.33724 189 30.39135 190 30.44485 191 30.49776 192 30.55006 193 30.60176 194 30.65286 195 30.70336 196 30.75325 197 30.80255 198 30.85124 199 30.89934 200 30.94683 201 30.99372 202 31.04001 203 31.0857 204 31.13079 205 31.17527 206 31.21916 207 31.26244 208 31.30513 209 31.34721 210 31.38869 211 31.42957 212 31.46986 213 31.50954 214 31.54861 215 31.58709 216 31.62497 217 31.66225 218 31.69892 219 31.735 220 31.77047 221 31.80535 222 31.83962 223 31.87329 224 31.90636 225 31.93883 226 31.9707 227 32.00198 228 32.03264 229 32.06271 230 32.09218 231 32.12105 232 32.14932 233 32.17699 234 32.20405 235 32.23052 236 32.25638 237 32.28165 238 32.30631 239 32.33038 240 32.35384 241 32.37671 242 32.39897 243 32.42064 244 32.4417 245 32.46216 246 32.48202 247 32.50129 248 32.51995 249 32.53801 250 32.55547 251 32.57234 252 32.5886 253 32.60426 254 32.61932 255 32.63378 256 32.64764 257 32.66091 258 32.67357 259 32.68563 260 32.69709 261 32.70795 262 32.71821 263 32.72787 264 32.73693 265 32.7454 266 32.75326 267 32.76052 268 32.76718 269 32.77324 270 32.7787 271 32.78357 272 32.78783 273 32.79149 274 32.79455 275 32.79702 276 32.79888 277 32.80014 278 32.8008 279 32.80087 280 32.80033 281 32.7992 282 32.79746 283 32.79512 284 32.79219 285 32.78865 286 32.78452 287 32.77979 288 32.77445 289 32.76852 290 32.76199 291 32.75485 292 32.74712 293 32.73879 294 32.72986 295 32.72033 296 32.7102 297 32.69947 298 32.68814 299 32.67621 300 32.66368 301 32.65055 302 32.63682 303 32.62249 304 32.60757 305 32.59204 306 32.57592 307 32.55919 308 32.54187 309 32.52394 310 32.50542 311 32.4863 312 32.46657 313 32.44625 314 32.42533 315 32.40381 316 32.38169 317 32.35897 318 32.33565 319 32.31173 320 32.28722 321 32.2621 322 32.23638 323 32.21007 324 32.18315 325 32.15564 326 32.12752 327 32.09881 328 32.0695 329 32.03959 330 32.00908 331 31.97797 332 31.94626 333 31.91395 334 31.88104 335 31.84753 336 31.81343 337 31.77872 338 31.74342 339 31.70751 340 31.67101 341 31.63391 342 31.59621 343 31.5579 344 31.519 345 31.47951 346 31.43941 347 31.39871 348 31.35741 349 31.31552 350 31.27302 351 31.22993 352 31.18623 353 31.14194 354 31.09705 355 31.05156 356 31.00546 357 30.95877 358 30.91149 359 30.8636 360 30.81511 361 30.76602 362 30.71634 363 30.66605 364 30.61517 365 30.56369 366 30.51161 367 30.45892 368 30.40564 369 30.35176 370 30.29729 371 30.24221 372 30.18653 373 30.13025 374 30.07338 375 30.01591 376 29.95783 377 29.89916 378 29.83989 379 29.78002 380 29.71955 381 29.65848 382 29.59681 383 29.53454 384 29.47168 385 29.40821 386 29.34414 387 29.27948 388 29.21422 389 29.14836 390 29.08189 391 29.01483 392 28.94717 393 28.87891 394 28.81006 395 28.7406 396 28.67054 397 28.59989 398 28.52863 399 28.45678 400 28.38433 401 28.31127 402 28.23762 403 28.16337 404 28.08852 405 28.01307 406 27.93703 407 27.86038 408 27.78313 409 27.70529 410 27.62684 411 27.5478 412 27.46816 413 27.38792 414 27.30707 415 27.22563 416 27.14359 417 27.06095 418 26.97772 419 26.89388 420 26.80944 421 26.72441 422 26.63877 423 26.55254 424 26.4657 425 26.37827 426 26.29024 427 26.20161 428 26.11238 429 26.02255 430 25.93212 431 25.84109 432 25.74946 433 25.65723 434 25.56441 435 25.47098 436 25.37696 437 25.28233 438 25.18711 439 25.09129 440 24.99486 441 24.89784 442 24.80022 443 24.702 444 24.60318 445 24.50376 446 24.40374 447 24.30313 448 24.20191 449 24.10009 450 23.99768 451 23.89466 452 23.79105 453 23.68683 454 23.58202 455 23.4766 456 23.37059 457 23.26398 458 23.15677 459 23.04896 460 22.94055 461 22.83154 462 22.72193 463 22.61172 464 22.50091 465 22.3895 466 22.27749 467 22.16488 468 22.05168 469 21.93787 470 21.82346 471 21.70846 472 21.59285 473 21.47665 474 21.35984 475 21.24244 476 21.12443 477 21.00583 478 20.88663 479 20.76682 480 20.64642 481 20.52542 482 20.40381 483 20.28161 484 20.15881 485 20.03541 486 19.91141 487 19.78681 488 19.6616 489 19.5358 490 19.4094 491 19.2824 492 19.1548 493 19.0266 494 18.8978 495 18.7684 496 18.6384 497 18.5078 498 18.3766 499 18.2448 500 18.1124 501 17.9794 502 17.8458 503 17.7116 504 17.5768 505 17.4414 506 17.3054 507 17.1688 508 17.0316 509 16.8938 510 16.7554 511 16.6164 512 16.4768 513 16.3366 514 16.19579 515 16.05439 516 15.91239 517 15.76979 518 15.62659 519 15.48278 520 15.33838 521 15.19338 522 15.04778 523 14.90157 524 14.75477 525 14.60736 526 14.45936 527 14.31075 528 14.16155 529 14.01174 530 13.86133 531 13.71033 532 13.55872 533 13.40651 534 13.2537 535 13.10029 536 12.94628 537 12.79167 538 12.63646 539 12.48065 540 12.32424 541 12.16723 542 12.00961 543 11.8514 544 11.69258 545 11.53317 546 11.37315 547 11.21254 548 11.05132 549 10.8895 550 10.72708 551 10.56406 552 10.40044 553 10.23621 554 10.07139 555 9.905967 556 9.739942 557 9.573316 558 9.406089 559 9.238261 560 9.069832 561 8.900801 562 8.73117 563 8.560938 564 8.390104 565 8.218669 566 8.046633 567 7.873996 568 7.700758 569 7.526918 570 7.352477 571 7.177435 572 7.001792 573 6.825547 574 6.648701 575 6.471253 576 6.293204 577 6.114554 578 5.935302 579 5.755449 580 5.574994 581 5.393938 582 5.21228 583 5.03002 584 4.847159 585 4.663697 586 4.479632 587 4.294966 588 4.109699 589 3.923829 590 3.737358 591 3.550285 592 3.36261 593 3.174334 594 2.985455 595 2.795975 596 2.605893 597 2.415209 598 2.223923 599 2.032035 600 1.839545 601 1.646453 602 1.452759 603 1.258462 604 1.063564 605 0.8680638 606 0.6719612 607 0.4752564 608 0.2779494 609 0.08004017 610 -0.1184713 611 -0.3175851 612 -0.5173013 613 -0.7176198 614 -0.9185406 615 -1.120064 616 -1.32219 617 -1.524918 618 -1.728249 619 -1.932182 620 -2.136717 621 -2.341856 622 -2.547597 623 -2.75394 624 -2.960887 625 -3.168436 626 -3.376587 627 -3.585342 628 -3.794699 629 -4.004659 630 -4.215222 631 -4.426388 632 -4.638156 633 -4.850528 634 -5.063502 635 -5.27708 636 -5.491261 637 -5.706044 638 -5.921431 639 -6.137421 640 -6.354014 641 -6.57121 642 -6.789009 643 -7.007412 644 -7.226418 645 -7.446027 646 -7.66624 647 -7.887056 648 -8.108475 649 -8.330498 650 -8.553124 651 -8.776354 652 -9.000187 653 -9.224624 654 -9.449664 655 -9.675308 656 -9.901556 657 -10.12841 658 -10.35586 659 -10.58392 660 -10.81258 661 -11.04185 662 -11.27172 663 -11.5022 664 -11.73327 665 -11.96496 666 -12.19724 667 -12.43013 668 -12.66363 669 -12.89773 670 -13.13243 671 -13.36773 672 -13.60365 673 -13.84016 674 -14.07728 675 -14.315 676 -14.55333 677 -14.79227 678 -15.0318 679 -15.27194 680 -15.51269 681 -15.75404 682 -15.996 683 -16.23855 684 -16.48172 685 -16.72549 686 -16.96986 687 -17.21484 688 -17.46042 689 -17.70661 690 -17.9534 691 -18.2008 692 -18.4488 693 -18.69741 694 -18.94662 695 -19.19644 696 -19.44687 697 -19.69789 698 -19.94953 699 -20.20176 700 -20.45461 701 -20.70806 702 -20.96211 703 -21.21677 704 -21.47204 705 -21.72791 706 -21.98438 707 -22.24146 708 -22.49915 709 -22.75744 710 -23.01634 711 -23.27584 712 -23.53595 713 -23.79667 714 -24.05799 715 -24.31992 716 -24.58245 717 -24.84559 718 -25.10933 719 -25.37368 720 -25.63864 721 -25.9042 722 -26.17037 723 -26.43715 724 -26.70453 725 -26.97252 726 -27.24111 727 -27.51031 728 -27.78012 729 -28.05053 730 -28.32155 731 -28.59317 732 -28.86541 733 -29.13825 734 -29.41169 735 -29.68574 736 -29.9604 737 -30.23567 738 -30.51154 739 -30.78802 740 -31.06511 741 -31.3428 742 -31.6211 743 -31.90001 744 -32.17952 745 -32.45964 746 -32.74037 747 -33.0217 748 -33.30365 749 -33.5862 750 -33.86935 751 -34.15312 752 -34.43749 753 -34.72247 754 -35.00806 755 -35.29425 756 -35.58106 757 -35.86847 758 -36.15648 759 -36.44511 760 -36.73434 761 -37.02418 762 -37.31463 763 -37.60569 764 -37.89735 765 -38.18962 766 -38.48251 767 -38.77599 768 -39.07009 769 -39.3648 770 -39.66011 771 -39.95603 772 -40.25256 773 -40.5497 774 -40.84745 775 -41.1458 776 -41.44477 777 -41.74434 778 -42.04452 779 -42.34531 780 -42.64671 781 -42.94871 782 -43.25133 783 -43.55456 784 -43.85839 785 -44.16283 786 -44.46788 787 -44.77354 788 -45.07981 789 -45.38669 790 -45.69418 791 -46.00228 792 -46.31099 793 -46.6203 794 -46.93023 795 -47.24076 796 -47.55191 797 -47.86366 798 -48.17603 799 -48.489 800 -48.80258 801 -49.11678 802 -49.43158 803 -49.74699 804 -50.06301 805 -50.37965 806 -50.69689 807 -51.01474 808 -51.3332 809 -51.65228 810 -51.97196 811 -52.29225 812 -52.61316 813 -52.93467 814 -53.2568 815 -53.57953 816 -53.90288 817 -54.22683 818 -54.5514 819 -54.87658 820 -55.20237 821 -55.52877 822 -55.85578 823 -56.1834 824 -56.51163 825 -56.84047 826 -57.16993 827 -57.49999 828 -57.83067 829 -58.16196 830 -58.49386 831 -58.82637 832 -59.15949 833 -59.49322 834 -59.82757 835 -60.16252 836 -60.49809 837 -60.83427 838 -61.17106 839 -61.50847 840 -61.84648 841 -62.18511 842 -62.52435 843 -62.8642 844 -63.20466 845 -63.54574 846 -63.88742 847 -64.22972 848 -64.57264 849 -64.91616 850 -65.2603 851 -65.60505 852 -65.95041 853 -66.29638 854 -66.64297 855 -66.99017 856 -67.33798 857 -67.68641 858 -68.03545 859 -68.3851 860 -68.73536 861 -69.08624 862 -69.43773 863 -69.78983 864 -70.14255 865 -70.49588 866 -70.84982 867 -71.20438 868 -71.55955 869 -71.91534 870 -72.27173 871 -72.62875 872 -72.98637 873 -73.34461 874 -73.70346 875 -74.06293 876 -74.42301 877 -74.7837 878 -75.14501 879 -75.50694 880 -75.86947 881 -76.23262 882 -76.59639 883 -76.96077 884 -77.32576 885 -77.69137 886 -78.0576 887 -78.42444 888 -78.79189 889 -79.15996 890 -79.52864 891 -79.89794 892 -80.26785 893 -80.63838 894 -81.00952 895 -81.38128 896 -81.75365 897 -82.12664 898 -82.50024 899 -82.87446 900 -83.2493 901 -83.62475 902 -84.00081 903 -84.37749 904 -84.75479 905 -85.1327 906 -85.51123 907 -85.89037 908 -86.27014 909 -86.65051 910 -87.0315 911 -87.41311 912 -87.79534 913 -88.17818 914 -88.56164 915 -88.94571 916 -89.3304 917 -89.71571 918 -90.10163 919 -90.48817 920 -90.87533 921 -91.26311 922 -91.6515 923 -92.0405 924 -92.43013 925 -92.82037 926 -93.21123 927 -93.60271 928 -93.9948 929 -94.38751 930 -94.78084 931 -95.17479 932 -95.56935 933 -95.96453 934 -96.36033 935 -96.75675 936 -97.15378 937 -97.55144 938 -97.94971 939 -98.3486 940 -98.7481 941 -99.14823 942 -99.54897 943 -99.95033 944 -100.3523 945 -100.7549 946 -101.1581 947 -101.562 948 -101.9664 949 -102.3715 950 -102.7772 951 -103.1835 952 -103.5904 953 -103.998 954 -104.4061 955 -104.8149 956 -105.2243 957 -105.6344 958 -106.045 959 -106.4563 960 -106.8682 961 -107.2807 962 -107.6938 963 -108.1075 964 -108.5219 965 -108.9369 966 -109.3525 967 -109.7687 968 -110.1855 969 -110.603 970 -111.0211 971 -111.4398 972 -111.8591 973 -112.2791 974 -112.6996 975 -113.1208 976 -113.5426 977 -113.9651 978 -114.3881 979 -114.8118 980 -115.2361 981 -115.661 982 -116.0865 983 -116.5127 984 -116.9394 985 -117.3668 986 -117.7949 987 -118.2235 988 -118.6528 989 -119.0826 990 -119.5131 991 -119.9443 992 -120.376 993 -120.8084 994 -121.2414 995 -121.675 996 -122.1092 997 -122.5441 998 -122.9796 999 -123.4157 1000 -123.8524> PDEV10 <- ALTDC[609] > MRDEV10 <- ALTMR[609] > ATCDEV10 <- ATC[609] > PROFDF10 <- (PDEV10-ATCDEV10)*609 > cat(PDEV10);cat("\n") 40.594 > cat(ATCDEV10);cat("\n") 28.22868 > cat(PROFDF10);cat("\n") 7530.478 > # > DCCRN <- (70 - (.065/10)*9*ISEQ) - (.065/10)*ISEQ # FIRM'S DEMAND CURVE UNDER COURNOT EQLM. > MRCRN <- (70 - (.065/10)*9*ISEQ) - (.065/5)*ISEQ # FIRM'S MARGINAL REVENUE CURVE UNDER CRN.EQLM. > # > CRNMRMCMAT <- rbind(ISEQ, MRCRN-MC) > cat(CRNMRMCMAT) 1 35.00631 2 35.11491 3 35.2229 4 35.33028 5 35.43705 6 35.54322 7 35.64877 8 35.75372 9 35.85807 10 35.9618 11 36.06493 12 36.16745 13 36.26936 14 36.37066 15 36.47136 16 36.57145 17 36.67094 18 36.76981 19 36.86808 20 36.96574 21 37.0628 22 37.15925 23 37.25509 24 37.35032 25 37.44495 26 37.53897 27 37.63239 28 37.72519 29 37.8174 30 37.90899 31 37.99998 32 38.09036 33 38.18013 34 38.2693 35 38.35786 36 38.44582 37 38.53317 38 38.61991 39 38.70605 40 38.79158 41 38.8765 42 38.96082 43 39.04453 44 39.12764 45 39.21014 46 39.29203 47 39.37332 48 39.454 49 39.53408 50 39.61355 51 39.69242 52 39.77068 53 39.84833 54 39.92538 55 40.00182 56 40.07766 57 40.15289 58 40.22752 59 40.30154 60 40.37495 61 40.44776 62 40.51997 63 40.59157 64 40.66256 65 40.73295 66 40.80274 67 40.87191 68 40.94049 69 41.00846 70 41.07582 71 41.14258 72 41.20873 73 41.27428 74 41.33923 75 41.40357 76 41.4673 77 41.53043 78 41.59296 79 41.65488 80 41.71619 81 41.77691 82 41.83701 83 41.89651 84 41.95541 85 42.01371 86 42.07139 87 42.12848 88 42.18496 89 42.24084 90 42.29611 91 42.35078 92 42.40484 93 42.4583 94 42.51115 95 42.5634 96 42.61505 97 42.66609 98 42.71653 99 42.76637 100 42.8156 101 42.86423 102 42.91225 103 42.95967 104 43.00649 105 43.0527 106 43.09831 107 43.14331 108 43.18771 109 43.23151 110 43.27471 111 43.3173 112 43.35928 113 43.40067 114 43.44145 115 43.48162 116 43.5212 117 43.56017 118 43.59853 119 43.6363 120 43.67346 121 43.71001 122 43.74597 123 43.78132 124 43.81607 125 43.85021 126 43.88375 127 43.91669 128 43.94902 129 43.98076 130 44.01189 131 44.04241 132 44.07234 133 44.10166 134 44.13037 135 44.15849 136 44.186 137 44.21291 138 44.23922 139 44.26492 140 44.29002 141 44.31452 142 44.33842 143 44.36171 144 44.38441 145 44.40649 146 44.42798 147 44.44886 148 44.46915 149 44.48883 150 44.5079 151 44.52638 152 44.54425 153 44.56152 154 44.57819 155 44.59425 156 44.60972 157 44.62458 158 44.63884 159 44.65249 160 44.66555 161 44.678 162 44.68985 163 44.7011 164 44.71175 165 44.72179 166 44.73123 167 44.74008 168 44.74831 169 44.75595 170 44.76299 171 44.76942 172 44.77525 173 44.78048 174 44.78511 175 44.78914 176 44.79256 177 44.79539 178 44.79761 179 44.79923 180 44.80025 181 44.80066 182 44.80048 183 44.79969 184 44.79831 185 44.79632 186 44.79373 187 44.79054 188 44.78674 189 44.78235 190 44.77735 191 44.77176 192 44.76556 193 44.75876 194 44.75136 195 44.74336 196 44.73475 197 44.72555 198 44.71574 199 44.70534 200 44.69433 201 44.68272 202 44.67051 203 44.6577 204 44.64429 205 44.63027 206 44.61566 207 44.60044 208 44.58463 209 44.56821 210 44.55119 211 44.53357 212 44.51536 213 44.49654 214 44.47711 215 44.45709 216 44.43647 217 44.41525 218 44.39342 219 44.371 220 44.34797 221 44.32435 222 44.30012 223 44.27529 224 44.24986 225 44.22383 226 44.1972 227 44.16998 228 44.14214 229 44.11371 230 44.08468 231 44.05505 232 44.02482 233 43.99399 234 43.96255 235 43.93052 236 43.89788 237 43.86465 238 43.83081 239 43.79638 240 43.76134 241 43.72571 242 43.68947 243 43.65264 244 43.6152 245 43.57716 246 43.53852 247 43.49929 248 43.45945 249 43.41901 250 43.37797 251 43.33634 252 43.2941 253 43.25126 254 43.20782 255 43.16378 256 43.11914 257 43.07391 258 43.02807 259 42.98163 260 42.93459 261 42.88695 262 42.83871 263 42.78987 264 42.74043 265 42.6904 266 42.63976 267 42.58852 268 42.53668 269 42.48424 270 42.4312 271 42.37757 272 42.32333 273 42.26849 274 42.21305 275 42.15702 276 42.10038 277 42.04314 278 41.9853 279 41.92687 280 41.86783 281 41.8082 282 41.74796 283 41.68712 284 41.62569 285 41.56365 286 41.50102 287 41.43779 288 41.37395 289 41.30952 290 41.24449 291 41.17885 292 41.11262 293 41.04579 294 40.97836 295 40.91033 296 40.8417 297 40.77247 298 40.70264 299 40.63221 300 40.56118 301 40.48955 302 40.41732 303 40.34449 304 40.27107 305 40.19704 306 40.12242 307 40.04719 308 39.97137 309 39.89494 310 39.81792 311 39.7403 312 39.66207 313 39.58325 314 39.50383 315 39.42381 316 39.34319 317 39.26197 318 39.18015 319 39.09773 320 39.01472 321 38.9311 322 38.84688 323 38.76207 324 38.67665 325 38.59064 326 38.50402 327 38.41681 328 38.329 329 38.24059 330 38.15158 331 38.06197 332 37.97176 333 37.88095 334 37.78954 335 37.69753 336 37.60493 337 37.51172 338 37.41792 339 37.32351 340 37.22851 341 37.13291 342 37.03671 343 36.9399 344 36.8425 345 36.74451 346 36.64591 347 36.54671 348 36.44691 349 36.34652 350 36.24552 351 36.14393 352 36.04173 353 35.93894 354 35.83555 355 35.73156 356 35.62696 357 35.52177 358 35.41599 359 35.3096 360 35.20261 361 35.09502 362 34.98684 363 34.87805 364 34.76867 365 34.65869 366 34.54811 367 34.43692 368 34.32514 369 34.21276 370 34.09979 371 33.98621 372 33.87203 373 33.75725 374 33.64188 375 33.52591 376 33.40933 377 33.29216 378 33.17439 379 33.05602 380 32.93705 381 32.81748 382 32.69731 383 32.57654 384 32.45518 385 32.33321 386 32.21064 387 32.08748 388 31.96372 389 31.83936 390 31.71439 391 31.58883 392 31.46267 393 31.33591 394 31.20856 395 31.0806 396 30.95204 397 30.82289 398 30.69313 399 30.56278 400 30.43183 401 30.30027 402 30.16812 403 30.03537 404 29.90202 405 29.76807 406 29.63353 407 29.49838 408 29.36263 409 29.22629 410 29.08934 411 28.9518 412 28.81366 413 28.67492 414 28.53557 415 28.39563 416 28.25509 417 28.11395 418 27.97222 419 27.82988 420 27.68694 421 27.54341 422 27.39927 423 27.25454 424 27.1092 425 26.96327 426 26.81674 427 26.66961 428 26.52188 429 26.37355 430 26.22462 431 26.07509 432 25.92496 433 25.77423 434 25.62291 435 25.47098 436 25.31846 437 25.16533 438 25.01161 439 24.85729 440 24.70236 441 24.54684 442 24.39072 443 24.234 444 24.07668 445 23.91876 446 23.76024 447 23.60113 448 23.44141 449 23.28109 450 23.12018 451 22.95866 452 22.79655 453 22.63383 454 22.47052 455 22.3066 456 22.14209 457 21.97698 458 21.81127 459 21.64496 460 21.47805 461 21.31054 462 21.14243 463 20.97372 464 20.80441 465 20.6345 466 20.46399 467 20.29288 468 20.12118 469 19.94887 470 19.77596 471 19.60246 472 19.42835 473 19.25365 474 19.07834 475 18.90244 476 18.72593 477 18.54883 478 18.37113 479 18.19282 480 18.01392 481 17.83442 482 17.65431 483 17.47361 484 17.29231 485 17.11041 486 16.92791 487 16.74481 488 16.5611 489 16.3768 490 16.1919 491 16.0064 492 15.8203 493 15.6336 494 15.4463 495 15.2584 496 15.0699 497 14.8808 498 14.6911 499 14.5008 500 14.3099 501 14.1184 502 13.9263 503 13.7336 504 13.5403 505 13.3464 506 13.1519 507 12.9568 508 12.7611 509 12.5648 510 12.3679 511 12.1704 512 11.9723 513 11.7736 514 11.57429 515 11.37439 516 11.17389 517 10.97279 518 10.77109 519 10.56878 520 10.36588 521 10.16238 522 9.958275 523 9.753571 524 9.548267 525 9.342363 526 9.135858 527 8.928753 528 8.721047 529 8.512741 530 8.303835 531 8.094328 532 7.88422 533 7.673512 534 7.462203 535 7.250294 536 7.037785 537 6.824674 538 6.610964 539 6.396652 540 6.18174 541 5.966227 542 5.750114 543 5.533399 544 5.316085 545 5.098169 546 4.879652 547 4.660535 548 4.440817 549 4.220498 550 3.999579 551 3.778058 552 3.555937 553 3.333215 554 3.109891 555 2.885967 556 2.661442 557 2.436316 558 2.210589 559 1.984261 560 1.757332 561 1.529801 562 1.30167 563 1.072938 564 0.8436041 565 0.6136693 566 0.3831334 567 0.1519963 568 -0.07974208 569 -0.3120817 570 -0.5450225 571 -0.7785647 572 -1.012708 573 -1.247453 574 -1.482799 575 -1.718747 576 -1.955296 577 -2.192446 578 -2.430198 579 -2.668551 580 -2.907506 581 -3.147062 582 -3.38722 583 -3.62798 584 -3.869341 585 -4.111303 586 -4.353868 587 -4.597034 588 -4.840801 589 -5.085171 590 -5.330142 591 -5.575715 592 -5.82189 593 -6.068666 594 -6.316045 595 -6.564025 596 -6.812607 597 -7.061791 598 -7.311577 599 -7.561965 600 -7.812955 601 -8.064547 602 -8.316741 603 -8.569538 604 -8.822936 605 -9.076936 606 -9.331539 607 -9.586744 608 -9.842551 609 -10.09896 610 -10.35597 611 -10.61359 612 -10.8718 613 -11.13062 614 -11.39004 615 -11.65006 616 -11.91069 617 -12.17192 618 -12.43375 619 -12.69618 620 -12.95922 621 -13.22286 622 -13.4871 623 -13.75194 624 -14.01739 625 -14.28344 626 -14.55009 627 -14.81734 628 -15.0852 629 -15.35366 630 -15.62272 631 -15.89239 632 -16.16266 633 -16.43353 634 -16.705 635 -16.97708 636 -17.24976 637 -17.52304 638 -17.79693 639 -18.07142 640 -18.34651 641 -18.62221 642 -18.89851 643 -19.17541 644 -19.45292 645 -19.73103 646 -20.00974 647 -20.28906 648 -20.56898 649 -20.8495 650 -21.13062 651 -21.41235 652 -21.69469 653 -21.97762 654 -22.26116 655 -22.54531 656 -22.83006 657 -23.11541 658 -23.40136 659 -23.68792 660 -23.97508 661 -24.26285 662 -24.55122 663 -24.8402 664 -25.12977 665 -25.41996 666 -25.71074 667 -26.00213 668 -26.29413 669 -26.58673 670 -26.87993 671 -27.17373 672 -27.46815 673 -27.76316 674 -28.05878 675 -28.355 676 -28.65183 677 -28.94927 678 -29.2473 679 -29.54594 680 -29.84519 681 -30.14504 682 -30.4455 683 -30.74655 684 -31.04822 685 -31.35049 686 -31.65336 687 -31.95684 688 -32.26092 689 -32.56561 690 -32.8709 691 -33.1768 692 -33.4833 693 -33.79041 694 -34.09812 695 -34.40644 696 -34.71537 697 -35.02489 698 -35.33503 699 -35.64576 700 -35.95711 701 -36.26906 702 -36.58161 703 -36.89477 704 -37.20854 705 -37.52291 706 -37.83788 707 -38.15346 708 -38.46965 709 -38.78644 710 -39.10384 711 -39.42184 712 -39.74045 713 -40.05967 714 -40.37949 715 -40.69992 716 -41.02095 717 -41.34259 718 -41.66483 719 -41.98768 720 -42.31114 721 -42.6352 722 -42.95987 723 -43.28515 724 -43.61103 725 -43.93752 726 -44.26461 727 -44.59231 728 -44.92062 729 -45.24953 730 -45.57905 731 -45.90917 732 -46.23991 733 -46.57125 734 -46.90319 735 -47.23574 736 -47.5689 737 -47.90267 738 -48.23704 739 -48.57202 740 -48.90761 741 -49.2438 742 -49.5806 743 -49.91801 744 -50.25602 745 -50.59464 746 -50.93387 747 -51.2737 748 -51.61415 749 -51.9552 750 -52.29685 751 -52.63912 752 -52.98199 753 -53.32547 754 -53.66956 755 -54.01425 756 -54.35956 757 -54.70547 758 -55.05198 759 -55.39911 760 -55.74684 761 -56.09518 762 -56.44413 763 -56.79369 764 -57.14385 765 -57.49462 766 -57.84601 767 -58.19799 768 -58.55059 769 -58.9038 770 -59.25761 771 -59.61203 772 -59.96706 773 -60.3227 774 -60.67895 775 -61.0358 776 -61.39327 777 -61.75134 778 -62.11002 779 -62.46931 780 -62.82921 781 -63.18971 782 -63.55083 783 -63.91256 784 -64.27489 785 -64.63783 786 -65.00138 787 -65.36554 788 -65.73031 789 -66.09569 790 -66.46168 791 -66.82828 792 -67.19549 793 -67.5633 794 -67.93173 795 -68.30076 796 -68.67041 797 -69.04066 798 -69.41153 799 -69.783 800 -70.15508 801 -70.52778 802 -70.90108 803 -71.27499 804 -71.64951 805 -72.02465 806 -72.40039 807 -72.77674 808 -73.1537 809 -73.53128 810 -73.90946 811 -74.28825 812 -74.66766 813 -75.04767 814 -75.4283 815 -75.80953 816 -76.19138 817 -76.57383 818 -76.9569 819 -77.34058 820 -77.72487 821 -78.10977 822 -78.49528 823 -78.8814 824 -79.26813 825 -79.65547 826 -80.04343 827 -80.43199 828 -80.82117 829 -81.21096 830 -81.60136 831 -81.99237 832 -82.38399 833 -82.77622 834 -83.16907 835 -83.56252 836 -83.95659 837 -84.35127 838 -84.74656 839 -85.14247 840 -85.53898 841 -85.93611 842 -86.33385 843 -86.7322 844 -87.13116 845 -87.53074 846 -87.93092 847 -88.33172 848 -88.73314 849 -89.13516 850 -89.5378 851 -89.94105 852 -90.34491 853 -90.74938 854 -91.15447 855 -91.56017 856 -91.96648 857 -92.37341 858 -92.78095 859 -93.1891 860 -93.59786 861 -94.00724 862 -94.41723 863 -94.82783 864 -95.23905 865 -95.65088 866 -96.06332 867 -96.47638 868 -96.89005 869 -97.30434 870 -97.71923 871 -98.13475 872 -98.55087 873 -98.96761 874 -99.38496 875 -99.80293 876 -100.2215 877 -100.6407 878 -101.0605 879 -101.4809 880 -101.902 881 -102.3236 882 -102.7459 883 -103.1688 884 -103.5923 885 -104.0164 886 -104.4411 887 -104.8664 888 -105.2924 889 -105.719 890 -106.1461 891 -106.5739 892 -107.0023 893 -107.4314 894 -107.861 895 -108.2913 896 -108.7222 897 -109.1536 898 -109.5857 899 -110.0185 900 -110.4518 901 -110.8857 902 -111.3203 903 -111.7555 904 -112.1913 905 -112.6277 906 -113.0647 907 -113.5024 908 -113.9406 909 -114.3795 910 -114.819 911 -115.2591 912 -115.6998 913 -116.1412 914 -116.5831 915 -117.0257 916 -117.4689 917 -117.9127 918 -118.3571 919 -118.8022 920 -119.2478 921 -119.6941 922 -120.141 923 -120.5885 924 -121.0366 925 -121.4854 926 -121.9347 927 -122.3847 928 -122.8353 929 -123.2865 930 -123.7383 931 -124.1908 932 -124.6439 933 -125.0975 934 -125.5518 935 -126.0067 936 -126.4623 937 -126.9184 938 -127.3752 939 -127.8326 940 -128.2906 941 -128.7492 942 -129.2085 943 -129.6683 944 -130.1288 945 -130.5899 946 -131.0516 947 -131.514 948 -131.9769 949 -132.4405 950 -132.9047 951 -133.3695 952 -133.8349 953 -134.301 954 -134.7676 955 -135.2349 956 -135.7028 957 -136.1714 958 -136.6405 959 -137.1103 960 -137.5807 961 -138.0517 962 -138.5233 963 -138.9955 964 -139.4684 965 -139.9419 966 -140.416 967 -140.8907 968 -141.366 969 -141.842 970 -142.3186 971 -142.7958 972 -143.2736 973 -143.7521 974 -144.2311 975 -144.7108 976 -145.1911 977 -145.6721 978 -146.1536 979 -146.6358 980 -147.1186 981 -147.602 982 -148.086 983 -148.5707 984 -149.0559 985 -149.5418 986 -150.0284 987 -150.5155 988 -151.0033 989 -151.4916 990 -151.9806 991 -152.4703 992 -152.9605 993 -153.4514 994 -153.9429 995 -154.435 996 -154.9277 997 -155.4211 998 -155.9151 999 -156.4097 1000 -156.9049> > PLTDCF10 <- (70 - ((.065/10)*9*567)) - (.065/10)*ISEQ > PLTMRF10 <- (70 - (.065/10)*9*567) - (.065/5)*ISEQ > PCDF10 <- PLTDC[567] > ATCF10 <- ATC[567] > CFPROF <- 567*(PCDF10-ATCF10) > cat(PCDF10);cat("\n") 34.315 > cat(ATCF10);cat("\n") 27.94313 > cat(CFPROF);cat("\n") 3612.852 > # > plot(AVC,type="l", + ylim=c(0,70), + xlab="Quantity", + main="Cournot Firm Equilibrium") > lines(MC,lty=1) > lines(ATC,lty=1) > lines(PLTDCF10,lty=1) > lines(PLTMRF10,lty=1) > abline(v=567,lty=3) > abline(v=609,lty=3) > abline(v=435,lty=3) >